Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

adding link to item modifs in MARC detail & nugfix for renewal

Browse source
This commit is contained in:
tipaul 2004-09-20 13:43:01 +00:00
parent 7da7665903
commit f7c61accab
1 changed files with 8 additions and 7 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

15
renewscript.pl
View file

@ -24,7 +24,8 @@
# Suite 330, Boston, MA 02111-1307 USA
use CGI;
use C4::Circulation::Renewals2;
# use C4::Circulation::Renewals2;
use C4::Circulation::Circ2;
#get input
my $input= new CGI;
#print $input->header;
@ -44,17 +45,17 @@ for (my $i=0;$i<$count;$i++){
}
my %env;
my $bornum=$input->param("bornum");
while ( my ($key, $value) = each %data) {
# print "$key = $value\n";
while ( my ($itemno, $value) = each %data) {
# warn "$itemno = $value\n";
if ($value eq 'y'){
#means we want to renew this item
#check its status
my $status=renewstatus(\%env,$bornum,$key);
# print $status;
my $status=renewstatus(\%env,$bornum,$itemno);
# warn "STATUS : $status";
if ($status == 1){
renewbook(\%env,$bornum,$key);
renewbook(\%env,$bornum,$itemno);
}
}
}
print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$bornum");
print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$bornum");