| Lines 88-94
          BEGIN {
      
      
        Link Here | 
        
          | 88 | 		&GetRenewCount | 88 | 		&GetRenewCount | 
        
          | 89 |         &GetSoonestRenewDate | 89 |         &GetSoonestRenewDate | 
        
          | 90 |         &GetLatestAutoRenewDate | 90 |         &GetLatestAutoRenewDate | 
            
              | 91 | 		&GetItemIssue |  |  | 
        
          | 92 | 		&GetIssuingCharges | 91 | 		&GetIssuingCharges | 
        
          | 93 |         &GetBranchBorrowerCircRule | 92 |         &GetBranchBorrowerCircRule | 
        
          | 94 |         &GetBranchItemRule | 93 |         &GetBranchItemRule | 
  
    | Lines 2450-2494
          sub _GetCircControlBranch {
      
      
        Link Here | 
        
          | 2450 |     return $branch; | 2449 |     return $branch; | 
        
          | 2451 | } | 2450 | } | 
        
          | 2452 |  | 2451 |  | 
            
              | 2453 |  |  |  | 
            
              | 2454 |  | 
            
              | 2455 |  | 
            
              | 2456 |  | 
            
              | 2457 |  | 
            
              | 2458 | =head2 GetItemIssue | 
            
              | 2459 |  | 
            
              | 2460 |   $issue = &GetItemIssue($itemnumber); | 
            
              | 2461 |  | 
            
              | 2462 | Returns patron currently having a book, or undef if not checked out. | 
            
              | 2463 |  | 
            
              | 2464 | C<$itemnumber> is the itemnumber. | 
            
              | 2465 |  | 
            
              | 2466 | C<$issue> is a hashref of the row from the issues table. | 
            
              | 2467 |  | 
            
              | 2468 | =cut | 
            
              | 2469 |  | 
            
              | 2470 | sub GetItemIssue { | 
            
              | 2471 |     my ($itemnumber) = @_; | 
            
              | 2472 |     return unless $itemnumber; | 
            
              | 2473 |     my $sth = C4::Context->dbh->prepare( | 
            
              | 2474 |         "SELECT items.*, issues.* | 
            
              | 2475 |         FROM issues | 
            
              | 2476 |         LEFT JOIN items ON issues.itemnumber=items.itemnumber | 
            
              | 2477 |         WHERE issues.itemnumber=?"); | 
            
              | 2478 |     $sth->execute($itemnumber); | 
            
              | 2479 |     my $data = $sth->fetchrow_hashref; | 
            
              | 2480 |     return unless $data; | 
            
              | 2481 |     $data->{issuedate_sql} = $data->{issuedate}; | 
            
              | 2482 |     $data->{date_due_sql} = $data->{date_due}; | 
            
              | 2483 |     $data->{issuedate} = dt_from_string($data->{issuedate}, 'sql'); | 
            
              | 2484 |     $data->{issuedate}->truncate(to => 'minute'); | 
            
              | 2485 |     $data->{date_due} = dt_from_string($data->{date_due}, 'sql'); | 
            
              | 2486 |     $data->{date_due}->truncate(to => 'minute'); | 
            
              | 2487 |     my $dt = DateTime->now( time_zone => C4::Context->tz)->truncate( to => 'minute'); | 
            
              | 2488 |     $data->{'overdue'} = DateTime->compare($data->{'date_due'}, $dt ) == -1 ? 1 : 0; | 
            
              | 2489 |     return $data; | 
            
              | 2490 | } | 
            
              | 2491 |  | 
        
          | 2492 | =head2 GetOpenIssue | 2452 | =head2 GetOpenIssue | 
        
          | 2493 |  | 2453 |  | 
        
          | 2494 |   $issue = GetOpenIssue( $itemnumber ); | 2454 |   $issue = GetOpenIssue( $itemnumber ); | 
            
              | 2495 | -  |  |  |