| 
      
            Lines 68-74
          BEGIN {
      
      
        Link Here
      
     | 
  
        
          | 68 | 
                GetBiblioItemData  | 
          68 | 
                GetBiblioItemData  | 
        
        
          | 69 | 
                GetBiblioItemInfosOf  | 
          69 | 
                GetBiblioItemInfosOf  | 
        
        
          | 70 | 
                GetBiblioItemByBiblioNumber  | 
          70 | 
                GetBiblioItemByBiblioNumber  | 
        
            
              | 71 | 
                    GetBiblionumberFromItemnumber  | 
               | 
               | 
            
        
          | 72 | 
           | 
          71 | 
           | 
        
        
          | 73 | 
                &GetRecordValue  | 
          72 | 
                &GetRecordValue  | 
        
        
          | 74 | 
                &GetFieldMapping  | 
          73 | 
                &GetFieldMapping  | 
        
  
    | 
      
            Lines 831-851
          sub GetBiblioItemByBiblioNumber {
      
      
        Link Here
      
     | 
  
        
          | 831 | 
              return @results;  | 
          830 | 
              return @results;  | 
        
        
          | 832 | 
          }  | 
          831 | 
          }  | 
        
        
          | 833 | 
           | 
          832 | 
           | 
        
            
              | 834 | 
              =head2 GetBiblionumberFromItemnumber  | 
               | 
               | 
            
            
              | 835 | 
               | 
            
            
              | 836 | 
               | 
            
            
              | 837 | 
              =cut  | 
            
            
              | 838 | 
               | 
            
            
              | 839 | 
              sub GetBiblionumberFromItemnumber { | 
            
            
              | 840 | 
                  my ($itemnumber) = @_;  | 
            
            
              | 841 | 
                  my $dbh            = C4::Context->dbh;  | 
            
            
              | 842 | 
                  my $sth            = $dbh->prepare("Select biblionumber FROM items WHERE itemnumber = ?"); | 
            
            
              | 843 | 
               | 
            
            
              | 844 | 
                  $sth->execute($itemnumber);  | 
            
            
              | 845 | 
                  my ($result) = $sth->fetchrow;  | 
            
            
              | 846 | 
                  return ($result);  | 
            
            
              | 847 | 
              }  | 
            
            
              | 848 | 
               | 
            
        
          | 849 | 
          =head2 GetISBDView   | 
          833 | 
          =head2 GetISBDView   | 
        
        
          | 850 | 
           | 
          834 | 
           | 
        
        
          | 851 | 
            $isbd = &GetISBDView({ | 
          835 | 
            $isbd = &GetISBDView({ | 
        
            
              | 852 | 
              -   | 
               | 
               |