[Koha-cvs] CVS: koha/opac opac-sendbasket.pl,1.4.2.1,1.4.2.2
Henri-Damien LAURENT
hdl at users.sourceforge.net
Wed Jun 1 21:55:56 CEST 2005
Update of /cvsroot/koha/koha/opac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv16396/opac
Modified Files:
Tag: rel_2_2
opac-sendbasket.pl
Log Message:
Sending basket in OPAC with joined iso2709 biblios
Index: opac-sendbasket.pl
===================================================================
RCS file: /cvsroot/koha/koha/opac/opac-sendbasket.pl,v
retrieving revision 1.4.2.1
retrieving revision 1.4.2.2
diff -C2 -r1.4.2.1 -r1.4.2.2
*** opac-sendbasket.pl 25 Mar 2005 17:04:28 -0000 1.4.2.1
--- opac-sendbasket.pl 1 Jun 2005 19:55:53 -0000 1.4.2.2
***************
*** 8,11 ****
--- 8,12 ----
use C4::Search;
+ use C4::Biblio;
use C4::Auth;
use C4::Interface::CGI::Output;
***************
*** 25,28 ****
--- 26,33 ----
my $email_add=$query->param('email_add');
my $email_sender=$query->param('email_sender');
+ my $dbh=C4::Context->dbh;
+ my $sth;
+ $sth=$dbh->prepare("select bibid from marc_biblio where biblionumber=? order by bibid");
+
if ($email_add) {
***************
*** 57,60 ****
--- 62,67 ----
$dat->{'biblionumber'} = $biblionumber;
$dat->{ITEM_RESULTS} = \@items;
+ $sth->execute($biblionumber);
+ my ($bibid) = $sth->fetchrow;
my $record = MARCgetbiblio($dbh,$bibid);
$iso2709 .= $record->as_usmarc();
More information about the Koha-cvs
mailing list