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