- my ($count2,@bibitems) = GetBiblioItemByBiblioNumber($biblio);
- my @itemresults = GetItemsInfo($subs->{'biblionumber'}, 'intra');
- my $branch = $itemresults[0]->{'holdingbranch'};
- my $const = 'o';
- my $notes;
- my $title = $subs->{'bibliotitle'};
- for(my $i=0;$i<$routing;$i++){
- my $sth = $dbh->prepare("SELECT * FROM reserves WHERE biblionumber = ? AND borrowernumber = ?");
- $sth->execute($biblio,$routinglist[$i]->{'borrowernumber'});
- my $data = $sth->fetchrow_hashref;
-
-# warn "$routinglist[$i]->{'borrowernumber'} is the same as $data->{'borrowernumber'}";
- if($routinglist[$i]->{'borrowernumber'} == $data->{'borrowernumber'}){
- ModReserve($routinglist[$i]->{'ranking'},$biblio,$routinglist[$i]->{'borrowernumber'},$branch);
- } else {
- AddReserve($branch,$routinglist[$i]->{'borrowernumber'},$biblio,$const,\@bibitems,$routinglist[$i]->{'ranking'},'',$notes,$title);