From b634eb8e6b488af62e950266709240b77eb4f451 Mon Sep 17 00:00:00 2001 From: miker Date: Sat, 10 Mar 2007 20:05:49 +0000 Subject: [PATCH] force uppercase for shortname on add git-svn-id: svn://svn.open-ils.org/ILS/trunk@7052 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/cgi-bin/lib-setup.cgi | 12 +++++++++++- 1 file changed, 11 insertions(+), 1 deletion(-) diff --git a/Open-ILS/src/cgi-bin/lib-setup.cgi b/Open-ILS/src/cgi-bin/lib-setup.cgi index 3d0cb1a77c..2479853a06 100755 --- 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')); -- 2.11.0