Fixed so renewing a rental item adds a charge

diff --git a/renewscript.pl b/renewscript.pl
index 0feed8b..78fd276 100755 (executable)
--- a/renewscript.pl
+++ b/renewscript.pl
@@ -30,6 +30,7 @@ while ( my ($key, $value) = each %data) {
      #means we want to renew this item
      #check its status
      my $status=renewstatus(\%env,$bornum,$key);
+#     print $status;
      if ($status == 1){
        renewbook(\%env,$bornum,$key);
      }