| 
      
            Lines 171-176
          sub _get_template_file {
      
      
        Link Here
      
     | 
  
        
          | 171 | 
          sub gettemplate { | 
          171 | 
          sub gettemplate { | 
        
        
          | 172 | 
              my ( $tmplbase, $interface, $query, $is_plugin ) = @_;  | 
          172 | 
              my ( $tmplbase, $interface, $query, $is_plugin ) = @_;  | 
        
        
          | 173 | 
              ($query) or warn "no query in gettemplate";  | 
          173 | 
              ($query) or warn "no query in gettemplate";  | 
        
            
               | 
               | 
              174 | 
                  die "bad template path" unless $tmplbase =~ m/^[a-zA-Z0-9_\-\/]+\.(tt|pref)$/; # Will be extended on bug 17989  | 
            
        
          | 174 | 
              my $path = C4::Context->preference('intranet_includes') || 'includes'; | 
          175 | 
              my $path = C4::Context->preference('intranet_includes') || 'includes'; | 
        
        
          | 175 | 
              my ($htdocs, $theme, $lang, $filename)  | 
          176 | 
              my ($htdocs, $theme, $lang, $filename)  | 
        
        
          | 176 | 
                 =  _get_template_file($tmplbase, $interface, $query);  | 
          177 | 
                 =  _get_template_file($tmplbase, $interface, $query);  | 
        
            
              | 177 | 
              -   | 
               | 
               |