[Koha-cvs] CVS: koha/members memberentry.pl,1.10,1.11

[Henri-Damien LAURENT]

Update of /cvsroot/koha/koha/members
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv21033/members

Modified Files:
	memberentry.pl 
Log Message:
Adding scrolling list for sort1 and sort2

Index: memberentry.pl
===================================================================
RCS file: /cvsroot/koha/koha/members/memberentry.pl,v
retrieving revision 1.10
retrieving revision 1.11
diff -C2 -r1.10 -r1.11
*** memberentry.pl	20 Jun 2005 14:26:03 -0000	1.10
--- memberentry.pl	22 Jun 2005 09:36:24 -0000	1.11
***************
*** 61,64 ****
--- 61,66 ----
  my $destination=$input->param('destination');
  
+ 
+ 
  my $nok;
  # if a add or modify is requested => check validity of data.
***************
*** 233,237 ****
--- 235,254 ----
  				-size     => 1,
  				-multiple => 0 );
+ 				
  
+ 	my $CGIsort1 = buildCGIsort("Bsort1","sort1",$data->{'sort1'});
+ 	if ($CGIsort1) {
+ 		$template->param(CGIsort1 => $CGIsort1);
+ 	} else {
+ 		$template->param( sort1 => $data->{'sort1'});
+ 	}
+ 
+ 	my $CGIsort2 = buildCGIsort("Bsort2","sort2",$data->{'sort2'});
+ 	if ($CGIsort2) {
+ 		$template->param(CGIsort2 =>$CGIsort2);
+ 	} else {
+ 		$template->param( sort2 => $data->{'sort2'});
+ 	}
+ 	
  	$template->param(	actionType 		=> $actionType,
  				destination => $destination,
***************
*** 266,271 ****
  				cardnumber	=> $cardnumber,
  				dateofbirth	=> $data->{'dateofbirth'},
- 				sort1 => $data->{'sort1'},
- 				sort2 => $data->{'sort2'},
  				dateformat      => display_date_format(),
  			        modify          => $modify,
--- 283,286 ----