From ba793f760453d6ad2aa5909f7949584ba97004d4 Mon Sep 17 00:00:00 2001
From: finlayt <finlayt>
Date: Fri, 26 Jul 2002 02:27:16 +0000
Subject: [PATCH] added the itemtype code to the printed slip that goes in a
 reserved book.

---
 circ/returns.pl | 4 +---
 1 file changed, 1 insertion(+), 3 deletions(-)

diff --git a/circ/returns.pl b/circ/returns.pl
index c120829353..e91d62d1b7 100755
--- a/circ/returns.pl
+++ b/circ/returns.pl
@@ -73,7 +73,6 @@ if ($query->param('resbarcode')) {
     my $borrnum = $query->param('borrowernumber');
     my $resbarcode = $query->param('resbarcode');
     my $tobranchcd = ReserveWaiting($item, $borrnum);
-    warn "tobranchcd = $tobranchcd";
     my $branchname = $branches->{$tobranchcd}->{'branchname'};
     my ($borr) = getpatroninformation(\%env, $borrnum, 0);
     my $name = $borr->{'surname'}." ".$borr->{'title'}." ".$borr->{'firstname'};
@@ -202,6 +201,7 @@ Date: $todaysdate;
 ITEM RESERVED: 
 $iteminfo->{'title'} ($iteminfo->{'author'})
 barcode: $iteminfo->{'barcode'}
+itemtype: $iteminfo->{'itemtype'} 
 
 COLLECT AT: $branchname
 
@@ -294,8 +294,6 @@ EOF
     my $flaginfotext='';
     my $color = '';
     foreach my $flag (sort keys %$flags) {
-	warn "$flag : $flags->{$flag} \n ";
-
 	($color eq $linecolor1) ? ($color=$linecolor2) : ($color=$linecolor1);
 	if ($flags->{$flag}->{'noissues'}) {
 	    $flag = "<font color=red>$flag</font>";
-- 
2.39.5