Fixed so renewing a rental item adds a charge

This commit is contained in:
rangi 2001-05-09 23:23:52 +00:00
parent a254455342
commit 696c44c641

View file

@ -30,6 +30,7 @@ while ( my ($key, $value) = each %data) {
#means we want to renew this item #means we want to renew this item
#check its status #check its status
my $status=renewstatus(\%env,$bornum,$key); my $status=renewstatus(\%env,$bornum,$key);
# print $status;
if ($status == 1){ if ($status == 1){
renewbook(\%env,$bornum,$key); renewbook(\%env,$bornum,$key);
} }