- $referer =~ /.*koha\/(.*)\.pl.*/;
- my $from = "help/$1.tmpl";
- my $htdocs = C4::Context->config('intrahtdocs');
-# my ( $theme, $lang ) = themelanguage( $htdocs, $from, "intranet" );
- my $theme = C4::Context->preference('template');
- my $lang = C4::Context->preference('language') || 'en';
-
- # if (! -e "$htdocs/$theme/$lang/$from") {
- # doesnt exist
- eval {
- open( OUTFILE, ">$htdocs/$theme/$lang/modules/$from" ) || die "Can't open file";
- };
- if ($@) {
- $error = "Cant open file $htdocs/$theme/$lang/modules/$from";
- }
- else {
-
+ 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