[Koha-cvs] CVS: koha insertjdata.pl,1.5,1.6 jmemberentry.pl,1.10,1.11

[Mike Hansen]

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'},