force uppercase for shortname on add

git-svn-id: svn://svn.open-ils.org/ILS/trunk@7052 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 3d0cb1a..2479853 100755 (executable)
--- a/Open-ILS/src/cgi-bin/lib-setup.cgi
+++ b/Open-ILS/src/cgi-bin/lib-setup.cgi
@@ -50,7 +50,17 @@ if (my $action = $cgi->param('action')) {
                        $hoo->update;
                }
        } elsif ( $action eq 'Add New' ) {
-               actor::org_unit->create( { map { defined($cgi->param($_)) ? ($_ => $cgi->param($_)) : () } keys %org_cols } );
+               actor::org_unit->create(
+                       { map {
+                               defined($cgi->param($_)) ? 
+                                       ( $_ eq 'shortname' ?
+                                               ($_ => uc($cgi->param($_))) :
+                                               ($_ => $cgi->param($_)) 
+                                       ) :
+                               ()
+                         } keys %org_cols
+                       }
+               );
        } elsif ( $action eq 'Save Address' ) {
                my $org = actor::org_unit->retrieve($cgi->param('id'));