From 95023196439f0f7c518bdbbad889bde959f30c7d Mon Sep 17 00:00:00 2001 From: erickson Date: Wed, 8 Oct 2008 19:27:38 +0000 Subject: [PATCH] removing copy price routine which is actually called by no one git-svn-id: svn://svn.open-ils.org/ILS/trunk@10795 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/perlmods/OpenILS/Application/Collections.pm | 13 ------------- 1 file changed, 13 deletions(-) diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm b/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm index e558c0fe93..09cf561b02 100644 --- a/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm +++ b/Open-ILS/src/perlmods/OpenILS/Application/Collections.pm @@ -730,19 +730,6 @@ sub fetch_circ_xacts { 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; -- 2.11.0