[Koha-cvs] koha/members memberentry.pl [rel_3_0]

[Bruno Toumi]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_3_0
Changes by:	Bruno Toumi <btoumi>	06/12/21 14:47:15

Modified files:
	members        : memberentry.pl 

Log message:
	bug fix for categorycode cgi::popup::menu default value 

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/memberentry.pl?cvsroot=koha&only_with_tag=rel_3_0&r1=1.38.2.18&r2=1.38.2.19

Patches:
Index: memberentry.pl
===================================================================
RCS file: /sources/koha/koha/members/memberentry.pl,v
retrieving revision 1.38.2.18
retrieving revision 1.38.2.19
diff -u -b -r1.38.2.18 -r1.38.2.19
--- memberentry.pl	14 Dec 2006 15:41:54 -0000	1.38.2.18
+++ memberentry.pl	21 Dec 2006 14:47:15 -0000	1.38.2.19
@@ -1,5 +1,5 @@
 #!/usr/bin/perl
-# $Id: memberentry.pl,v 1.38.2.18 2006/12/14 15:41:54 toins Exp $
+# $Id: memberentry.pl,v 1.38.2.19 2006/12/21 14:47:15 btoumi Exp $
 
 # Copyright 2006 SAN OUEST PROVENCE et Paul POULAIN
 #
@@ -284,13 +284,13 @@
 	
 	if(scalar(@$categories)){
 	    #if you modify the borrowers you must have the right value for his category code
-	    (my $default_category=$data{'categorycode'}) if ($op  eq '');
+	(my $default_category=$data{'categorycode'}) if ($op  eq 'modify');
 	    my $catcodepopup = CGI::popup_menu(
 	        -name=>'categorycode',
  			-id => 'categorycode',
  			-values=>$categories,
-  			-default=>$default_category,
- 			-labels=>$labels
+  			-labels=>$labels,
+			-default=>$default_category
  	    );
  	    $template->param(catcodepopup=>$catcodepopup);
  	}