projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 7959 - Update OPAC suggestions interface to match lists
[koha.git]
/
edithelp.pl
diff --git
a/edithelp.pl
b/edithelp.pl
index
32db062
..
5cde314
100755
(executable)
--- a/
edithelp.pl
+++ b/
edithelp.pl
@@
-97,14
+97,12
@@
elsif ( $type eq 'modify' ) {
} 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.";
} 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 = '';
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';
}
$template->param( 'help' => $help );
$type = 'save';
}