| 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 | -  |  |  |