removing copy price routine which is actually called by no one
authorerickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 8 Oct 2008 19:27:38 +0000 (19:27 +0000)
committererickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Wed, 8 Oct 2008 19:27:38 +0000 (19:27 +0000)
git-svn-id: svn://svn.open-ils.org/ILS/trunk@10795 dcc99617-32d9-48b4-a31d-7c20da2025e4

Open-ILS/src/perlmods/OpenILS/Application/Collections.pm

index e558c0f..09cf561 100644 (file)
@@ -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;