# print "marking cancelled";
#need to check if it is on reserve or issued
my $dbh = C4::Context->dbh;
# print "marking cancelled";
#need to check if it is on reserve or issued
my $dbh = C4::Context->dbh;
my ($resbor,$resrec)=C4::Circulation::Circ2::checkreserve($env,$dbh,$itemnum);
# print $resbor;
if ($resbor){
my ($resbor,$resrec)=C4::Circulation::Circ2::checkreserve($env,$dbh,$itemnum);
# print $resbor;
if ($resbor){