| 
      
            Lines 66-71
          BEGIN {
      
      
        Link Here
      
     | 
  
        
          | 66 | 
                  GetItemsInfo  | 
          66 | 
                  GetItemsInfo  | 
        
        
          | 67 | 
          	GetItemsLocationInfo  | 
          67 | 
          	GetItemsLocationInfo  | 
        
        
          | 68 | 
          	GetHostItemsInfo  | 
          68 | 
          	GetHostItemsInfo  | 
        
            
               | 
               | 
              69 | 
                      GetItemnumbersForBiblio  | 
            
        
          | 69 | 
                  get_itemnumbers_of  | 
          70 | 
                  get_itemnumbers_of  | 
        
        
          | 70 | 
          	get_hostitemnumbers_of  | 
          71 | 
          	get_hostitemnumbers_of  | 
        
        
          | 71 | 
                  GetItemnumberFromBarcode  | 
          72 | 
                  GetItemnumberFromBarcode  | 
        
  
    | 
      
            Lines 1495-1500
          sub  GetLastAcquisitions {
      
      
        Link Here
      
     | 
  
        
          | 1495 | 
          	return @results;  | 
          1496 | 
          	return @results;  | 
        
        
          | 1496 | 
          }  | 
          1497 | 
          }  | 
        
        
          | 1497 | 
           | 
          1498 | 
           | 
        
            
               | 
               | 
              1499 | 
              =head2 GetItemnumberForBiblio  | 
            
            
              | 1500 | 
               | 
            
            
              | 1501 | 
                my @itemnumbers = GetItemnumbersForBiblio($biblionumber);  | 
            
            
              | 1502 | 
               | 
            
            
              | 1503 | 
              Given a single biblionumber, return an array of all the corresponding itemnumbers  | 
            
            
              | 1504 | 
               | 
            
            
              | 1505 | 
              =cut  | 
            
            
              | 1506 | 
               | 
            
            
              | 1507 | 
              sub GetItemnumbersForBiblio { | 
            
            
              | 1508 | 
                  my $biblionumber = shift;  | 
            
            
              | 1509 | 
                  my @items;  | 
            
            
              | 1510 | 
                  my $dbh = C4::Context->dbh;  | 
            
            
              | 1511 | 
                  my $sth = $dbh->prepare("SELECT itemnumber FROM items WHERE biblionumber = ?"); | 
            
            
              | 1512 | 
                  $sth->execute($biblionumber);  | 
            
            
              | 1513 | 
                  while (my $result = $sth->fetchrow_hashref) { | 
            
            
              | 1514 | 
                      push @items, $result->{'itemnumber'}; | 
            
            
              | 1515 | 
                  }  | 
            
            
              | 1516 | 
                  return \@items;  | 
            
            
              | 1517 | 
              }  | 
            
            
              | 1518 | 
               | 
            
        
          | 1498 | 
          =head2 get_itemnumbers_of  | 
          1519 | 
          =head2 get_itemnumbers_of  | 
        
        
          | 1499 | 
           | 
          1520 | 
           | 
        
        
          | 1500 | 
            my @itemnumbers_of = get_itemnumbers_of(@biblionumbers);  | 
          1521 | 
            my @itemnumbers_of = get_itemnumbers_of(@biblionumbers);  |