[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha memberentry.pl,1.21,1.22
From: |
Ambrose Li |
Subject: |
[Koha-cvs] CVS: koha memberentry.pl,1.21,1.22 |
Date: |
Wed, 05 Feb 2003 22:39:04 -0800 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv26591
Modified Files:
memberentry.pl
Log Message:
Use the new C4::Boolean module and the new C4::Auth::boolean_parameter
function to test for boolean values in parameters
Index: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/memberentry.pl,v
retrieving revision 1.21
retrieving revision 1.22
diff -C2 -r1.21 -r1.22
*** memberentry.pl 2 Feb 2003 07:18:37 -0000 1.21
--- memberentry.pl 6 Feb 2003 06:39:02 -0000 1.22
***************
*** 71,75 ****
my $cardnumber=$data->{'cardnumber'};
! my $autonumber_members = C4::Context->preference("autoMemberNum") || 0;
# Find out whether member numbers should be generated
# automatically. Should be either "1" or something else.
--- 71,75 ----
my $cardnumber=$data->{'cardnumber'};
! my $autonumber_members = C4::Context->boolean_preference("autoMemberNum")
|| 0;
# Find out whether member numbers should be generated
# automatically. Should be either "1" or something else.
***************
*** 79,83 ****
# Not tonight though.
#
! if ($cardnumber eq '' && $autonumber_members eq '1') {
my $dbh = C4::Context->dbh;
my $query="select max(substring(borrowers.cardnumber,2,7)) from
borrowers";
--- 79,83 ----
# Not tonight though.
#
! if ($cardnumber eq '' && $autonumber_members) {
my $dbh = C4::Context->dbh;
my $query="select max(substring(borrowers.cardnumber,2,7)) from
borrowers";
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha memberentry.pl,1.21,1.22,
Ambrose Li <=