X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;ds=sidebyside;f=bin%2Fmozilla%2Fadmin.pl;h=c2db1384dc5f9ec0c0504d03c53c0d63cb2ddb9c;hb=c046c42244acda83029d00cb06ff636063765fb2;hp=8cd79a4c558e747d2fea8726a3f17b0a0f82acb0;hpb=a1b353ecfa73af25d82af151077d9bc25253d253;p=kivitendo-erp.git diff --git a/bin/mozilla/admin.pl b/bin/mozilla/admin.pl index 8cd79a4c5..c2db1384d 100644 --- a/bin/mozilla/admin.pl +++ b/bin/mozilla/admin.pl @@ -440,11 +440,12 @@ sub form_header { } opendir TEMPLATEDIR, "$templates/." or $form->error("$templates : $!"); - @all = grep !/^\.\.?$/, readdir TEMPLATEDIR; + my @all = readdir(TEMPLATEDIR); + my @alldir = sort(grep({ -d "$templates/$_" && !/^\.\.?$/ } @all)); + my @allhtml = sort(grep({ -f "$templates/$_" && /\.html$/ } @all)); closedir TEMPLATEDIR; - @allhtml = sort grep /\.html/, @all; - @alldir = grep !/\.(html|tex|sty|odt)$/, @all; + @alldir = grep !/\.(html|tex|sty|odt|xml|txb)$/, @alldir; @alldir = grep !/^(webpages|\.svn)$/, @alldir; @allhtml = reverse grep !/Default/, @allhtml; @@ -473,7 +474,7 @@ sub form_header { } opendir CSS, "css/."; - @all = grep /.*\.css$/, readdir CSS; + @all = sort(grep({ /\.css$/ && ($_ ne "tabcontent.css") } readdir(CSS))); closedir CSS; foreach $item (@all) { @@ -483,12 +484,16 @@ sub form_header { $selectstylesheet .= qq|$item\n|; } } - $selectstylesheet .= "\n"; $form->header; - if ($myconfig->{menustyle} eq "neu") { $neu = "checked"; } - else { $old = "checked"; } + if ($myconfig->{menustyle} eq "v3") { + $menustyle_v3 = "checked"; + } elsif ($myconfig->{menustyle} eq "neu") { + $menustyle_neu = "checked"; + } else { + $menustyle_old = "checked"; + } print qq| @@ -503,16 +508,16 @@ sub form_header { | . $locale->text('Login') . qq| - + | . $locale->text('Password') . qq| - {password}> - {password}> + + | . $locale->text('Name') . qq| - + | . $locale->text('E-mail') . qq| @@ -539,8 +544,8 @@ sub form_header { $myconfig->{address} - | . $locale->text('Steuernummer') . qq| - + | . $locale->text('Tax number') . qq| + | . $locale->text('Ust-IDNr') . qq| @@ -596,8 +601,13 @@ sub form_header { | . $locale->text('Setup Menu') . qq| - New - Old + | . + $locale->text("Top (CSS)") . qq| + | . + $locale->text("Top (Javascript)") . qq| + | . + $locale->text("Old (on the side)") . qq| + {templates}> @@ -625,24 +635,25 @@ sub form_header { print qq| | . $locale->text('Driver') . qq| - $item + $item | . $locale->text('Host') . qq| - {"${item}_dbhost"}> + |; if ($item eq 'Pg') { + print qq| | . $locale->text('Dataset') . qq| - {Pg_dbname}> + | . $locale->text('Port') . qq| - {Pg_dbport}> + | . $locale->text('User') . qq| - {"${item}_dbuser"}> + | . $locale->text('Password') . qq| - {"${item}_dbpasswd"}> + |; } @@ -658,13 +669,13 @@ sub form_header { | . $locale->text('Dataset') . qq| {"${item}_dbuser"}> | . $locale->text('Password') . qq| - {"${item}_dbpasswd"}> + |; } print qq| - {dbpasswd}> + @@ -969,7 +980,7 @@ sub save { # copy templates to the directory opendir TEMPLATEDIR, "$templates/." or $form - error("$templates : $!"); - @templates = grep /$form->{mastertemplates}.*?\.(html|tex|sty)$/, + @templates = grep /$form->{mastertemplates}.*?\.(html|tex|sty|xml|txb)$/, readdir TEMPLATEDIR; closedir TEMPLATEDIR; @@ -1276,9 +1287,9 @@ sub dbselect_source { | . $locale->text('User') . qq| - {dbuser}> + | . $locale->text('Password') . qq| - + @@ -1301,10 +1312,11 @@ sub dbselect_source { - -|; +# Vorübergehend Deaktiviert +# +print qq| @@ -1368,12 +1380,12 @@ sub update_dataset { {script}> -{dbdriver}> -{dbhost}> -{dbport}> -{dbuser}> -{dbpasswd}> -{dbdefault}> + + + + + + | . $locale->text('The following Datasets need to be updated') . qq| @@ -1443,7 +1455,7 @@ sub dbupdate { -escape($form->{$_}); } qw(path rpw))) . qq|">| . $locale->text("Continue") . qq||; @@ -1456,7 +1468,7 @@ sub create_dataset { } opendir SQLDIR, "sql/." or $form - error($!); - foreach $item (sort grep /-chart\.sql/, readdir SQLDIR) { + foreach $item (sort grep /-chart\.sql\z/, readdir SQLDIR) { next if ($item eq 'Default-chart.sql'); $item =~ s/-chart\.sql//; push @charts, @@ -1465,21 +1477,22 @@ sub create_dataset { closedir SQLDIR; $selectencoding = qq| - ASCII - Japanese Extended UNIX Code - Chinese Extended UNIX Code - Korean Extended UNIX Code - Taiwan Extended UNIX Code - UTF-8 Unicode - Mule internal type - ISO 8859-1 - ISO 8859-2 - ISO 8859-3 - ISO 8859-4 - ISO 8859-5 - KOI8-R - Windows CP1251 - Windows CP866 + ASCII + Japanese Extended UNIX Code + Chinese Extended UNIX Code + Korean Extended UNIX Code + Taiwan Extended UNIX Code + UTF-8 Unicode + Mule internal type + ISO 8859-1 + ISO 8859-2 + ISO 8859-3 + ISO 8859-4 + ISO 8859-5 + ISO 8859-15 + KOI8-R + Windows CP1251 + Windows CP866 |; $form->{title} = @@ -1534,12 +1547,12 @@ sub create_dataset { -{dbdriver}> -{dbuser}> -{dbhost}> -{dbport}> -{dbpasswd}> -{dbdefault}> + + + + + + @@ -1650,12 +1663,12 @@ sub delete_dataset { -{dbdriver}> -{dbuser}> -{dbhost}> -{dbport}> -{dbpasswd}> -{dbdefault}> + + + + + +
-{dbdriver}> -{dbuser}> -{dbhost}> -{dbport}> -{dbpasswd}> -{dbdefault}> + + + + + + @@ -1650,12 +1663,12 @@ sub delete_dataset {
-{dbdriver}> -{dbuser}> -{dbhost}> -{dbport}> -{dbpasswd}> -{dbdefault}> + + + + + +