forcing shortname to upper case

git-svn-id: svn://svn.open-ils.org/ILS/trunk@4731 dcc99617-32d9-48b4-a31d-7c20da2025e4

diff --git a/Open-ILS/src/cgi-bin/lib-setup.cgi b/Open-ILS/src/cgi-bin/lib-setup.cgi
index f4f367f..d5ac449 100755 (executable)
--- 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;
                }