View | Details | Raw Unified | Return to bug 6628
Collapse All | Expand All

(-)a/help.pl (-2 / +3 lines)
Lines 32-38 our $refer = $query->param('url'); Link Here
32
$refer = $query->referer()  if !$refer || $refer eq 'undefined';
32
$refer = $query->referer()  if !$refer || $refer eq 'undefined';
33
33
34
$refer =~ /koha\/(.*)\.pl/;
34
$refer =~ /koha\/(.*)\.pl/;
35
my $from = "help/$1.tt";
35
my $file = $1;
36
$file =~ s/[^a-zA-Z_\-\/]*//g; 
37
my $from = "help/$file.tt";
36
38
37
my $template = C4::Templates::gettemplate($from, 'intranet', $query);
39
my $template = C4::Templates::gettemplate($from, 'intranet', $query);
38
$template->param( referer => $refer );
40
$template->param( referer => $refer );
39
- 

Return to bug 6628