[open-ils-commits] r13480 - trunk/Open-ILS/src/perlmods/OpenILS/Application (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2009-06-29 13:44:49 -0400 (Mon, 29 Jun 2009)
New Revision: 13480

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
force valid org-unit-setting name when updating settings

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-06-29 15:46:40 UTC (rev 13479)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2009-06-29 17:44:49 UTC (rev 13480)
@@ -106,6 +106,8 @@
 
 	for my $name (keys %$settings) {
         my $val = $$settings{$name};
+
+        my $type = $e->retrieve_config_org_unit_setting_type($name) or return $e->die_event;
         my $set = $e->search_actor_org_unit_setting({org_unit => $org_id, name => $name})->[0];
 
         unless($all_allowed) {