use strict;
use C4::Output;
+use C4::Templates;
use C4::Auth;
use CGI;
use warnings;
$referer =~ /koha\/(.*)\.pl/;
my $from = "help/$1.tt";
my $htdocs = C4::Context->config('intrahtdocs');
- my ($theme, $lang) = themelanguage( $htdocs, $from, "intranet", $input );
+ my ($theme, $lang) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $input );
$debug and print STDERR "help filepath: $htdocs/$theme/$lang/modules/$from";
return "$htdocs/$theme/$lang/modules/$from";
}
} else {
(-w $file) or $error =
"WARNING: You will not be able save, because your webserver cannot write to '$file'. Contact your admin about help file permissions.";
- open (INFILE, $file) or die "Cannot read file '$file'"; # unlikely death, since we just checked
+ open (my $fh, '<', $file) or die "Cannot read file '$file'"; # unlikely death, since we just checked
my $help = '';
- while ( my $inp = <INFILE> ) {
- unless ( $inp =~ /INCLUDE/ ) {
- $help .= $inp;
- }
+ while ( <$fh> ) {
+ $help .= /\[% INCLUDE .* %\](.*)$/ ? $1 : $_;
}
- close INFILE;
+ close $fh;
$template->param( 'help' => $help );
$type = 'save';
}