LP#1413624: AccessHandler Space delimination and bugfix
authorThomas Berezansky <tsbere@mvlc.org>
Thu, 22 Jan 2015 16:31:03 +0000 (11:31 -0500)
committerGalen Charlton <gmc@esilibrary.com>
Thu, 19 Feb 2015 16:17:23 +0000 (16:17 +0000)
In addition to commas, allow spaces to delimit option lists.

Also, I apparently left a "!=" where I wanted a "ne" in _get_org_id.

Signed-off-by: Thomas Berezansky <tsbere@mvlc.org>
Signed-off-by: Galen Charlton <gmc@esilibrary.com>
Open-ILS/src/perlmods/lib/OpenILS/WWW/AccessHandler.pm

index e9227e4..24f1d9e 100644 (file)
@@ -70,7 +70,7 @@ sub handler {
     my $failed = 0;
 
     if ($userperm) {
-        my @permissions = split(/\s*,\s*/, $userperm);
+        my @permissions = split(/\s*[ ,]\s*/, $userperm);
         $failed++ unless _verify_permission($auth_ses, $user, $checkou, \@permissions);
     }
     if (!$failed && $userstanding) {
@@ -135,7 +135,7 @@ sub _get_org_id {
                 ->create('open-ils.actor')
                 ->request('open-ils.actor.org_unit.retrieve_by_shortname', $org_identifier)
                 ->gather(1);
-            if ($org_unit && ref($org_unit) != 'HASH') {
+            if ($org_unit && ref($org_unit) ne 'HASH') {
                 # We appear to have an org unit! So return the ID.
                 return $org_unit->id;
             }
@@ -166,7 +166,7 @@ sub _verify_home_ou {
             }
         } while ($org_tree);
 
-        my @home_ous = split(/\s*,\s*/,$home_ou);
+        my @home_ous = split(/\s*[ ,]\s*/,$home_ou);
         for my $cur_ou (@home_ous) {
             $cur_ou = _get_org_id($cur_ou);
             if ($user_orgs{$cur_ou}) {