Browse Source

got book title showing against reserve charge

master
chris 21 years ago
parent
commit
057eb1d54d
  1. 7
      placerequest.pl

7
placerequest.pl

@ -21,6 +21,7 @@ my $notes=$input->param('notes');
my $branch=$input->param('pickup');
my @rank=$input->param('rank-request');
my $type=$input->param('type');
my $title=$input->param('title');
my $bornum=borrdata($borrower,'');
if ($type eq 'str8' && $bornum ne ''){
my $count=@bibitems;
@ -41,12 +42,12 @@ my $env;
my $const;
if ($input->param('request') eq 'any'){
$const='a';
CreateReserve(\$env,$branch,$bornum->{'borrowernumber'},$biblio,$const,\@realbi,$rank[0],$notes);
CreateReserve(\$env,$branch,$bornum->{'borrowernumber'},$biblio,$const,\@realbi,$rank[0],$notes,$title);
} elsif ($reqbib[0] ne ''){
$const='o';
CreateReserve(\$env,$branch,$bornum->{'borrowernumber'},$biblio,$const,\@reqbib,$rank[0],$notes);
CreateReserve(\$env,$branch,$bornum->{'borrowernumber'},$biblio,$const,\@reqbib,$rank[0],$notes,$title);
} else {
CreateReserve(\$env,$branch,$bornum->{'borrowernumber'},$biblio,'a',\@realbi,$rank[0],$notes);
CreateReserve(\$env,$branch,$bornum->{'borrowernumber'},$biblio,'a',\@realbi,$rank[0],$notes,$title);
}
#print @realbi;

Loading…
Cancel
Save