[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 => address@hidden,
                                                itemnum => $itemnum,