From f57e6ef8962a51d01f67def9112d7cbacb45d8e9 Mon Sep 17 00:00:00 2001
From: io <>
Date: Sat, 29 Jan 2005 04:21:38 +0000
Subject: [PATCH] css complete
---
ezmlm-web/trunk/css/default.css | 185 ++++++++++++++---
ezmlm-web/trunk/ezmlm-web.cgi | 345 +++++++++++++++++++++-----------
ezmlm-web/trunk/lang/de.pm | 2 +-
3 files changed, 391 insertions(+), 141 deletions(-)
diff --git a/ezmlm-web/trunk/css/default.css b/ezmlm-web/trunk/css/default.css
index 494fe05..ff52259 100644
--- a/ezmlm-web/trunk/css/default.css
+++ b/ezmlm-web/trunk/css/default.css
@@ -19,30 +19,6 @@ a:visited {
color: #8888ff;
}
-#warning {
- text-decoration: blink;
- color: #ff0000;
- float: left;
- }
-
-table.error {
- width: 99%;
- }
-
-table.error td {
- padding: 5px;
- text-align: center;
- background-color: #e0e0ff;
- }
-
-table.error h2 {
- color: #ff0000;
- }
-
-table.error p.msg {
- font-weight: bold;
- }
-
strong.big {
font-size: large;
}
@@ -77,3 +53,164 @@ table.big-pad td {
table.small-pad td {
padding: 5px;
}
+
+
+/*********************** general **************************/
+
+used classes for containers:
+ title - heading of most pages (except main)
+ list - list of subscribers/mailinglists/moderators/...
+ add_remove - buttons and fields to manipulate such lists
+ info - explanations
+ question - buttons to answer a question
+ options - various possibilities (buttons)
+ input - group of form fields
+ container - includes all other containers on a page
+
+low-level classes (for "span"):
+ button
+ formfield
+ checkbox
+ help
+
+and a special div:
+ error
+
+************************************************************/
+
+div.container {
+ margin-left: auto;
+ margin-right: auto;
+ }
+
+div.add_remove span.button {
+ width: auto;
+ margin-top: 0px;
+ }
+
+div.add_remove span.formfield {
+ width: auto;
+ margin: 0px;
+ padding: 0px;
+ }
+
+div.list {
+ padding: 10px;
+ text-align: center;
+ float: left;
+ }
+
+p.warning {
+ text-decoration: blink;
+ color: #ff0000;
+ text-align: center;
+ }
+
+span.help {
+ font-size: -1;
+ }
+
+/************************ main page ***********************
+name of container: main
+available classes: list info add_remove
+**********************************************************/
+
+
+
+
+
+/******************* confirm delete page *******************
+name of container: delete
+available classes: title button
+***********************************************************/
+
+
+
+
+
+/************************* edit page ***********************
+name of container: edit
+availbale classes: title list add_remove options
+***********************************************************/
+
+
+
+
+
+/********* allow/deny/moderators/digests page **************
+name of container: parts
+available classes: title info list add_remove
+***********************************************************/
+
+
+
+
+
+/******************* create list page **********************
+name of container: create
+available classes: title input question
+***********************************************************/
+
+#create div.input span.formfield {
+ text-weight: bold;
+ text-size: large;
+ margin-left: 0px;
+ margin-right: auto;
+ }
+
+
+
+/********************* config page *************************
+name of container: config
+available classes: title info input question
+***********************************************************/
+
+#config div.info {
+ text-size: large;
+ text-weight: bold;
+ }
+
+#config div.input span.formfield {
+ text-weight: bold;
+ margin-left: 0px;
+ margin-right: auto;
+ }
+
+
+/******************** textfiles ****************************
+name of container: textfiles
+available classes: list info question
+***********************************************************/
+
+
+
+
+
+/******************** edittext *****************************
+name of container: edittext
+available classes: title input info question
+***********************************************************/
+
+#edittext div.input {
+ float:left;
+ }
+
+
+
+/**************** error messages **************************/
+
+div.error {
+ width: 99%;
+ padding: 5px;
+ text-align: center;
+ background-color: #e0e0ff;
+ }
+
+div.error h2 {
+ color: #ff0000;
+ }
+
+div.error p.msg {
+ font-weight: bold;
+ }
+
diff --git a/ezmlm-web/trunk/ezmlm-web.cgi b/ezmlm-web/trunk/ezmlm-web.cgi
index c8f9f36..c3e9a65 100755
--- a/ezmlm-web/trunk/ezmlm-web.cgi
+++ b/ezmlm-web/trunk/ezmlm-web.cgi
@@ -279,20 +279,28 @@ sub select_list {
# Keep selection box a resonable size - suggested by Sebastian Andersson
$scrollsize = 25 if(($scrollsize = $#lists + 1) > 25);
+ # Begin of content
+ print '
';
+
# Print a form
$q->delete_all;
print $q->startform;
print $q->hidden(-name=>'state', -default=>'select');
- print '
';
- print $q->scrolling_list(-name=>'list', -size=>$scrollsize, -values=>\@lists) if defined(@lists);
-
- print ' | ', $LANGUAGE{'chooselistinfo'};
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'create'}]"), ' ' if ((&webauth_create_allowed == 0) || (!defined($opt_c)));
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'edit'}]"), ' ' if(defined(@lists));
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'delete'}]") if(defined(@lists));
- print ' |
|
';
+ print '';
+ print $q->scrolling_list(-name=>'list', -size=>$scrollsize, -values=>\@lists) if defined(@lists);
+ print '
'; # end of main_mainlinglists_list
+
+ print '', $LANGUAGE{'chooselistinfo'}, '
'; # explanation of options
+
+ print '';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'create'}]"), '' if ((&webauth_create_allowed == 0) || (!defined($opt_c)));
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'edit'}]"), '' if(defined(@lists));
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'delete'}]"), '' if(defined(@lists));
+ print '
'; # end of main_buttons
print $q->endform;
+
+ print ''; # end of content
}
# ------------------------------------------------------------------------
@@ -300,14 +308,25 @@ sub select_list {
sub confirm_delete {
# Make sure that the user really does want to delete the list!
+ # Begin of content
+ print '';
+
# Print a form ...
$q->delete('state');
print $q->startform;
print $q->hidden(-name=>'state', -default=>'confirm_delete');
print $q->hidden(-name=>'list', -default=>$q->param('list'));
- print '
', $LANGUAGE{'confirmdelete'}, ' ', $q->param('list'), '
';
- print $q->submit(-name=>'confirm', -value=>"[$BUTTON{'no'}]"), ' ';
- print $q->submit(-name=>'confirm', -value=>"[$BUTTON{'yes'}]"), '
';
+
+ print '
";
+ print '
', $LANGUAGE{'confirmdelete'}, ' ', $q->param('list'), '
';
+ print ''; # end of delete->title
+
+ print '
';
+ print '', $q->submit(-name=>'confirm', -value=>"[$BUTTON{'no'}]"), '';
+ print '', $q->submit(-name=>'confirm', -value=>"[$BUTTON{'yes'}]"), '';
+ print '
'; # end of delete->question
+
+ print '
'; # enf of delete
}
# ------------------------------------------------------------------------
@@ -330,30 +349,49 @@ sub display_list {
# Print out a form of options ...
$q->delete('state');
- print "$LANGUAGE{'subscribersto'} $Q::list ($listaddress)
";
+
+ # Begin of content
+ print '';
+
+ print '
';
+ print "
$LANGUAGE{'subscribersto'} $Q::list
";
+ print "($listaddress)
";
+ print '
';
+ print ''; # end of edit->title
+
print $q->start_multipart_form;
- print '
';
print $q->hidden(-name=>'state', -default=>'edit');
print $q->hidden(-name=>'list', -default=>$Q::list);
+
+ print ' ';
print $q->scrolling_list(-name=>'delsubscriber', -size=>$scrollsize, -values=>\@subscribers, -labels=>&pretty_names, -multiple=>'true') if defined(@subscribers);
- print ' | ';
- print ' ', ($#subscribers + 1), ' ', $LANGUAGE{'subscribers'}, ' ' if defined(@subscribers);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), '' if defined(@subscribers);
- print $q->textfield(-name=>'addsubscriber', -size=>'40'), ' ';
- print $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' ' if ($FILE_UPLOAD);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), ' ';
- print '', $LANGUAGE{'additionalparts'}, ': ' if($list->ismodpost || $list->ismodsub || $list->isremote || $list->isdeny || $list->isallow || $list->isdigest);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'moderators'}]"), ' ' if ($list->ismodpost || $list->ismodsub || $list->isremote);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'denylist'}]"), ' ' if ($list->isdeny);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'allowlist'}]"), ' ' if ($list->isallow);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'digestsubscribers'}]"), ' ' if ($list->isdigest);
+ print ''; # end of edit->list
+
+ print ' ';
+ print ($#subscribers + 1), ' ', $LANGUAGE{'subscribers'} if defined(@subscribers);
+ print ' ', $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), '' if defined(@subscribers);
+ print ' ', $q->textfield(-name=>'addsubscriber', -size=>'40'), ' ';
+ print ' ', $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' ' if ($FILE_UPLOAD);
+ print ' ', $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), '';
+ print ' '; # end of edit->add_remove
+
+ print '';
+ print ' ', $LANGUAGE{'additionalparts'}, ':' if($list->ismodpost || $list->ismodsub || $list->isremote || $list->isdeny || $list->isallow || $list->isdigest);
print ' ';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'webarchive'}]"), ' ' if(&ezmlmcgirc);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'configuration'}]"), ' ';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'selectlist'}]");
- print ' |
|
';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'moderators'}]"), ' ' if ($list->ismodpost || $list->ismodsub || $list->isremote);
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'denylist'}]"), ' ' if ($list->isdeny);
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'allowlist'}]"), ' ' if ($list->isallow);
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'digestsubscribers'}]"), ' ' if ($list->isdigest);
+ print '';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'webarchive'}]"), ' ' if(&ezmlmcgirc);
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'configuration'}]"), ' ';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'selectlist'}]"), '';
+ print '
';
+ print ''; # end of edit->options
print $q->endform;
+ print ''; # end of edit
+
}
# ------------------------------------------------------------------------
@@ -556,15 +594,22 @@ sub part_subscribers {
my($subpath) = $config =~ m{8\s*'([^']+)'};
my($remotepath) = $config =~ m{9\s*'([^']+)'};
- $moderated = '' if ($postpath);
- $moderated .= "[$LANGUAGE{'posting'}]" if ($list->ismodpost);
- $moderated .= '
' if ($postpath);
- $moderated .= '' if ($subpath);
- $moderated .= " [$LANGUAGE{'subscription'}]" if($list->ismodsub);
- $moderated .= '
' if ($subpath);
- $moderated .= '' if ($remotepath);
- $moderated .= " [$LANGUAGE{'remoteadmin'}]" if($list->isremote);
- $moderated .= '
' if ($remotepath);
+ my($divclass);
+
+ $divclass = ($postpath)? 'warning' : 'ok';
+ $moderated .= "[$LANGUAGE{'posting'}]" if ($list->ismodpost);
+ $moderated .= '' if ($postpath);
+ $moderated .= '
' if ($list->ismodpost);
+
+ $divclass = ($subpath)? 'warning' : 'ok';
+ $moderated .= "[$LANGUAGE{'subscription'}]" if($list->ismodsub);
+ $moderated .= '' if ($subpath);
+ $moderated .= '
' if ($list->ismodsub);
+
+ $divclass = ($remotepath)? 'warning' : 'ok';
+ $moderated .= "[$LANGUAGE{'remoteadmin'}]" if($list->isremote);
+ $moderated .= '' if ($remotepath);
+ $moderated .= '
if ($list->isremote);
}
@@ -576,25 +621,38 @@ sub part_subscribers {
# Keep selection box a resonable size - suggested by Sebastian Andersson
$scrollsize = 25 if(($scrollsize = $#subscribers + 1) > 25);
+
+ # container for the content
+ print '';
# Print out a form of options ...
$q->delete('state');
- print "
$type $LANGUAGE{'for'} $listaddress
";
- print "
$moderated
" if(defined($moderated));
+
+ print '
';
+ print "
$type $LANGUAGE{'for'} $listaddress
";
+ print '
':
+ print ''; # end of parts_title
+
+ print '
', "$moderated", '
' if(defined($moderated));
+
print $q->start_multipart_form;
- print '
';
print $q->hidden(-name=>'state', -default=>$part);
print $q->hidden(-name=>'list', -default=>$Q::list), "\n";
- print $q->scrolling_list(-name=>'delsubscriber', -size=>$scrollsize, -values=>\@subscribers, -multiple=>'true', -labels=>&pretty_names) if defined(@subscribers);
- print ' |
';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), ' ' if defined(@subscribers);
- print $q->textfield(-name=>'addsubscriber', -size=>'40'), ' ';
- print $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' ' if ($FILE_UPLOAD);
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), ' ';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'subscribers'}]");
- print ' |
|
';
+
+ print '', $q->scrolling_list(-name=>'delsubscriber', -size=>$scrollsize, -values=>\@subscribers, -multiple=>'true', -labels=>&pretty_names), '
' if defined(@subscribers);
+
+ print '':
+ print '
', $q->submit(-name=>'action', -value=>"[$BUTTON{'deleteaddress'}]"), '' if defined(@subscribers);
+ print '
', $q->textfield(-name=>'addsubscriber', -size=>'40'), ' ';
+ print '
', $q->filefield(-name=>'addfile', -size=>20, -maxlength=>100), ' ' if ($FILE_UPLOAD);
+ print '
', $q->submit(-name=>'action', -value=>"[$BUTTON{'addaddress'}]"), '';
+ print '
', $q->submit(-name=>'action', -value=>"[$BUTTON{'subscribers'}]"), '';
+ print '
'; # end of parts_subscribers_actions
+
print $q->endform;
+ print ''; # end of parts
+
}
# ------------------------------------------------------------------------
@@ -617,37 +675,50 @@ sub allow_create_list {
$username = "$USER-" if ($USER ne $ALIAS_USER);
$hostname = $DEFAULT_HOST;
}
-
+
+ print '';
+
# Print a form of options ...
$q->delete_all;
- print '
', $LANGUAGE{'createnew'}, '
';
+
+ print '
';
+ print '
', $LANGUAGE{'createnew'}, '
';
+ print '
;
+ print ''; # end of create->title
+
print $q->startform;
print $q->hidden(-name=>'state', -value=>'create');
- print '
', $LANGUAGE{'listname'}, ': ', $q->textfield(-name=>'list', -size=>'20'), '
';
- print '', $LANGUAGE{'listaddress'}, ': ';
- print $q->textfield(-name=>'inlocal', -default=>$username, -size=>'10');
- print ' @ ', $q->textfield(-name=>'inhost', -default=>$hostname, -size=>'30'), ' ';
+
+ print '
'; # end of create->input
- print '
', $q->submit(-name=>'action', -value=>"[$BUTTON{'createlist'}]"), ' ';
- print $q->reset(-value=>"[$BUTTON{'resetform'}]"), ' ';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]");
- print '
';
+ print '
';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'createlist'}]"), '';
+ print '', $q->reset(-value=>"[$BUTTON{'resetform'}]"), '';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]"), '';
+ print '
'; # end of create->question
print $q->endform;
+
+ print '
'; # end of create
}
@@ -670,7 +741,7 @@ sub create_list {
# Sanity Checks ...
return 1 if ($listname eq '' || $qmail eq '');
if(-e ("$LIST_DIR/$listname/lock") || -e ("$HOME_DIR/.qmail-$qmail")) {
- print "List '$listname' already exists :(
";
+ print "List '$listname' already exists :(
";
return 1;
}
@@ -725,16 +796,29 @@ sub list_config {
$list = new Mail::Ezmlm("$LIST_DIR/$Q::list");
$listname = $q->param('list');
$listaddress = &this_listaddress;
-
+
+ # Begin of content
+ print '';
+
# Print a form of options ...
$q->delete_all;
- print '
', $LANGUAGE{'editconfiguration'}, '
';
+
+ print '
';
+ print '
', $LANGUAGE{'editconfiguration'}, '
';
+ print '
';
+ print ''; # end of config->title
+
print $q->startform;
print $q->hidden(-name=>'state', -value=>'configuration');
print $q->hidden(-name=>'list', -value=>$listname);
- print '
', $LANGUAGE{'listname'}, ": $listname
";
- print "$LANGUAGE{'listaddress'}: $listaddress";
- print '', $LANGUAGE{'listoptions'}, ':
';
+
+ print '
';
+ print '
', $LANGUAGE{'listname'}, ": $listname
";
+ print '
', "$LANGUAGE{'listaddress'}: $listaddress
";
+ print '
'; # end of config->info
+
+ print '
';
+ print '
', $LANGUAGE{'listoptions'}, ':
';
# Print a list of options, selecting the ones that apply to this list ...
&display_options($list->getconfig);
@@ -745,10 +829,10 @@ sub list_config {
$mimeremove = $list->getpart('mimeremove');
$prefix = $list->getpart('prefix');
- print '
', $LANGUAGE{'prefix'}, ': ', $q->textfield(-name=>'prefix', -default=>$prefix, -size=>12), ' ' if defined($prefix);
- print '
', $LANGUAGE{'headerremove'}, ':
', $q->textarea(-name=>'headerremove', -default=>$headerremove, -rows=>5, -columns=>70);
- print '
', $LANGUAGE{'headeradd'}, ':
', $q->textarea(-name=>'headeradd', -default=>$headeradd, -rows=>5, -columns=>70);
- print '
', $LANGUAGE{'mimeremove'}, ':
', $q->textarea(-name=>'mimeremove', -default=>$mimeremove, -rows=>5, -columns=>70) if defined($mimeremove);
+ print '', $LANGUAGE{'prefix'}, ': ', $q->textfield(-name=>'prefix', -default=>$prefix, -size=>12), ' ' if defined($prefix);
+ print '
', $LANGUAGE{'headerremove'}, ':
', $q->textarea(-name=>'headerremove', -default=>$headerremove, -rows=>5, -columns=>70), '';
+ print '', $LANGUAGE{'headeradd'}, ':
', $q->textarea(-name=>'headeradd', -default=>$headeradd, -rows=>5, -columns=>70), '
';
+ print '
', $LANGUAGE{'mimeremove'}, ':
', $q->textarea(-name=>'mimeremove', -default=>$mimeremove, -rows=>5, -columns=>70), '' if defined($mimeremove);
if(open(WEBUSER, "<$WEBUSERS_FILE")) {
my($webusers);
@@ -758,18 +842,24 @@ sub list_config {
close WEBUSER;
$webusers ||= $ENV{'REMOTE_USER'} || 'ALL';
- print '
', $LANGUAGE{'allowedtoedit'}, ': ',
- $q->textfield(-name=>'webusers', -value=>$webusers, -size=>'30'), ' ',
- '
', $HELPER{'allowedit'}, '';
+ print '', $LANGUAGE{'allowedtoedit'}, ': ';
+ print $q->textfield(-name=>'webusers', -value=>$webusers, -size=>'30');
+ print ' ',
+ print '', $HELPER{'allowedit'}, '';
}
+ print '
'; # end of config->input
+
+ print '';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'updateconfiguration'}]"), '';
+ print '', $q->reset(-value=>"[$BUTTON{'resetform'}]"), '';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]"), '';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'edittexts'}]"), '';
+ print '
'; # end of config->question
- print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'updateconfiguration'}]"), ' ';
- print $q->reset(-value=>"[$BUTTON{'resetform'}]"), ' ';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]"), ' ';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'edittexts'}]");
print $q->endform;
+ print ''; # end of config
}
# ------------------------------------------------------------------------
@@ -862,18 +952,31 @@ sub list_text {
@files = grep !/^\./, readdir DIR;
closedir DIR;
+ # Begin of content
+ print '
';
+
# Print a form ...
$q->delete('state');
print $q->startform;
print $q->hidden(-name=>'state', -default=>'list_text');
print $q->hidden(-name=>'list', -default=>$q->param('list'));
- print '
';
+
+ print ' ;
print $q->scrolling_list(-name=>'file', -values=>\@files);
- print ' | ';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'editfile'}]"), ' ';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]");
- print ' ', $LANGUAGE{'edittextinfo'}, ' |
|
';
+ print ''; # end of textfiles->list
+
+ print '';
+ print $LANGUAGE{'edittextinfo'};
+ print '
'; # end of textfiles->info
+
+ print '';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'editfile'}]"), '';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]"), '';
+ print '
'; # end of textfiles->question
+
print $q->endform;
+
+ print '';
}
@@ -886,23 +989,38 @@ sub edit_text {
my($list) = new Mail::Ezmlm("$LIST_DIR/$Q::list");
$content = $list->getpart("text/$Q::file");
+ # Begin of content
+ print '';
+
# Print a form ...
$q->delete('state');
+
+ print '
';
print '
', $LANGUAGE{'editingfile'}, ': ', $Q::file, '
';
- print '
';
+ print ''; # end of edittext->title
+
print $q->startform;
print $q->hidden(-name=>'state', -default=>'edit_text');
print $q->hidden(-name=>'list', -default=>$q->param('list'));
print $q->hidden(-name=>'file', -default=>$q->param('file'));
- print $q->textarea(-name=>'content', -default=>$content, -rows=>'25', -columns=>'72');
- print ' | ';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'savefile'}]"), ' ';
- print $q->reset(-value=>"[$BUTTON{'resetform'}]"), ' ';
- print $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]");
- print ' ', $LANGUAGE{'editfileinfo'};
- print $q->endform;
- print ' |
| |
'
+ print '
';
+ print '', $q->textarea(-name=>'content', -default=>$content, -rows=>'25', -columns=>'72'), '';
+ print '
'; # end of edittext->input
+
+ print '
';
+ print $LANGUAGE{'editfileinfo'};
+ print ''; # end of edittext->info
+
+ print '
';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'savefile'}]"), '';
+ print '', $q->reset(-value=>"[$BUTTON{'resetform'}]"), '';
+ print '', $q->submit(-name=>'action', -value=>"[$BUTTON{'cancel'}]"), '';
+ print '
'; # end of edittext->question
+
+ print $q->endform;
+
+ print '
'; # end of edittext
}
# ------------------------------------------------------------------------
@@ -965,37 +1083,32 @@ sub display_options {
my($i, $j);
print "";
- print '';
+ print ' ';
foreach $i (grep {/\D/} keys %EZMLM_LABELS) {
if ($opts =~ /^\w*$i\w*\s*/) {
- print $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0], -on=>'1');
+ print '', $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0], -on=>'1')';
} else {
- print $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0]);
+ print '', $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0]);
}
- print '';
+ print '';
print ' | '; $j++;
if ($j >= 3) {
- $j = 0; print '
';
+ $j = 0; print '';
}
- print '
';
}
- print ' |
';
+ print '';
- print '';
foreach $i (grep {/\d/} keys %EZMLM_LABELS) {
- print '';
+ print ' ';
if ($opts =~ /$i (?:'(.+?)')/) {
- print $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0], -on=>'1');
+ print '', $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0], -on=>'1');
} else {
- print $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0]);
+ print '', $q->checkbox(-name=>$i, -value=>$i, -label=>$EZMLM_LABELS{$i}[0]);
}
- print '';
- print ' | ';
- print $q->textfield(-name=>"$i-value", -value=>$1||$EZMLM_LABELS{$i}[2], -size=>30);
- print ' |
';
-
+ print '';
+ print '', $q->textfield(-name=>"$i-value", -value=>$1||$EZMLM_LABELS{$i}[2], -size=>30), '';
+ print '';
}
- print '
';
}
@@ -1050,7 +1163,7 @@ BEGIN {
sub handle_errors {
my $msg = shift;
print << "EOM";
-
+
A fatal error has occoured
Something you did caused this script to bail out. The error
message we got was
@@ -1059,7 +1172,7 @@ BEGIN {
If you still find yourself getting this error, please
contact the site administrator
quoting the error message above.
- |
+
EOM
}
diff --git a/ezmlm-web/trunk/lang/de.pm b/ezmlm-web/trunk/lang/de.pm
index 468900f..854ddfa 100644
--- a/ezmlm-web/trunk/lang/de.pm
+++ b/ezmlm-web/trunk/lang/de.pm
@@ -162,7 +162,7 @@
confirmdelete => 'Bestätige die Löschung von ', # list name
subscribersto => 'Abonnenten von', # list name
subscribers => 'Abonnenten',
- additionalparts => 'Weitere Listen-Bestandteile',
+ additionalparts => 'Weitere Optionen',
posting => 'Einsendungen',
subscription => 'Einschreibung',
remoteadmin => 'Entfernte AdministratorIn',