koha-cvs
[Top][All Lists]
Advanced

[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

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


From: paul poulain
Subject: [Koha-cvs] koha/members member-flags.pl member-password.pl
Date: Tue, 17 Apr 2007 08:49:30 +0000

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




reply via email to

[Prev in Thread] Current Thread [Next in Thread]