From 41560e80b883eab1220ed0507bb6aca5f65f8d8f Mon Sep 17 00:00:00 2001
From: tipaul <tipaul>
Date: Mon, 7 Apr 2003 12:13:41 +0000
Subject: [PATCH] fix for #184

---
 admin/branches.pl | 9 ++++-----
 1 file changed, 4 insertions(+), 5 deletions(-)

diff --git a/admin/branches.pl b/admin/branches.pl
index 029de4f06d..7aa61f0ed5 100755
--- a/admin/branches.pl
+++ b/admin/branches.pl
@@ -57,7 +57,6 @@ my $pagesize=20;
 
 #######################################################################################
 # Main loop....
-
 my $input = new CGI;
 my $branchcode=$input->param('branchcode');
 my $op = $input->param('op');
@@ -352,7 +351,7 @@ sub getcategoryinfo {
     my $sth = $dbh->prepare($query);
     $sth->execute(@query_args);
     my @results;
-    while (my $data = $sth->fetchrow_hashref) { 
+    while (my $data = $sth->fetchrow_hashref) {
 	push(@results, $data);
     }
     $sth->finish;
@@ -367,7 +366,7 @@ sub setbranchinfo {
     my $dbh = C4::Context->dbh;
     my $query = "replace branches (branchcode,branchname,branchaddress1,branchaddress2,branchaddress3,branchphone,branchfax,branchemail) values (?,?,?,?,?,?,?,?)";
     my $sth=$dbh->prepare($query);
-    $sth->execute($data->{'branchcode'}, $data->{'branchname'},
+    $sth->execute(uc($data->{'branchcode'}), $data->{'branchname'},
 	    $data->{'branchaddress1'}, $data->{'branchaddress2'},
 	    $data->{'branchaddress3'}, $data->{'branchphone'},
 	    $data->{'branchfax'}, $data->{'branchemail'});
@@ -382,7 +381,7 @@ sub setbranchinfo {
 	    push(@checkedcats, $code);
 	}
     }
-    my $branchcode = $data->{'branchcode'};
+    my $branchcode =uc($data->{'branchcode'});
     my $branch = getbranchinfo($branchcode);
     $branch = $branch->[0];
     my $branchcats = $branch->{'categories'};
@@ -397,7 +396,7 @@ sub setbranchinfo {
 	unless (grep {/^$ccat$/} @$branchcats) {
 	    push(@addcats, $ccat);
 	}
-    }	
+    }
     # FIXME - There's already a $dbh in this scope.
     my $dbh = C4::Context->dbh;
     foreach my $cat (@addcats) {
-- 
2.39.5