[open-ils-commits] r7669 - trunk/Open-ILS/src/perlmods/OpenILS/Application

[svn at svn.open-ils.org]

Author: erickson
Date: 2007-08-15 11:46:21 -0400 (Wed, 15 Aug 2007)
New Revision: 7669

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
Log:
fixed object org-opt-in object name typo

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2007-08-15 14:39:25 UTC (rev 7668)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Actor.pm	2007-08-15 15:46:21 UTC (rev 7669)
@@ -3028,7 +3028,7 @@
     my $user = $e->retrieve_actor_user($user_id) or return $e->die_event;
 	return $e->die_event unless $e->allowed('UPDATE_USER', $user->home_ou);
 
-    my $opt_in = Fieldmapper::actor::user_org_unit_opt_in->new;
+    my $opt_in = Fieldmapper::actor::usr_org_unit_opt_in->new;
 
     $opt_in->org_unit($org_id);
     $opt_in->usr($user_id);
@@ -3036,7 +3036,7 @@
     $opt_in->opt_in_ts('now');
     $opt_in->opt_in_ws($e->requestor->wsid);
 
-    $opt_in = $e->create_actor_user_org_unit_opt_in($opt_in)
+    $opt_in = $e->create_actor_usr_org_unit_opt_in($opt_in)
         or return $e->die_event;
 
     $e->commit;