Fix typo: open-ils.actor.retrieve_by_shorname (but keep the old one around just in...

git-svn-id: svn://svn.open-ils.org/ILS/trunk@16029 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 4da8c5d..b61ae2c 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
@@ -2707,11 +2707,15 @@ sub retrieve_net_levels {
        return $e->retrieve_all_config_net_access_level();
 }
 
-
+# Retain the old typo API name just in case
 __PACKAGE__->register_method(
        method => 'fetch_org_by_shortname',
        api_name => 'open-ils.actor.org_unit.retrieve_by_shorname',
 );
+__PACKAGE__->register_method(
+       method => 'fetch_org_by_shortname',
+       api_name => 'open-ils.actor.org_unit.retrieve_by_shortname',
+);
 sub fetch_org_by_shortname {
        my( $self, $conn, $sname ) = @_;
        my $e = new_editor();

diff --git a/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm b/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm
index 84b5a41..3cc4a06 100644 (file)
--- a/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm
+++ b/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm
@@ -74,7 +74,7 @@ sub handler {
                my $session = OpenSRF::AppSession->create("open-ils.actor");
 
                my $org = $session->request(
-            'open-ils.actor.org_unit.retrieve_by_shorname',
+            'open-ils.actor.org_unit.retrieve_by_shortname',
                         $shortname)->gather(1);
 
                if($org) { $url .= "?ol=" . $org->id; }