| 
      
            Lines 70-76
          BEGIN {
      
      
        Link Here
      
     | 
  
        
          | 70 | 
                GetBiblioItemData  | 
          70 | 
                GetBiblioItemData  | 
        
        
          | 71 | 
                GetBiblioItemInfosOf  | 
          71 | 
                GetBiblioItemInfosOf  | 
        
        
          | 72 | 
                GetBiblioItemByBiblioNumber  | 
          72 | 
                GetBiblioItemByBiblioNumber  | 
        
            
              | 73 | 
                    GetBiblionumberFromItemnumber  | 
               | 
               | 
            
        
          | 74 | 
           | 
          73 | 
           | 
        
        
          | 75 | 
                &GetRecordValue  | 
          74 | 
                &GetRecordValue  | 
        
        
          | 76 | 
           | 
          75 | 
           | 
        
  
    | 
      
            Lines 772-792
          sub GetBiblioItemByBiblioNumber {
      
      
        Link Here
      
     | 
  
        
          | 772 | 
              return @results;  | 
          771 | 
              return @results;  | 
        
        
          | 773 | 
          }  | 
          772 | 
          }  | 
        
        
          | 774 | 
           | 
          773 | 
           | 
        
            
              | 775 | 
              =head2 GetBiblionumberFromItemnumber  | 
               | 
               | 
            
            
              | 776 | 
               | 
            
            
              | 777 | 
               | 
            
            
              | 778 | 
              =cut  | 
            
            
              | 779 | 
               | 
            
            
              | 780 | 
              sub GetBiblionumberFromItemnumber { | 
            
            
              | 781 | 
                  my ($itemnumber) = @_;  | 
            
            
              | 782 | 
                  my $dbh            = C4::Context->dbh;  | 
            
            
              | 783 | 
                  my $sth            = $dbh->prepare("Select biblionumber FROM items WHERE itemnumber = ?"); | 
            
            
              | 784 | 
               | 
            
            
              | 785 | 
                  $sth->execute($itemnumber);  | 
            
            
              | 786 | 
                  my ($result) = $sth->fetchrow;  | 
            
            
              | 787 | 
                  return ($result);  | 
            
            
              | 788 | 
              }  | 
            
            
              | 789 | 
               | 
            
        
          | 790 | 
          =head2 GetISBDView   | 
          774 | 
          =head2 GetISBDView   | 
        
        
          | 791 | 
           | 
          775 | 
           | 
        
        
          | 792 | 
            $isbd = &GetISBDView({ | 
          776 | 
            $isbd = &GetISBDView({ | 
        
            
              | 793 | 
              -   | 
               | 
               |