force valid org-unit-setting name when updating settings

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

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
index 9e7dfff..1a37e6b 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -106,6 +106,8 @@ sub set_ou_settings {
 
        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) {