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