[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);
        }