[open-ils-commits] r16029 - in trunk/Open-ILS/src/perlmods/OpenILS: Application WWW (dbs)

[svn at svn.open-ils.org]

Author: dbs
Date: 2010-03-28 17:54:13 -0400 (Sun, 28 Mar 2010)
New Revision: 16029

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
   trunk/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm
Log:
Fix typo: open-ils.actor.retrieve_by_shorname (but keep the old one around just in case)


Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2010-03-27 21:04:01 UTC (rev 16028)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2010-03-28 21:54:13 UTC (rev 16029)
@@ -2707,11 +2707,15 @@
 	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();

Modified: trunk/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm	2010-03-27 21:04:01 UTC (rev 16028)
+++ trunk/Open-ILS/src/perlmods/OpenILS/WWW/Redirect.pm	2010-03-28 21:54:13 UTC (rev 16029)
@@ -74,7 +74,7 @@
 		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; }