| Lines 773-795
          sub GetReserveStatus {
      
      
        Link Here | 
        
          | 773 |     my $dbh = C4::Context->dbh; | 773 |     my $dbh = C4::Context->dbh; | 
        
          | 774 |  | 774 |  | 
        
          | 775 |     my ($sth, $found, $priority); | 775 |     my ($sth, $found, $priority); | 
          
            
              | 776 |     if ( $itemnumber ) { | 776 |  | 
            
              | 777 |         $sth = $dbh->prepare("SELECT found, priority FROM reserves WHERE itemnumber = ? order by priority LIMIT 1"); | 777 |     if ( defined $itemnumber ) { | 
            
              |  |  | 778 |         # Search for item-level reserves | 
            
              | 779 |  | 
            
              | 780 |         $sth = $dbh->prepare(" | 
            
              | 781 |             SELECT found, priority | 
            
              | 782 |             FROM reserves | 
            
              | 783 |             WHERE itemnumber = ? | 
            
              | 784 |             ORDER BY priority | 
            
              | 785 |             LIMIT 1" | 
            
              | 786 |         ); | 
        
          | 778 |         $sth->execute($itemnumber); | 787 |         $sth->execute($itemnumber); | 
        
          | 779 |         ($found, $priority) = $sth->fetchrow_array; | 788 |         ($found, $priority) = $sth->fetchrow_array; | 
            
              |  |  | 789 |  | 
            
              | 790 |         if ( not defined $found and | 
            
              | 791 |              not defined $priority ) { | 
            
              | 792 |             # No item-level reserves, give biblio-level a try | 
            
              | 793 |             $biblionumber = GetBiblionumberFromItemnumber( $itemnumber ); | 
            
              | 794 |         } | 
        
          | 780 |     } | 795 |     } | 
        
          | 781 |  | 796 |  | 
          
            
              | 782 |     if ( $biblionumber and not defined $found and not defined $priority ) { | 797 |     if ( defined $biblionumber ) { | 
            
              | 783 |         $sth = $dbh->prepare("SELECT found, priority FROM reserves WHERE biblionumber = ? order by priority LIMIT 1"); | 798 |         # Search for biblio-level reserves | 
            
              |  |  | 799 |  | 
            
              | 800 |         $sth = $dbh->prepare(" | 
            
              | 801 |             SELECT found, priority | 
            
              | 802 |             FROM reserves | 
            
              | 803 |             WHERE biblionumber = ? | 
            
              | 804 |             ORDER BY priority | 
            
              | 805 |             LIMIT 1" | 
            
              | 806 |         ); | 
        
          | 784 |         $sth->execute($biblionumber); | 807 |         $sth->execute($biblionumber); | 
        
          | 785 |         ($found, $priority) = $sth->fetchrow_array; | 808 |         ($found, $priority) = $sth->fetchrow_array; | 
        
          | 786 |     } | 809 |     } | 
        
          | 787 |  | 810 |  | 
          
            
              | 788 |     if(defined $found) { | 811 |     if ( defined $found ) { | 
        
          | 789 |         return 'Waiting'  if $found eq 'W' and $priority == 0; | 812 |         return 'Waiting'  if $found eq 'W' and $priority == 0; | 
        
          | 790 |         return 'Finished' if $found eq 'F'; | 813 |         return 'Finished' if $found eq 'F'; | 
            
              |  |  | 814 |     } | 
            
              | 815 |  | 
            
              | 816 |     if ( defined $priority ) { | 
        
          | 791 |         return 'Reserved' if $priority > 0; | 817 |         return 'Reserved' if $priority > 0; | 
        
          | 792 |     } | 818 |     } | 
            
              |  |  | 819 |  | 
        
          | 793 |     return ''; | 820 |     return ''; | 
        
          | 794 |     #empty string here will remove need for checking undef, or less log lines | 821 |     #empty string here will remove need for checking undef, or less log lines | 
        
          | 795 | } | 822 | } | 
            
              | 796 | -  |  |  |