| 
      
            Lines 1416-1422
          sub AddIssue {
      
      
        Link Here
      
     | 
  
        
          | 1416 | 
                              datelastborrowed => DateTime->now( time_zone => C4::Context->tz() )->ymd(),  | 
          1416 | 
                              datelastborrowed => DateTime->now( time_zone => C4::Context->tz() )->ymd(),  | 
        
        
          | 1417 | 
                          },  | 
          1417 | 
                          },  | 
        
        
          | 1418 | 
                          $item->{'biblionumber'}, | 
          1418 | 
                          $item->{'biblionumber'}, | 
        
          
            
              | 1419 | 
                              $item->{'itemnumber'} | 
              1419 | 
                              $item->{'itemnumber'}, | 
            
            
               | 
               | 
              1420 | 
                              0  | 
            
        
          | 1420 | 
                      );  | 
          1421 | 
                      );  | 
        
        
          | 1421 | 
                      ModDateLastSeen( $item->{'itemnumber'} ); | 
          1422 | 
                      ModDateLastSeen( $item->{'itemnumber'} ); | 
        
        
          | 1422 | 
           | 
          1423 | 
           | 
        
  
    | 
      
            Lines 1854-1860
          sub AddReturn {
      
      
        Link Here
      
     | 
  
        
          | 1854 | 
                      $item->{location} = $item->{permanent_location}; | 
          1855 | 
                      $item->{location} = $item->{permanent_location}; | 
        
        
          | 1855 | 
                  }  | 
          1856 | 
                  }  | 
        
        
          | 1856 | 
           | 
          1857 | 
           | 
        
          
            
              | 1857 | 
                      ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'} ); | 
              1858 | 
                      ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'}, 0 ); | 
            
        
          | 1858 | 
              }  | 
          1859 | 
              }  | 
        
        
          | 1859 | 
           | 
          1860 | 
           | 
        
        
          | 1860 | 
                  # full item data, but no borrowernumber or checkout info (no issue)  | 
          1861 | 
                  # full item data, but no borrowernumber or checkout info (no issue)  | 
        
  
    | 
      
            Lines 1878-1884
          sub AddReturn {
      
      
        Link Here
      
     | 
  
        
          | 1878 | 
                      foreach my $key ( keys %$rules ) { | 
          1879 | 
                      foreach my $key ( keys %$rules ) { | 
        
        
          | 1879 | 
                          if ( $item->{notforloan} eq $key ) { | 
          1880 | 
                          if ( $item->{notforloan} eq $key ) { | 
        
        
          | 1880 | 
                              $messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; | 
          1881 | 
                              $messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; | 
        
          
            
              | 1881 | 
                                  ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber ); | 
              1882 | 
                                  ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber, 0 ); | 
            
        
          | 1882 | 
                              last;  | 
          1883 | 
                              last;  | 
        
        
          | 1883 | 
                          }  | 
          1884 | 
                          }  | 
        
        
          | 1884 | 
                      }  | 
          1885 | 
                      }  | 
        
  
    | 
      
            Lines 1950-1956
          sub AddReturn {
      
      
        Link Here
      
     | 
  
        
          | 1950 | 
           | 
          1951 | 
           | 
        
        
          | 1951 | 
                  }  | 
          1952 | 
                  }  | 
        
        
          | 1952 | 
           | 
          1953 | 
           | 
        
          
            
              | 1953 | 
                      ModItem({ onloan => undef }, $item->{biblionumber}, $item->{'itemnumber'}); | 
              1954 | 
                      ModItem( { onloan => undef }, $item->{biblionumber}, $item->{itemnumber}, 0 ); | 
            
        
          | 1954 | 
              }  | 
          1955 | 
              }  | 
        
        
          | 1955 | 
           | 
          1956 | 
           | 
        
        
          | 1956 | 
              # the holdingbranch is updated if the document is returned to another location.  | 
          1957 | 
              # the holdingbranch is updated if the document is returned to another location.  | 
        
  
    | 
      
            Lines 2186-2192
          sub MarkIssueReturned {
      
      
        Link Here
      
     | 
  
        
          | 2186 | 
                  # And finally delete the issue  | 
          2187 | 
                  # And finally delete the issue  | 
        
        
          | 2187 | 
                  $issue->delete;  | 
          2188 | 
                  $issue->delete;  | 
        
        
          | 2188 | 
           | 
          2189 | 
           | 
        
          
            
              | 2189 | 
                      ModItem( { 'onloan' => undef }, undef, $itemnumber ); | 
              2190 | 
                      ModItem( { 'onloan' => undef }, undef, $itemnumber, 0 ); | 
            
        
          | 2190 | 
           | 
          2191 | 
           | 
        
        
          | 2191 | 
                  if ( C4::Context->preference('StoreLastBorrower') ) { | 
          2192 | 
                  if ( C4::Context->preference('StoreLastBorrower') ) { | 
        
        
          | 2192 | 
                      my $item = Koha::Items->find( $itemnumber );  | 
          2193 | 
                      my $item = Koha::Items->find( $itemnumber );  | 
        
  
    | 
      
            Lines 2425-2431
          sub _FixAccountForLostAndReturned {
      
      
        Link Here
      
     | 
  
        
          | 2425 | 
                  }  | 
          2426 | 
                  }  | 
        
        
          | 2426 | 
              );  | 
          2427 | 
              );  | 
        
        
          | 2427 | 
           | 
          2428 | 
           | 
        
          
            
              | 2428 | 
                  ModItem( { paidfor => '' }, undef, $itemnumber ); | 
              2429 | 
                  ModItem( { paidfor => '' }, undef, $itemnumber, 0 ); | 
            
        
          | 2429 | 
           | 
          2430 | 
           | 
        
        
          | 2430 | 
              return $credit_id;  | 
          2431 | 
              return $credit_id;  | 
        
        
          | 2431 | 
          }  | 
          2432 | 
          }  | 
        
  
    | 
      
            Lines 2842-2848
          sub AddRenewal {
      
      
        Link Here
      
     | 
  
        
          | 2842 | 
           | 
          2843 | 
           | 
        
        
          | 2843 | 
              # Update the renewal count on the item, and tell zebra to reindex  | 
          2844 | 
              # Update the renewal count on the item, and tell zebra to reindex  | 
        
        
          | 2844 | 
              $renews = $item->{renewals} + 1; | 
          2845 | 
              $renews = $item->{renewals} + 1; | 
        
          
            
              | 2845 | 
                  ModItem({ renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber); | 
              2846 | 
                  ModItem( { renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber, 0 ); | 
            
        
          | 2846 | 
           | 
          2847 | 
           | 
        
        
          | 2847 | 
              # Charge a new rental fee, if applicable?  | 
          2848 | 
              # Charge a new rental fee, if applicable?  | 
        
        
          | 2848 | 
              my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber );  | 
          2849 | 
              my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber );  | 
        
  
    | 
      
            Lines 3718-3724
          sub ProcessOfflineReturn {
      
      
        Link Here
      
     | 
  
        
          | 3718 | 
                      ModItem(  | 
          3719 | 
                      ModItem(  | 
        
        
          | 3719 | 
                          { renewals => 0, onloan => undef }, | 
          3720 | 
                          { renewals => 0, onloan => undef }, | 
        
        
          | 3720 | 
                          $issue->{'biblionumber'}, | 
          3721 | 
                          $issue->{'biblionumber'}, | 
        
          
            
              | 3721 | 
                              $itemnumber  | 
              3722 | 
                              $itemnumber,  | 
            
            
               | 
               | 
              3723 | 
                              0  | 
            
        
          | 3722 | 
                      );  | 
          3724 | 
                      );  | 
        
        
          | 3723 | 
                      return "Success.";  | 
          3725 | 
                      return "Success.";  | 
        
        
          | 3724 | 
                  } else { | 
          3726 | 
                  } else { |