View | Details | Raw Unified | Return to bug 23531
Collapse All | Expand All

(-)a/C4/ILSDI/Services.pm (-3 / +22 lines)
Lines 725-736 sub HoldTitle { Link Here
725
    return { code => 'libraryNotPickupLocation' } unless $destination->pickup_location;
725
    return { code => 'libraryNotPickupLocation' } unless $destination->pickup_location;
726
    return { code => 'cannotBeTransferred' } unless $biblio->can_be_transferred({ to => $destination });
726
    return { code => 'cannotBeTransferred' } unless $biblio->can_be_transferred({ to => $destination });
727
727
728
    my $resdate;
729
    if ( $cgi->param('needed_before_date') ) {
730
	$resdate = $cgi->param('needed_before_date');
731
    }
732
733
    my $expdate;
734
    if ( $cgi->param('pickup_expiry_date') ) {
735
	$expdate = $cgi->param('pickup_expiry_date');
736
    }
737
728
    # Add the reserve
738
    # Add the reserve
729
    #    $branch,    $borrowernumber, $biblionumber,
739
    #    $branch,    $borrowernumber, $biblionumber,
730
    #    $constraint, $bibitems,  $priority, $resdate, $expdate, $notes,
740
    #    $constraint, $bibitems,  $priority, $resdate, $expdate, $notes,
731
    #    $title,      $checkitem, $found
741
    #    $title,      $checkitem, $found
732
    my $priority= C4::Reserves::CalculatePriority( $biblionumber );
742
    my $priority= C4::Reserves::CalculatePriority( $biblionumber );
733
    AddReserve( $branch, $borrowernumber, $biblionumber, undef, $priority, undef, undef, undef, $title, undef, undef );
743
    AddReserve( $branch, $borrowernumber, $biblionumber, undef, $priority, $resdate, $expdate, undef, $title, undef, undef );
734
744
735
    # Hashref building
745
    # Hashref building
736
    my $out;
746
    my $out;
Lines 801-812 sub HoldItem { Link Here
801
    my $canitembereserved = C4::Reserves::CanItemBeReserved( $borrowernumber, $itemnumber, $branch )->{status};
811
    my $canitembereserved = C4::Reserves::CanItemBeReserved( $borrowernumber, $itemnumber, $branch )->{status};
802
    return { code => $canitembereserved } unless $canitembereserved eq 'OK';
812
    return { code => $canitembereserved } unless $canitembereserved eq 'OK';
803
813
814
    my $resdate;
815
    if ( $cgi->param('needed_before_date') ) {
816
	$resdate = $cgi->param('needed_before_date');
817
    }
818
819
    my $expdate;
820
    if ( $cgi->param('pickup_expiry_date') ) {
821
	$expdate = $cgi->param('pickup_expiry_date');
822
    }
823
804
    # Add the reserve
824
    # Add the reserve
805
    #    $branch,    $borrowernumber, $biblionumber,
825
    #    $branch,    $borrowernumber, $biblionumber,
806
    #    $constraint, $bibitems,  $priority, $resdate, $expdate, $notes,
826
    #    $constraint, $bibitems,  $priority, $resdate, $expdate, $notes,
807
    #    $title,      $checkitem, $found
827
    #    $title,      $checkitem, $found
808
    my $priority= C4::Reserves::CalculatePriority( $biblionumber );
828
    my $priority= C4::Reserves::CalculatePriority( $biblionumber );
809
    AddReserve( $branch, $borrowernumber, $biblionumber, undef, $priority, undef, undef, undef, $title, $itemnumber, undef );
829
    AddReserve( $branch, $borrowernumber, $biblionumber, undef, $priority, $resdate, $expdate, undef, $title, $itemnumber, undef );
810
830
811
    # Hashref building
831
    # Hashref building
812
    my $out;
832
    my $out;
813
- 

Return to bug 23531