@@ -, +, @@ --- edithelp.pl | 32 +++++++++++++++++--------------- help.pl | 3 ++- 2 files changed, 19 insertions(+), 16 deletions(-) --- a/edithelp.pl +++ a/edithelp.pl @@ -41,7 +41,7 @@ my $error; my ( $template, $loggedinuser, $cookie ) = get_template_and_user( { - template_name => "help/edithelp.tmpl", + template_name => "help/edithelp.tt", query => $input, type => "intranet", authnotrequired => 0, @@ -63,29 +63,31 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user( sub _get_filepath ($;$) { my $referer = shift; - $referer =~ /.*koha\/(.+)\.pl.*/; - my $from = "help/$1.tmpl"; + $referer =~ /koha\/(.*)\.pl/; + my $from = "help/$1.tt"; my $htdocs = C4::Context->config('intrahtdocs'); my ($theme, $lang) = themelanguage( $htdocs, $from, "intranet", $input ); $debug and print STDERR "help filepath: $htdocs/$theme/$lang/modules/$from"; return "$htdocs/$theme/$lang/modules/$from"; } -if ( $type eq 'addnew' ) { - $type = 'create'; -} -elsif ( $type eq 'create' || $type eq 'save' ) { +$type = 'create' if $type eq 'addnew'; +if ( $type eq 'create' || $type eq 'save' ) { my $file = _get_filepath($referer); - unless (open (OUTFILE, ">$file")) {$error = "Cannot write file: '$file'";} else { - #open (OUTFILE, ">$file") or die "Cannot write file: '$file'"; # unlikely death, since we just checked + open my $fh, ">", $file; + if ( $fh ) { # file is open write to it - print OUTFILE "\n"; - print OUTFILE ($type eq 'create') ? "