[Koha-cvs] CVS: koha/C4 Koha.pm,1.12,1.13 Search.pm,1.79,1.80

[Paul POULAIN]

Update of /cvsroot/koha/koha/C4
In directory sc8-pr-cvs1:/tmp/cvs-serv16522/C4

Modified Files:
        Koha.pm Search.pm 
Log Message:
all those fixes are related to translation improvement.
A few minor bugfixes too in perl code.

NOTE TO ENGLISH "TEMPLATORS" : you should look at this commits, as some ideas 
are really nice.  Thanks to Carole, Wesford School, new Koha user in France :-)

Index: Koha.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Koha.pm,v
retrieving revision 1.12
retrieving revision 1.13
diff -C2 -r1.12 -r1.13
*** Koha.pm     7 Mar 2003 16:35:43 -0000       1.12
--- Koha.pm     18 Sep 2003 10:19:29 -0000      1.13
***************
*** 196,199 ****
--- 196,200 ----
                $nsth->execute($branch->{'branchcode'});
                while (my ($cat) = $nsth->fetchrow_array) {
+               warn "XX";
                        # FIXME - This seems wrong. It ought to be
                        # $branch->{categorycodes}{$cat} = 1;

Index: Search.pm
===================================================================
RCS file: /cvsroot/koha/koha/C4/Search.pm,v
retrieving revision 1.79
retrieving revision 1.80
diff -C2 -r1.79 -r1.80
*** Search.pm   17 Sep 2003 10:20:12 -0000      1.79
--- Search.pm   18 Sep 2003 10:19:29 -0000      1.80
***************
*** 1232,1236 ****
      my ($env,$biblionumber,$type) = @_;
      my $dbh   = C4::Context->dbh;
!     my $query = "SELECT * FROM items, biblio, biblioitems left join itemtypes 
on biblioitems.itemtype = itemtypes.itemtype
                    WHERE items.biblionumber = ?
                      AND biblioitems.biblioitemnumber = items.biblioitemnumber
--- 1232,1236 ----
      my ($env,$biblionumber,$type) = @_;
      my $dbh   = C4::Context->dbh;
!     my $query = "SELECT *,items.notforloan as itemnotforloan FROM items, 
biblio, biblioitems left join itemtypes on biblioitems.itemtype = 
itemtypes.itemtype
                    WHERE items.biblionumber = ?
                      AND biblioitems.biblioitemnumber = items.biblioitemnumber
***************
*** 1454,1457 ****
--- 1454,1466 ----
        chop $data->{'subject'};
        chop $data->{'subject'};
+     $sth->finish;
+     $query = "Select * from additionalauthors where biblionumber = ?";
+     $sth   = $dbh->prepare($query);
+     $sth->execute($bibnum);
+     while (my $dat = $sth->fetchrow_hashref){
+         $data->{'additionalauthors'} .= "$dat->{'author'}, ";
+     } # while
+       chop $data->{'additionalauthors'};
+       chop $data->{'additionalauthors'};
      $sth->finish;
      return($data);