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

Finlay Thompson finlayt at users.sourceforge.net
Fri Jul 26 03:09:57 CEST 2002


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

Modified Files:
	returns.pl 
Log Message:

added the book title and author to the reserve messages. 


Index: returns.pl
===================================================================
RCS file: /cvsroot/koha/koha/circ/returns.pl,v
retrieving revision 1.9
retrieving revision 1.10
diff -C2 -r1.9 -r1.10
*** returns.pl	24 Jul 2002 03:14:04 -0000	1.9
--- returns.pl	26 Jul 2002 01:09:55 -0000	1.10
***************
*** 74,77 ****
--- 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);
***************
*** 84,88 ****
  	$reservetext .= <<"EOF";
  <font color='red' size='+2'>Item marked Waiting:</font><br>
!     Item needs to be transfered to <b>$branchname</b> <br>
  to be picked up by $name ($number).
  <center><form method=post action='returns.pl'>
--- 85,90 ----
  	$reservetext .= <<"EOF";
  <font color='red' size='+2'>Item marked Waiting:</font><br>
!     Item: $iteminfo->{'title'} ($iteminfo->{'author'})<br>
!  needs to be transfered to <b>$branchname</b> <br>
  to be picked up by $name ($number).
  <center><form method=post action='returns.pl'>
***************
*** 182,186 ****
  	$reservetext = <<"EOF";
  <font color='red' size='+2'>Item marked Waiting:</font><br>
!     Item is marked waiting at <b>$branchname</b> for $name ($number).
  <center><form method=post action='returns.pl'>
  $ritext
--- 184,189 ----
  	$reservetext = <<"EOF";
  <font color='red' size='+2'>Item marked Waiting:</font><br>
!     Item $iteminfo->{'title'} ($iteminfo->{'author'}) <br>
! is marked waiting at <b>$branchname</b> for $name ($number).
  <center><form method=post action='returns.pl'>
  $ritext
***************
*** 216,220 ****
  
  	$reservetext = <<"EOF";
! <font color='red' size='+2'>Reserved found:</font> for $name ($number).
  <table cellpadding=5 cellspacing=0>
  <tr><td valign="top">Change status to waiting and print 
--- 219,224 ----
  
  	$reservetext = <<"EOF";
! <font color='red' size='+2'>Reserved found:</font> Item: $iteminfo->{'title'} ($iteminfo->{'author'}) <br>
! for $name ($number).
  <table cellpadding=5 cellspacing=0>
  <tr><td valign="top">Change status to waiting and print 





More information about the Koha-cvs mailing list