}
elsif ( $type eq 'create' || $type eq 'save' ) {
my $file = _get_filepath($referer);
- if (! -w $file) {
- $error = "Cannot write file: '$file'";
- } else {
- open (OUTFILE, ">$file") or die "Cannot write file: '$file'"; # unlikely death, since we just checked
+ 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
# file is open write to it
print OUTFILE "<!-- TMPL_INCLUDE NAME=\"help-top.inc\" -->\n";
print OUTFILE ($type eq 'create') ? "<div class=\"main\">\n$help\n</div>" : $help;
close OUTFILE;
print $input->redirect("/cgi-bin/koha/help.pl?url=$oldreferer");
}
+
}
elsif ( $type eq 'modify' ) {
# open file load data, kill include calls, pass data to the template