From 78f3d32d0a9ea6da27366a6d6a4bc29887c9dc8d Mon Sep 17 00:00:00 2001
From: miker <miker@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Fri, 23 Jun 2006 07:23:10 +0000
Subject: [PATCH] forcing shortname to upper case

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4731 dcc99617-32d9-48b4-a31d-7c20da2025e4
---
 Open-ILS/src/cgi-bin/lib-setup.cgi | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/Open-ILS/src/cgi-bin/lib-setup.cgi b/Open-ILS/src/cgi-bin/lib-setup.cgi
index f4f367f829..d5ac449c0b 100755
--- a/Open-ILS/src/cgi-bin/lib-setup.cgi
+++ b/Open-ILS/src/cgi-bin/lib-setup.cgi
@@ -33,7 +33,11 @@ if (my $action = $cgi->param('action')) {
 			my $u = actor::org_unit->retrieve($id);
 			for my $col ( keys %org_cols ) {
 				next if ($cgi->param($col."_$id") =~ /Select One/o);
-				$u->$col( $cgi->param($col."_$id") );
+				if ($col eq 'shortname') {
+					$u->$col( uc( $cgi->param($col."_$id") ) );
+				} else {
+					$u->$col( $cgi->param($col."_$id") );
+				}
 			}
 			$u->update;
 		}
-- 
2.11.0