Lines 38-44
sub _help_template_file_of_url {
Link Here
|
38 |
return "help/$file.tt"; |
38 |
return "help/$file.tt"; |
39 |
} |
39 |
} |
40 |
|
40 |
|
41 |
my $query = new CGI; |
41 |
our $query = new CGI; |
|
|
42 |
|
43 |
# CP code for proof of concept Bug 18516, will need rework |
44 |
sub _get_filepath ($;$) { |
45 |
my $referer = shift; |
46 |
$referer =~ /koha\/(.*)\.pl/; |
47 |
my $file = $1; |
48 |
$file =~ s/[^0-9a-zA-Z_\-\/]*//g; |
49 |
my $from = "help/$file.tt"; |
50 |
my $htdocs = C4::Context->config('intrahtdocs'); |
51 |
my ($theme, $lang, $availablethemes) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); |
52 |
return "$htdocs/$theme/$lang/modules/$from"; |
53 |
} |
54 |
|
55 |
|
42 |
|
56 |
|
43 |
# Init the interface to get the correct language. |
57 |
# Init the interface to get the correct language. |
44 |
# This is usually set by get_template_and_user |
58 |
# This is usually set by get_template_and_user |
Lines 61-66
my $htdocs = C4::Context->config('intrahtdocs');
Link Here
|
61 |
# checking that the help file exist, otherwise, display nohelp.tt page |
75 |
# checking that the help file exist, otherwise, display nohelp.tt page |
62 |
my ( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); |
76 |
my ( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); |
63 |
|
77 |
|
|
|
78 |
#my $createfrom = $from; |
79 |
my $createfrom = _get_filepath($refer, 1); # 2nd argument triggers themelanguage call |
80 |
|
81 |
|
64 |
unless ( -e "$htdocs/$theme/$lang/modules/$from" ) { |
82 |
unless ( -e "$htdocs/$theme/$lang/modules/$from" ) { |
65 |
$from = "help/nohelp.tt"; |
83 |
$from = "help/nohelp.tt"; |
66 |
( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); |
84 |
( $theme, $lang ) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $query ); |
Lines 85-98
my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
Link Here
|
85 |
); |
103 |
); |
86 |
|
104 |
|
87 |
|
105 |
|
88 |
|
|
|
89 |
|
90 |
$template->param( |
106 |
$template->param( |
91 |
referer => $refer, |
107 |
referer => $refer, |
92 |
helpkey => $helpkey, |
108 |
helpkey => $helpkey, |
93 |
intranetstylesheet => C4::Context->preference("intranetstylesheet"), |
109 |
intranetstylesheet => C4::Context->preference("intranetstylesheet"), |
94 |
intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"), |
110 |
intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"), |
95 |
helpsystem => $helpsys, |
111 |
helpsystem => $helpsys, |
|
|
112 |
createfrom => $createfrom, |
96 |
); |
113 |
); |
97 |
|
114 |
|
98 |
if ( index($helpsys,'newsbased') != -1 || index ($helpsys,'filebased') != -1 ) { |
115 |
if ( index($helpsys,'newsbased') != -1 || index ($helpsys,'filebased') != -1 ) { |