| 
      
            Lines 47-53
          BEGIN {
      
      
        Link Here
      
     | 
  
        
          | 47 | 
                  &getFacets  | 
          47 | 
                  &getFacets  | 
        
        
          | 48 | 
                  &getnbpages  | 
          48 | 
                  &getnbpages  | 
        
        
          | 49 | 
          		&get_infos_of  | 
          49 | 
          		&get_infos_of  | 
        
            
              | 50 | 
              		&get_notforloan_label_of  | 
               | 
               | 
            
        
          | 51 | 
          		&getitemtypeimagedir  | 
          50 | 
          		&getitemtypeimagedir  | 
        
        
          | 52 | 
          		&getitemtypeimagesrc  | 
          51 | 
          		&getitemtypeimagesrc  | 
        
        
          | 53 | 
          		&getitemtypeimagelocation  | 
          52 | 
          		&getitemtypeimagelocation  | 
        
  
    | 
      
            Lines 704-761
          sub get_infos_of {
      
      
        Link Here
      
     | 
  
        
          | 704 | 
              return \%infos_of;  | 
          703 | 
              return \%infos_of;  | 
        
        
          | 705 | 
          }  | 
          704 | 
          }  | 
        
        
          | 706 | 
           | 
          705 | 
           | 
        
            
              | 707 | 
              =head2 get_notforloan_label_of  | 
               | 
               | 
            
            
              | 708 | 
               | 
            
            
              | 709 | 
                my $notforloan_label_of = get_notforloan_label_of();  | 
            
            
              | 710 | 
               | 
            
            
              | 711 | 
              Each authorised value of notforloan (information available in items and  | 
            
            
              | 712 | 
              itemtypes) is link to a single label.  | 
            
            
              | 713 | 
               | 
            
            
              | 714 | 
              Returns a href where keys are authorised values and values are corresponding  | 
            
            
              | 715 | 
              labels.  | 
            
            
              | 716 | 
               | 
            
            
              | 717 | 
                foreach my $authorised_value (keys %{$notforloan_label_of}) { | 
            
            
              | 718 | 
                  printf(  | 
            
            
              | 719 | 
                      "authorised_value: %s => %s\n",  | 
            
            
              | 720 | 
                      $authorised_value,  | 
            
            
              | 721 | 
                      $notforloan_label_of->{$authorised_value} | 
            
            
              | 722 | 
                  );  | 
            
            
              | 723 | 
                }  | 
            
            
              | 724 | 
               | 
            
            
              | 725 | 
              =cut  | 
            
            
              | 726 | 
               | 
            
            
              | 727 | 
              # FIXME - why not use GetAuthorisedValues ??  | 
            
            
              | 728 | 
              #  | 
            
            
              | 729 | 
              sub get_notforloan_label_of { | 
            
            
              | 730 | 
                  my $dbh = C4::Context->dbh;  | 
            
            
              | 731 | 
               | 
            
            
              | 732 | 
                  my $query = '  | 
            
            
              | 733 | 
              SELECT authorised_value  | 
            
            
              | 734 | 
                FROM marc_subfield_structure  | 
            
            
              | 735 | 
                WHERE kohafield = \'items.notforloan\'  | 
            
            
              | 736 | 
                LIMIT 0, 1  | 
            
            
              | 737 | 
              ';  | 
            
            
              | 738 | 
                  my $sth = $dbh->prepare($query);  | 
            
            
              | 739 | 
                  $sth->execute();  | 
            
            
              | 740 | 
                  my ($statuscode) = $sth->fetchrow_array();  | 
            
            
              | 741 | 
               | 
            
            
              | 742 | 
                  $query = '  | 
            
            
              | 743 | 
              SELECT lib,  | 
            
            
              | 744 | 
                     authorised_value  | 
            
            
              | 745 | 
                FROM authorised_values  | 
            
            
              | 746 | 
                WHERE category = ?  | 
            
            
              | 747 | 
              ';  | 
            
            
              | 748 | 
                  $sth = $dbh->prepare($query);  | 
            
            
              | 749 | 
                  $sth->execute($statuscode);  | 
            
            
              | 750 | 
                  my %notforloan_label_of;  | 
            
            
              | 751 | 
                  while ( my $row = $sth->fetchrow_hashref ) { | 
            
            
              | 752 | 
                      $notforloan_label_of{ $row->{authorised_value} } = $row->{lib}; | 
            
            
              | 753 | 
                  }  | 
            
            
              | 754 | 
                  $sth->finish;  | 
            
            
              | 755 | 
               | 
            
            
              | 756 | 
                  return \%notforloan_label_of;  | 
            
            
              | 757 | 
              }  | 
            
            
              | 758 | 
               | 
            
        
          | 759 | 
          =head2 GetAuthorisedValues  | 
          706 | 
          =head2 GetAuthorisedValues  | 
        
        
          | 760 | 
           | 
          707 | 
           | 
        
        
          | 761 | 
            $authvalues = GetAuthorisedValues([$category]);  | 
          708 | 
            $authvalues = GetAuthorisedValues([$category]);  | 
        
            
              | 762 | 
              -   | 
               | 
               |