From dba604ccb6ba2d3eb042c6966484fe1c0ffa58ec Mon Sep 17 00:00:00 2001 From: dbs Date: Sun, 28 Mar 2010 21:54:13 +0000 Subject: [PATCH] Fix typo: open-ils.actor.retrieve_by_shorname (but keep the old one around just in case) git-svn-id: svn://svn.open-ils.org/ILS/trunk@16029 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Actor.pm | 6 +++++- Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm | 2 +- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm b/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm index 4da8c5d143..b61ae2c8f2 100644 --- 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 84b5a41aec..3cc4a06f5f 100644 --- 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; } -- 2.43.2