[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);