[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/C4 Koha.pm,1.12,1.13 Search.pm,1.79,1.80
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/C4 Koha.pm,1.12,1.13 Search.pm,1.79,1.80 |
Date: |
Thu, 18 Sep 2003 03:19:31 -0700 |
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);
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/C4 Koha.pm,1.12,1.13 Search.pm,1.79,1.80,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/acqui finishreceive.pl,1.13,1.14
- Next by Date:
[Koha-cvs] CVS: koha/koha-tmpl/opac-tmpl/default/fr opac-account.tmpl,1.1,1.2 opac-auth.tmpl,1.1,1.2 opac-detail.tmpl,1.2,1.3 opac-main.tmpl,1.1,1.2 opac-moredetail.tmpl,1.1,1.2 opac-reserve.tmpl,1.3,1.4 opac-searchresults.tmpl,1.1,1.2 opac-search.tmpl,1.5,1.6 opac-user.tmpl,1.2,1.3 opac-userupdate.tmpl,1.2,1.3 subject.tmpl,1.1,1.2
- Previous by thread:
[Koha-cvs] CVS: koha/acqui finishreceive.pl,1.13,1.14
- Next by thread:
[Koha-cvs] CVS: koha/koha-tmpl/opac-tmpl/default/fr opac-account.tmpl,1.1,1.2 opac-auth.tmpl,1.1,1.2 opac-detail.tmpl,1.2,1.3 opac-main.tmpl,1.1,1.2 opac-moredetail.tmpl,1.1,1.2 opac-reserve.tmpl,1.3,1.4 opac-searchresults.tmpl,1.1,1.2 opac-search.tmpl,1.5,1.6 opac-user.tmpl,1.2,1.3 opac-userupdate.tmpl,1.2,1.3 subject.tmpl,1.1,1.2
- Index(es):