[Koha-cvs] CVS: koha/acqui.simple additem.pl,1.27.2.2,1.27.2.3

[Paul POULAIN]

Update of /cvsroot/koha/koha/acqui.simple
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv1601/acqui.simple

Modified Files:
      Tag: rel_2_2
	additem.pl 
Log Message:
adding title & author in additem (owen suggestion)

Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v
retrieving revision 1.27.2.2
retrieving revision 1.27.2.3
diff -C2 -r1.27.2.2 -r1.27.2.3
*** additem.pl	25 Mar 2005 12:52:44 -0000	1.27.2.2
--- additem.pl	6 May 2005 08:26:28 -0000	1.27.2.3
***************
*** 61,64 ****
--- 61,65 ----
  my $tagslib = &MARCgettagslib($dbh,1,$itemtype);
  my $record = MARCgetbiblio($dbh,$bibid);
+ my $oldrecord = MARCmarc2koha($dbh,$record);
  my $itemrecord;
  my $nextop="additem";
***************
*** 280,283 ****
--- 281,286 ----
  						bibid => $bibid,
  						biblionumber =>$oldbiblionumber,
+ 						title => $oldrecord->{title},
+ 						author => $oldrecord->{author},
  						item => \@loop_data,
  						itemnum => $itemnum,