| 
      
            Lines 38-43
          use C4::Branch qw( GetBranchDetail );
      
      
        Link Here
      
     | 
  
        
          | 38 | 
          use C4::Dates qw( format_date_in_iso );  | 
          38 | 
          use C4::Dates qw( format_date_in_iso );  | 
        
        
          | 39 | 
           | 
          39 | 
           | 
        
        
          | 40 | 
          use Koha::DateUtils;  | 
          40 | 
          use Koha::DateUtils;  | 
        
            
               | 
               | 
              41 | 
              use Koha::Calendar;  | 
            
            
              | 42 | 
               | 
            
            
              | 43 | 
              use DateTime;  | 
            
        
          | 41 | 
           | 
          44 | 
           | 
        
        
          | 42 | 
          use List::MoreUtils qw( firstidx );  | 
          45 | 
          use List::MoreUtils qw( firstidx );  | 
        
        
          | 43 | 
           | 
          46 | 
           | 
        
  
    | 
      
            Lines 132-137
          BEGIN {
      
      
        Link Here
      
     | 
  
        
          | 132 | 
                  &ToggleSuspend  | 
          135 | 
                  &ToggleSuspend  | 
        
        
          | 133 | 
                  &SuspendAll  | 
          136 | 
                  &SuspendAll  | 
        
        
          | 134 | 
           | 
          137 | 
           | 
        
            
               | 
               | 
              138 | 
                      &_reserve_last_pickup_date  | 
            
            
              | 139 | 
               | 
            
        
          | 135 | 
                  &GetReservesControlBranch  | 
          140 | 
                  &GetReservesControlBranch  | 
        
        
          | 136 | 
              );  | 
          141 | 
              );  | 
        
        
          | 137 | 
              @EXPORT_OK = qw( MergeHolds );  | 
          142 | 
              @EXPORT_OK = qw( MergeHolds );  | 
        
  
    | 
      
            Lines 1815-1820
          sub _Findgroupreserve {
      
      
        Link Here
      
     | 
  
        
          | 1815 | 
              return @results;  | 
          1820 | 
              return @results;  | 
        
        
          | 1816 | 
          }  | 
          1821 | 
          }  | 
        
        
          | 1817 | 
           | 
          1822 | 
           | 
        
            
               | 
               | 
              1823 | 
              =head2 _reserve_last_pickup_date  | 
            
            
              | 1824 | 
               | 
            
            
              | 1825 | 
               my $last_dt = _reserve_last_pickup_date($reserve);  | 
            
            
              | 1826 | 
               | 
            
            
              | 1827 | 
              Returns the DateTime for the last pickup date for reserve.  | 
            
            
              | 1828 | 
               | 
            
            
              | 1829 | 
              =cut  | 
            
            
              | 1830 | 
               | 
            
            
              | 1831 | 
              sub _reserve_last_pickup_date { | 
            
            
              | 1832 | 
                  my ($reserve) = @_;  | 
            
            
              | 1833 | 
               | 
            
            
              | 1834 | 
                  my $startdate = $reserve->{waitingdate} ? dt_from_string($reserve->{waitingdate}) : DateTime->now( time_zone => C4::Context->tz() ); | 
            
            
              | 1835 | 
                  my $calendar = Koha::Calendar->new( branchcode => $reserve->{branchcode} ); | 
            
            
              | 1836 | 
                  my $expiration = $calendar->days_forward( $startdate, C4::Context->preference('ReservesMaxPickUpDelay') ); | 
            
            
              | 1837 | 
               | 
            
            
              | 1838 | 
                  return $expiration;  | 
            
            
              | 1839 | 
              }  | 
            
            
              | 1840 | 
               | 
            
        
          | 1818 | 
          =head2 _koha_notify_reserve  | 
          1841 | 
          =head2 _koha_notify_reserve  | 
        
        
          | 1819 | 
           | 
          1842 | 
           | 
        
        
          | 1820 | 
            _koha_notify_reserve( $itemnumber, $borrowernumber, $biblionumber, $reserve_id );  | 
          1843 | 
            _koha_notify_reserve( $itemnumber, $borrowernumber, $biblionumber, $reserve_id );  |