X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fadmin.pl;h=4e33ef200c80fedbd94c2434962d5c38103f5007;hb=991315859c7b0f25da49baad4822492510b6b3bb;hp=e936b2a12430c68d8f04527ea53e822502bbb511;hpb=d629acd82a27e980899a044ca8b0f4becc8e94bb;p=kivitendo-erp.git
diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl
index e936b2a12..4e33ef200 100644
--- a/bin/mozilla/admin.pl
+++ b/bin/mozilla/admin.pl
@@ -35,11 +35,16 @@
$menufile = "menu.ini";
use DBI;
+use CGI;
+
use SL::Form;
use SL::User;
+use SL::Common;
require "bin/mozilla/common.pl";
+our $cgi = new CGI('');
+
$form = new Form;
$form->{"root"} = "root login";
@@ -575,10 +580,6 @@ sub form_header {
| . $locale->text('Language') . qq| |
|
-
- | . $locale->text('Character Set') . qq| |
- |
-
| . $locale->text('Stylesheet') . qq| |
|
@@ -693,11 +694,6 @@ sub form_header {
@a = ;
close(FH);
- if (open(FH, "custom_$menufile")) {
- push @a, ;
- }
- close(FH);
-
foreach $item (@a) {
next unless $item =~ /\[/;
next if $item =~ /\#/;
@@ -970,6 +966,9 @@ sub save {
}
}
+ $form->{templates} =~ s|.*/||;
+ $form->{mastertemplates} =~ s|.*/||;
+
# create user template directory and copy master files
if (!-d "$form->{templates}") {
umask(002);
@@ -1471,24 +1470,24 @@ sub create_dataset {
}
closedir SQLDIR;
- $selectencoding = qq|