got book title showing against reserve charge

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;