| 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 2495-2539
          sub _GetCircControlBranch {
      
      
        Link Here | 
        
          | 2495 |     return $branch; | 2494 |     return $branch; | 
        
          | 2496 | } | 2495 | } | 
        
          | 2497 |  | 2496 |  | 
            
              | 2498 |  |  |  | 
            
              | 2499 |  | 
            
              | 2500 |  | 
            
              | 2501 |  | 
            
              | 2502 |  | 
            
              | 2503 | =head2 GetItemIssue | 
            
              | 2504 |  | 
            
              | 2505 |   $issue = &GetItemIssue($itemnumber); | 
            
              | 2506 |  | 
            
              | 2507 | Returns patron currently having a book, or undef if not checked out. | 
            
              | 2508 |  | 
            
              | 2509 | C<$itemnumber> is the itemnumber. | 
            
              | 2510 |  | 
            
              | 2511 | C<$issue> is a hashref of the row from the issues table. | 
            
              | 2512 |  | 
            
              | 2513 | =cut | 
            
              | 2514 |  | 
            
              | 2515 | sub GetItemIssue { | 
            
              | 2516 |     my ($itemnumber) = @_; | 
            
              | 2517 |     return unless $itemnumber; | 
            
              | 2518 |     my $sth = C4::Context->dbh->prepare( | 
            
              | 2519 |         "SELECT items.*, issues.* | 
            
              | 2520 |         FROM issues | 
            
              | 2521 |         LEFT JOIN items ON issues.itemnumber=items.itemnumber | 
            
              | 2522 |         WHERE issues.itemnumber=?"); | 
            
              | 2523 |     $sth->execute($itemnumber); | 
            
              | 2524 |     my $data = $sth->fetchrow_hashref; | 
            
              | 2525 |     return unless $data; | 
            
              | 2526 |     $data->{issuedate_sql} = $data->{issuedate}; | 
            
              | 2527 |     $data->{date_due_sql} = $data->{date_due}; | 
            
              | 2528 |     $data->{issuedate} = dt_from_string($data->{issuedate}, 'sql'); | 
            
              | 2529 |     $data->{issuedate}->truncate(to => 'minute'); | 
            
              | 2530 |     $data->{date_due} = dt_from_string($data->{date_due}, 'sql'); | 
            
              | 2531 |     $data->{date_due}->truncate(to => 'minute'); | 
            
              | 2532 |     my $dt = DateTime->now( time_zone => C4::Context->tz)->truncate( to => 'minute'); | 
            
              | 2533 |     $data->{'overdue'} = DateTime->compare($data->{'date_due'}, $dt ) == -1 ? 1 : 0; | 
            
              | 2534 |     return $data; | 
            
              | 2535 | } | 
            
              | 2536 |  | 
        
          | 2537 | =head2 GetOpenIssue | 2497 | =head2 GetOpenIssue | 
        
          | 2538 |  | 2498 |  | 
        
          | 2539 |   $issue = GetOpenIssue( $itemnumber ); | 2499 |   $issue = GetOpenIssue( $itemnumber ); | 
            
              | 2540 | -  |  |  |