| 
      
            Lines 1397-1403
          sub AddIssue {
      
      
        Link Here
      
     | 
  
        
          | 1397 | 
                              datelastborrowed => DateTime->now( time_zone => C4::Context->tz() )->ymd(),  | 
          1397 | 
                              datelastborrowed => DateTime->now( time_zone => C4::Context->tz() )->ymd(),  | 
        
        
          | 1398 | 
                          },  | 
          1398 | 
                          },  | 
        
        
          | 1399 | 
                          $item->{'biblionumber'}, | 
          1399 | 
                          $item->{'biblionumber'}, | 
        
          
            
              | 1400 | 
                              $item->{'itemnumber'} | 
              1400 | 
                              $item->{'itemnumber'}, | 
            
            
               | 
               | 
              1401 | 
                              0  | 
            
        
          | 1401 | 
                      );  | 
          1402 | 
                      );  | 
        
        
          | 1402 | 
                      ModDateLastSeen( $item->{'itemnumber'} ); | 
          1403 | 
                      ModDateLastSeen( $item->{'itemnumber'} ); | 
        
        
          | 1403 | 
           | 
          1404 | 
           | 
        
  
    | 
      
            Lines 1830-1836
          sub AddReturn {
      
      
        Link Here
      
     | 
  
        
          | 1830 | 
                      $item->{location} = $item->{permanent_location}; | 
          1831 | 
                      $item->{location} = $item->{permanent_location}; | 
        
        
          | 1831 | 
                  }  | 
          1832 | 
                  }  | 
        
        
          | 1832 | 
           | 
          1833 | 
           | 
        
          
            
              | 1833 | 
                      ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'} ); | 
              1834 | 
                      ModItem( $item, $item->{'biblionumber'}, $item->{'itemnumber'}, 0 ); | 
            
        
          | 1834 | 
              }  | 
          1835 | 
              }  | 
        
        
          | 1835 | 
           | 
          1836 | 
           | 
        
        
          | 1836 | 
                  # full item data, but no borrowernumber or checkout info (no issue)  | 
          1837 | 
                  # full item data, but no borrowernumber or checkout info (no issue)  | 
        
  
    | 
      
            Lines 1854-1860
          sub AddReturn {
      
      
        Link Here
      
     | 
  
        
          | 1854 | 
                      foreach my $key ( keys %$rules ) { | 
          1855 | 
                      foreach my $key ( keys %$rules ) { | 
        
        
          | 1855 | 
                          if ( $item->{notforloan} eq $key ) { | 
          1856 | 
                          if ( $item->{notforloan} eq $key ) { | 
        
        
          | 1856 | 
                              $messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; | 
          1857 | 
                              $messages->{'NotForLoanStatusUpdated'} = { from => $item->{notforloan}, to => $rules->{$key} }; | 
        
          
            
              | 1857 | 
                                  ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber ); | 
              1858 | 
                                  ModItem( { notforloan => $rules->{$key} }, undef, $itemnumber, 0 ); | 
            
        
          | 1858 | 
                              last;  | 
          1859 | 
                              last;  | 
        
        
          | 1859 | 
                          }  | 
          1860 | 
                          }  | 
        
        
          | 1860 | 
                      }  | 
          1861 | 
                      }  | 
        
  
    | 
      
            Lines 1920-1926
          sub AddReturn {
      
      
        Link Here
      
     | 
  
        
          | 1920 | 
           | 
          1921 | 
           | 
        
        
          | 1921 | 
                  }  | 
          1922 | 
                  }  | 
        
        
          | 1922 | 
           | 
          1923 | 
           | 
        
          
            
              | 1923 | 
                      ModItem({ onloan => undef }, $item->{biblionumber}, $item->{'itemnumber'}); | 
              1924 | 
                      ModItem( { onloan => undef }, $item->{biblionumber}, $item->{itemnumber}, 0 ); | 
            
        
          | 1924 | 
              }  | 
          1925 | 
              }  | 
        
        
          | 1925 | 
           | 
          1926 | 
           | 
        
        
          | 1926 | 
              # the holdingbranch is updated if the document is returned to another location.  | 
          1927 | 
              # the holdingbranch is updated if the document is returned to another location.  | 
        
  
    | 
      
            Lines 2156-2162
          sub MarkIssueReturned {
      
      
        Link Here
      
     | 
  
        
          | 2156 | 
                  # And finally delete the issue  | 
          2157 | 
                  # And finally delete the issue  | 
        
        
          | 2157 | 
                  $issue->delete;  | 
          2158 | 
                  $issue->delete;  | 
        
        
          | 2158 | 
           | 
          2159 | 
           | 
        
          
            
              | 2159 | 
                      ModItem( { 'onloan' => undef }, undef, $itemnumber ); | 
              2160 | 
                      ModItem( { 'onloan' => undef }, undef, $itemnumber, 0 ); | 
            
        
          | 2160 | 
           | 
          2161 | 
           | 
        
        
          | 2161 | 
                  if ( C4::Context->preference('StoreLastBorrower') ) { | 
          2162 | 
                  if ( C4::Context->preference('StoreLastBorrower') ) { | 
        
        
          | 2162 | 
                      my $item = Koha::Items->find( $itemnumber );  | 
          2163 | 
                      my $item = Koha::Items->find( $itemnumber );  | 
        
  
    | 
      
            Lines 2395-2401
          sub _FixAccountForLostAndReturned {
      
      
        Link Here
      
     | 
  
        
          | 2395 | 
                  }  | 
          2396 | 
                  }  | 
        
        
          | 2396 | 
              );  | 
          2397 | 
              );  | 
        
        
          | 2397 | 
           | 
          2398 | 
           | 
        
          
            
              | 2398 | 
                  ModItem( { paidfor => '' }, undef, $itemnumber ); | 
              2399 | 
                  ModItem( { paidfor => '' }, undef, $itemnumber, 0 ); | 
            
        
          | 2399 | 
           | 
          2400 | 
           | 
        
        
          | 2400 | 
              return $credit_id;  | 
          2401 | 
              return $credit_id;  | 
        
        
          | 2401 | 
          }  | 
          2402 | 
          }  | 
        
  
    | 
      
            Lines 2820-2826
          sub AddRenewal {
      
      
        Link Here
      
     | 
  
        
          | 2820 | 
           | 
          2821 | 
           | 
        
        
          | 2821 | 
              # Update the renewal count on the item, and tell zebra to reindex  | 
          2822 | 
              # Update the renewal count on the item, and tell zebra to reindex  | 
        
        
          | 2822 | 
              $renews = $item->{renewals} + 1; | 
          2823 | 
              $renews = $item->{renewals} + 1; | 
        
          
            
              | 2823 | 
                  ModItem({ renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber); | 
              2824 | 
                  ModItem( { renewals => $renews, onloan => $datedue->strftime('%Y-%m-%d %H:%M')}, $item->{biblionumber}, $itemnumber, 0 ); | 
            
        
          | 2824 | 
           | 
          2825 | 
           | 
        
        
          | 2825 | 
              # Charge a new rental fee, if applicable?  | 
          2826 | 
              # Charge a new rental fee, if applicable?  | 
        
        
          | 2826 | 
              my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber );  | 
          2827 | 
              my ( $charge, $type ) = GetIssuingCharges( $itemnumber, $borrowernumber );  | 
        
  
    | 
      
            Lines 3699-3705
          sub ProcessOfflineReturn {
      
      
        Link Here
      
     | 
  
        
          | 3699 | 
                      ModItem(  | 
          3700 | 
                      ModItem(  | 
        
        
          | 3700 | 
                          { renewals => 0, onloan => undef }, | 
          3701 | 
                          { renewals => 0, onloan => undef }, | 
        
        
          | 3701 | 
                          $issue->{'biblionumber'}, | 
          3702 | 
                          $issue->{'biblionumber'}, | 
        
          
            
              | 3702 | 
                              $itemnumber  | 
              3703 | 
                              $itemnumber,  | 
            
            
               | 
               | 
              3704 | 
                              0  | 
            
        
          | 3703 | 
                      );  | 
          3705 | 
                      );  | 
        
        
          | 3704 | 
                      return "Success.";  | 
          3706 | 
                      return "Success.";  | 
        
        
          | 3705 | 
                  } else { | 
          3707 | 
                  } else { |