[Koha-cvs] CVS: koha/opac opac-sendbasket.pl,1.4.2.1,1.4.2.2

[Henri-Damien LAURENT]

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