[Koha-cvs] CVS: koha renewscript.pl,1.4,1.5

[Paul POULAIN]

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");