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

[svn at svn.open-ils.org]

Author: erickson
Date: 2008-10-08 15:27:38 -0400 (Wed, 08 Oct 2008)
New Revision: 10795

Modified:
   trunk/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
Log:
removing copy price routine which is actually called by no one

Modified: trunk/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm	2008-10-08 19:24:57 UTC (rev 10794)
+++ trunk/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm	2008-10-08 19:27:38 UTC (rev 10795)
@@ -730,19 +730,6 @@
 	return \@data;
 }
 
-sub set_copy_price {
-	my( $e, $copy ) = @_;
-	return if $copy->price and $copy->price > 0;
-	my $vol = $e->retrieve_asset_call_number($copy->call_number);
-	my $org = ($vol and $vol->id != OILS_PRECAT_CALL_NUMBER) 
-		? $vol->owning_lib : $copy->circ_lib;
-	my $setting = $e->retrieve_actor_org_unit_setting(
-		{ org_unit => $org, name => OILS_SETTING_DEF_ITEM_PRICE } );
-	$copy->price($setting->value);
-}
-
-
-
 sub fetch_grocery_xacts {
 	my $e				= shift;
 	my $uid			= shift;