[Koha-cvs] CVS: koha/acqui.simple additem.pl,1.28,1.29

[Paul POULAIN]

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

Modified Files:
	additem.pl 
Log Message:
adding title & author to additem screen (owen suggestion)

Index: additem.pl
===================================================================
RCS file: /cvsroot/koha/koha/acqui.simple/additem.pl,v
retrieving revision 1.28
retrieving revision 1.29
diff -C2 -r1.28 -r1.29
*** additem.pl	4 May 2005 08:45:33 -0000	1.28
--- additem.pl	6 May 2005 08:25:16 -0000	1.29
***************
*** 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,