projects
/
koha.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Bug 7598: [Follow-up] make strings in acquisitions JavaScript translatable
[koha.git]
/
edithelp.pl
diff --git
a/edithelp.pl
b/edithelp.pl
index
5cde314
..
de4e9b1
100755
(executable)
--- a/
edithelp.pl
+++ b/
edithelp.pl
@@
-67,7
+67,7
@@
sub _get_filepath ($;$) {
$referer =~ /koha\/(.*)\.pl/;
my $from = "help/$1.tt";
my $htdocs = C4::Context->config('intrahtdocs');
$referer =~ /koha\/(.*)\.pl/;
my $from = "help/$1.tt";
my $htdocs = C4::Context->config('intrahtdocs');
- my ($theme, $lang) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $input );
+ my ($theme, $lang
, $availablethemes
) = C4::Templates::themelanguage( $htdocs, $from, "intranet", $input );
$debug and print STDERR "help filepath: $htdocs/$theme/$lang/modules/$from";
return "$htdocs/$theme/$lang/modules/$from";
}
$debug and print STDERR "help filepath: $htdocs/$theme/$lang/modules/$from";
return "$htdocs/$theme/$lang/modules/$from";
}
@@
-96,7
+96,7
@@
elsif ( $type eq 'modify' ) {
$error = "Cannot read file: '$file'.";
} else {
(-w $file) or $error =
$error = "Cannot read file: '$file'.";
} 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.";
+ "WARNING: You will not be able
to
save, because your webserver cannot write to '$file'. Contact your admin about help file permissions.";
open (my $fh, '<', $file) or die "Cannot read file '$file'"; # unlikely death, since we just checked
my $help = '';
while ( <$fh> ) {
open (my $fh, '<', $file) or die "Cannot read file '$file'"; # unlikely death, since we just checked
my $help = '';
while ( <$fh> ) {