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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-02-08 15:51:54 -0500 (Fri, 08 Feb 2008)
New Revision: 8703

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
Log:
direct function calls to prevent any issues with $self

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2008-02-08 20:46:18 UTC (rev 8702)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm	2008-02-08 20:51:54 UTC (rev 8703)
@@ -358,7 +358,7 @@
    my $patron = $e->retrieve_actor_user($userid)
       or return $e->event;
    return $e->event unless $e->allowed('VIEW_HOLD', $patron->home_ou);
-   return $self->__user_hold_count($e, $userid);
+   return __user_hold_count($self, $e, $userid);
 }
 
 sub __user_hold_count {
@@ -482,7 +482,7 @@
 	$e->update_action_hold_request($hold)
 		or return $e->event;
 
-	$self->delete_hold_copy_maps($e, $hold->id);
+	delete_hold_copy_maps($self, $e, $hold->id);
 
 	$e->commit;
 	return 1;
@@ -525,7 +525,7 @@
         return $e->die_event unless $e->allowed('UPDATE_HOLD', $usr->home_ou);
     }
 
-    my $evt = $self->update_hold_if_frozen($e, $hold);
+    my $evt = update_hold_if_frozen($self, $e, $hold);
     return $evt if $evt;
 
     $e->update_action_hold_request($hold)
@@ -773,7 +773,7 @@
 	return $evt if $evt;
 	($reqr, $evt) = $U->checksesperm($auth, 'UPDATE_HOLD'); # XXX stronger permission
 	return $evt if $evt;
-	$evt = $self->_reset_hold($reqr, $hold);
+	$evt = _reset_hold($self, $reqr, $hold);
 	return $evt if $evt;
 	return 1;
 }