[Koha-cvs] koha/members member-flags.pl member-password.pl

[paul poulain]

CVSROOT:	/sources/koha
Module name:	koha
Changes by:	paul poulain <tipaul>	07/04/17 08:49:30

Modified files:
	members        : member-flags.pl member-password.pl 

Log message:
	circulation cleaning continued: bufixing

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/member-flags.pl?cvsroot=koha&r1=1.7&r2=1.8
http://cvs.savannah.gnu.org/viewcvs/koha/members/member-password.pl?cvsroot=koha&r1=1.6&r2=1.7

Patches:
Index: member-flags.pl
===================================================================
RCS file: /sources/koha/koha/members/member-flags.pl,v
retrieving revision 1.7
retrieving revision 1.8
diff -u -b -r1.7 -r1.8
--- member-flags.pl	4 Apr 2007 16:46:23 -0000	1.7
+++ member-flags.pl	17 Apr 2007 08:49:30 -0000	1.8
@@ -10,7 +10,7 @@
 use C4::Output;
 use C4::Auth;
 use C4::Context;
-use C4::Circulation;
+use C4::Members;
 #use C4::Acquisitions;
 
 use C4::Interface::CGI::Output;
@@ -38,11 +38,6 @@
 $env{'nottodayissues'}=1;
 my %member2;
 $member2{'borrowernumber'}=$member;
-my $issues=GetBorrowerIssues(\%member2);
-my $i=0;
-foreach (sort keys %$issues) {
-    $i++;
-}
 
 if ($input->param('newflags')) {
     my $dbh=C4::Context->dbh();

Index: member-password.pl
===================================================================
RCS file: /sources/koha/koha/members/member-password.pl,v
retrieving revision 1.6
retrieving revision 1.7
diff -u -b -r1.6 -r1.7
--- member-password.pl	4 Apr 2007 16:46:23 -0000	1.6
+++ member-password.pl	17 Apr 2007 08:49:30 -0000	1.7
@@ -38,11 +38,11 @@
 $env{'nottodayissues'}=1;
 my %member2;
 $member2{'borrowernumber'}=$member;
-my $issues=GetBorrowerIssues(\%member2);
-my $i=0;
-foreach (sort keys %$issues) {
-    $i++;
-}
+# my $issues=GetBorrowerIssues(\%member2);
+# my $i=0;
+# foreach (sort keys %$issues) {
+#     $i++;
+# }
 
 my ($bor,$flags)=GetMemberDetails( $member,'');
 my $newpassword = $input->param('newpassword');