@a = <FH>;
close(FH);
- if (open(FH, "custom_$menufile")) {
- push @a, <FH>;
- }
- close(FH);
-
foreach $item (@a) {
next unless $item =~ /\[/;
next if $item =~ /\#/;
}
}
+ $form->{templates} =~ s|.*/||;
+ $form->{mastertemplates} =~ s|.*/||;
+
# create user template directory and copy master files
if (!-d "$form->{templates}") {
umask(002);