[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha renewscript.pl,1.4,1.5
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha renewscript.pl,1.4,1.5 |
Date: |
Mon, 20 Sep 2004 06:43:03 -0700 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv5470
Modified Files:
renewscript.pl
Log Message:
adding link to item modifs in MARC detail & nugfix for renewal
Index: renewscript.pl
===================================================================
RCS file: /cvsroot/koha/koha/renewscript.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** renewscript.pl 13 Oct 2002 07:34:34 -0000 1.4
--- renewscript.pl 20 Sep 2004 13:43:01 -0000 1.5
***************
*** 25,29 ****
use CGI;
! use C4::Circulation::Renewals2;
#get input
my $input= new CGI;
--- 25,30 ----
use CGI;
! # use C4::Circulation::Renewals2;
! use C4::Circulation::Circ2;
#get input
my $input= new CGI;
***************
*** 45,60 ****
my %env;
my $bornum=$input->param("bornum");
! while ( my ($key, $value) = each %data) {
! # print "$key = $value\n";
if ($value eq 'y'){
#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);
}
}
}
! print $input->redirect("/cgi-bin/koha/moremember.pl?bornum=$bornum");
--- 46,61 ----
my %env;
my $bornum=$input->param("bornum");
! 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,$itemno);
! # warn "STATUS : $status";
if ($status == 1){
! renewbook(\%env,$bornum,$itemno);
}
}
}
! print $input->redirect("/cgi-bin/koha/members/moremember.pl?bornum=$bornum");
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha renewscript.pl,1.4,1.5,
Paul POULAIN <=