[Koha-cvs] CVS: koha/circ returns.pl,1.10,1.11

[Finlay Thompson]

Update of /cvsroot/koha/koha/circ
In directory usw-pr-cvs1:/tmp/cvs-serv11366/circ

Modified Files:
        returns.pl 
Log Message:

added the itemtype code to the printed slip that goes in a reserved book.


Index: returns.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/returns.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** returns.pl  26 Jul 2002 01:09:55 -0000      1.10
--- returns.pl  26 Jul 2002 02:27:16 -0000      1.11
***************
*** 74,78 ****
      my $resbarcode = $query->param('resbarcode');
      my $tobranchcd = ReserveWaiting($item, $borrnum);
-     warn "tobranchcd = $tobranchcd";
      my $branchname = $branches->{$tobranchcd}->{'branchname'};
      my ($borr) = getpatroninformation(\%env, $borrnum, 0);
--- 74,77 ----
***************
*** 203,206 ****
--- 202,206 ----
  $iteminfo->{'title'} ($iteminfo->{'author'})
  barcode: $iteminfo->{'barcode'}
+ itemtype: $iteminfo->{'itemtype'} 
  
  COLLECT AT: $branchname
***************
*** 295,300 ****
      my $color = '';
      foreach my $flag (sort keys %$flags) {
-       warn "$flag : $flags->{$flag} \n ";
- 
        ($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
        if ($flags->{$flag}->{'noissues'}) {
--- 295,298 ----