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

[Kyle Hall]

CVSROOT:	/sources/koha
Module name:	koha
Branch:		dev_week
Changes by:	Kyle Hall <kylemhall>	08/02/04 17:58:49

Modified files:
	members        : memberentry.pl 

Log message:
	Bug fix.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/memberentry.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.5.2.13.2.5&r2=1.5.2.13.2.6

Patches:
Index: memberentry.pl
===================================================================
RCS file: /sources/koha/koha/members/memberentry.pl,v
retrieving revision 1.5.2.13.2.5
retrieving revision 1.5.2.13.2.6
diff -u -b -r1.5.2.13.2.5 -r1.5.2.13.2.6
--- memberentry.pl	21 Sep 2007 14:52:01 -0000	1.5.2.13.2.5
+++ memberentry.pl	4 Feb 2008 17:58:49 -0000	1.5.2.13.2.6
@@ -2,7 +2,7 @@
 # NOTE: This file uses standard 8-space tabs
 #       DO NOT SET TAB SIZE TO 4
 
-# $Id: memberentry.pl,v 1.5.2.13.2.5 2007/09/21 14:52:01 kylemhall Exp $
+# $Id: memberentry.pl,v 1.5.2.13.2.6 2008/02/04 17:58:49 kylemhall Exp $
 
 #script to set up screen for modification of borrower details
 #written 20/12/99 by chris at katipo.co.nz
@@ -289,7 +289,7 @@
 	}
 
         my $CGIbranch;
-	if ( $modify eq 'Edit' ) {
+        if ( lc( $modify ) eq 'edit' ) { ## Convert $modify to all lower case before comparison
 	  $CGIbranch=CGI::scrolling_list( -name     => 'branchcode',
 					-id => 'branchcode',
 					-class => 'focus',