[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha insertjdata.pl,1.5,1.6 jmemberentry.pl,1.10,1.11
From: |
Mike Hansen |
Subject: |
[Koha-cvs] CVS: koha insertjdata.pl,1.5,1.6 jmemberentry.pl,1.10,1.11 |
Date: |
Tue, 27 May 2003 00:09:09 -0700 |
Update of /cvsroot/koha/koha
In directory sc8-pr-cvs1:/tmp/cvs-serv4011/koha
Modified Files:
insertjdata.pl jmemberentry.pl
Log Message:
Fixed jmemberentry stuff
Index: insertjdata.pl
===================================================================
RCS file: /cvsroot/koha/koha/insertjdata.pl,v
retrieving revision 1.5
retrieving revision 1.6
diff -C2 -r1.5 -r1.6
*** insertjdata.pl 15 May 2003 12:25:04 -0000 1.5
--- insertjdata.pl 27 May 2003 07:09:07 -0000 1.6
***************
*** 45,49 ****
my $dbh = C4::Context->dbh;
my $query;
! for (my $i=0;$i<3;$i++){
my $x = "cardnumber_child_$i";
my $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
--- 45,49 ----
my $dbh = C4::Context->dbh;
my $query;
! for (my $i=0;$i<1;$i++){
my $x = "cardnumber_child_$i";
my $sth=$dbh->prepare("Select * from borrowers where borrowernumber=?");
Index: jmemberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/jmemberentry.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** jmemberentry.pl 5 May 2003 13:26:00 -0000 1.10
--- jmemberentry.pl 27 May 2003 07:09:07 -0000 1.11
***************
*** 30,33 ****
--- 30,34 ----
use C4::Interface::CGI::Output;
use C4::Date;
+ use C4::Members;
my $input = new CGI;
***************
*** 67,71 ****
my $cmember1=NewBorrowerNumber();
my @cmemdata;
! for (my $i=0;$i<3;$i++){
my %row;
$row{'cmember'}=$cmember1+$i;
--- 68,72 ----
my $cmember1=NewBorrowerNumber();
my @cmemdata;
! for (my $i=0;$i<1;$i++){
my %row;
$row{'cmember'}=$cmember1+$i;
***************
*** 75,78 ****
--- 76,80 ----
}
+ my $jcardnumber=C4::Members::fixup_cardnumber("");
$template->param( member => $member,
***************
*** 80,83 ****
--- 82,86 ----
surname => $data->{'surname'},
cardnumber => $data->{'cardnumber'},
+ jcardnumber => $jcardnumber,
area => $data->{'area'},
city => $data->{'city'},
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha insertjdata.pl,1.5,1.6 jmemberentry.pl,1.10,1.11,
Mike Hansen <=