| 
      
            Lines 56-75
          sub do_checkin {
      
      
        Link Here
      
     | 
  
        
          | 56 | 
              }  | 
          56 | 
              }  | 
        
        
          | 57 | 
              my $barcode = $self->{item}->id; | 
          57 | 
              my $barcode = $self->{item}->id; | 
        
        
          | 58 | 
           | 
          58 | 
           | 
        
          
            
              | 59 | 
                  $return_date =   substr( $return_date, 0, 4 )  | 
              59 | 
                  if ( $return_date ) { | 
            
            
              | 60 | 
                                 . '-'  | 
              60 | 
                      $return_date =   substr( $return_date, 0, 4 )  | 
            
            
              | 61 | 
                                 . substr( $return_date, 4, 2 )  | 
              61 | 
                                     . '-'  | 
            
            
              | 62 | 
                                 . '-'  | 
              62 | 
                                     . substr( $return_date, 4, 2 )  | 
            
            
              | 63 | 
                                 . substr( $return_date, 6, 2 )  | 
              63 | 
                                     . '-'  | 
            
            
              | 64 | 
                                 . q{ } | 
              64 | 
                                     . substr( $return_date, 6, 2 )  | 
            
            
              | 65 | 
                                 . substr( $return_date, 12, 2 )  | 
              65 | 
                                     . q{ } | 
            
            
              | 66 | 
                                 . ':'  | 
              66 | 
                                     . substr( $return_date, 12, 2 )  | 
            
            
              | 67 | 
                                 . substr( $return_date, 14, 2 )  | 
              67 | 
                                     . ':'  | 
            
            
              | 68 | 
                                 . ':'  | 
              68 | 
                                     . substr( $return_date, 14, 2 )  | 
            
            
              | 69 | 
                                 . substr( $return_date, 16, 2 );  | 
              69 | 
                                     . ':'  | 
            
            
               | 
               | 
              70 | 
                                     . substr( $return_date, 16, 2 );  | 
            
            
              | 71 | 
                      $return_date = dt_from_string($return_date);  | 
            
            
              | 72 | 
                  }  | 
            
        
          | 70 | 
           | 
          73 | 
           | 
        
        
          | 71 | 
              $debug and warn "do_checkin() calling AddReturn($barcode, $branch)";  | 
          74 | 
              $debug and warn "do_checkin() calling AddReturn($barcode, $branch)";  | 
        
          
            
              | 72 | 
                  my ($return, $messages, $issue, $borrower) = AddReturn($barcode, $branch, undef, dt_from_string($return_date));  | 
              75 | 
                  my ($return, $messages, $issue, $borrower) = AddReturn($barcode, $branch, undef, $return_date);  | 
            
        
          | 73 | 
           | 
          76 | 
           | 
        
        
          | 74 | 
              if ( $checked_in_ok ) { | 
          77 | 
              if ( $checked_in_ok ) { | 
        
        
          | 75 | 
                  delete $messages->{NotIssued}; | 
          78 | 
                  delete $messages->{NotIssued}; | 
        
            
              | 76 | 
              -   | 
               | 
               |