Remove unused functions originally from issa.pl
authorJeff Godin <jgodin@tadl.org>
Thu, 22 Aug 2013 18:52:32 +0000 (14:52 -0400)
committerJeff Godin <jgodin@tadl.org>
Thu, 22 Aug 2013 18:52:32 +0000 (14:52 -0400)
Remove unused functions originally copied from issa.pl (GPL v2 or
later).

- place_hold
- set_title_hold_expiration
- org_unit_from_shortname

If they are needed in the future, we know where to find them.

Signed-off-by: Jeff Godin <jgodin@tadl.org>
iNCIPit.cgi

index 5f12c74..9e04dfe 100644 (file)
@@ -1563,137 +1563,6 @@ sub place_simple_hold {
     }
 }
 
-# Place a hold for a patron.
-#
-# Arguments
-# Type of hold
-# Target object appropriate for type of hold
-# Patron for whom the hold is place
-# OU where hold is to be picked up
-#
-# Returns
-# "SUCCESS" on success
-# textcode of a failed OSRF request
-# "HOLD_TYPE_NOT_SUPPORTED" if the hold type is not supported
-# (Currently only support 'T' and 'C')
-# XXX NOT USED OR WORKING, COMMENTING OUT FOR NOW
-#sub place_hold {
-#    check_session_time();
-#    my ( $type, $target, $patron, $pickup_ou ) = @_;
-#
-#    my $ou  = org_unit_from_shortname($work_ou);        # $work_ou is global
-#    my $ahr = Fieldmapper::action::hold_request->new;
-#    $ahr->hold_type($type);
-#    if ( $type eq 'C' ) {
-#
-#        # Check if we own the copy.
-#        if ( $ou->id == $target->circ_lib ) {
-#
-#            # We own it, so let's place a copy hold.
-#            $ahr->target( $target->id );
-#            $ahr->current_copy( $target->id );
-#        } else {
-#
-#            # We don't own it, so let's place a title hold instead.
-#            my $bib = bre_from_barcode( $target->barcode );
-#            $ahr->target( $bib->id );
-#            $ahr->hold_type('T');
-#        }
-#    } elsif ( $type eq 'T' ) {
-#        $ahr->target($target);
-#    } else {
-#        return "HOLD_TYPE_NOT_SUPPORTED";
-#    }
-#    $ahr->usr( user_id_from_barcode($id) );
-#
-#    #$ahr->pickup_lib($pickup_ou->id);
-#    $ahr->pickup_lib('3');
-#    if ( !$patron->email ) {
-#        $ahr->email_notify('f');
-#        $ahr->phone_notify( $patron->day_phone ) if ( $patron->day_phone );
-#    } else {
-#        $ahr->email_notify('t');
-#    }
-#
-#    # We must have a title hold and we want to change the hold
-#    # expiration date if we're sending the copy to the VC.
-#    set_title_hold_expiration($ahr) if ( $ahr->pickup_lib == $ou->id );
-#
-#    my $params = {
-#        pickup_lib => $ahr->pickup_lib,
-#        patronid   => $ahr->usr,
-#        hold_type  => $ahr->hold_type
-#    };
-#
-#    if ( $ahr->hold_type eq 'C' ) {
-#        $params->{copy_id} = $ahr->target;
-#    } else {
-#        $params->{titleid} = $ahr->target;
-#    }
-#
-#    my $r =
-#      OpenSRF::AppSession->create('open-ils.circ')
-#      ->request( 'open-ils.circ.title_hold.is_possible',
-#        $session{authtoken}, $params )->gather(1);
-#
-#    if ( $r->{textcode} ) {
-#        return $r->{textcode};
-#    } elsif ( $r->{success} ) {
-#        $r =
-#          OpenSRF::AppSession->create('open-ils.circ')
-#          ->request( 'open-ils.circ.holds.create.override',
-#            $session{authtoken}, $ahr )->gather(1);
-#
-#        my $returnValue = "SUCCESS";
-#        if ( ref($r) eq 'HASH' ) {
-#            $returnValue =
-#              ( $r->{textcode} eq 'PERM_FAILURE' )
-#              ? $r->{ilsperm}
-#              : $r->{textcode};
-#            $returnValue =~ s/\.override$//
-#              if ( $r->{textcode} eq 'PERM_FAILURE' );
-#        }
-#        return $returnValue;
-#    } else {
-#        return 'HOLD_NOT_POSSIBLE';
-#    }
-#}
-
-# Set the expiration date on title holds
-#
-# Argument
-# Fieldmapper action.hold_request object
-#
-# Returns
-# Nothing
-# XXX NOT USED OR WORKING, COMMENTING OUT FOR NOW
-#sub set_title_hold_expiration {
-#    my $hold = shift;
-#    if ( $title_holds->{unit} && $title_holds->{duration} ) {
-#        my $expiration = DateTime->now( time_zone => $tz );
-#        $expiration->add( $title_holds->{unit} => $title_holds->{duration} );
-#        $hold->expire_time( $expiration->iso8601() );
-#    }
-#}
-
-# Get actor.org_unit from the shortname
-#
-# Arguments
-# org_unit shortname
-#
-# Returns
-# Fieldmapper aou object
-# or HASH on error
-sub org_unit_from_shortname {
-    check_session_time();
-    my ($shortname) = @_;
-    my $ou =
-      OpenSRF::AppSession->create('open-ils.actor')
-      ->request( 'open-ils.actor.org_unit.retrieve_by_shortname', $shortname )
-      ->gather(1);
-    return $ou;
-}
-
 # Flesh user information
 # Arguments
 # actor.usr.id