From bcd1d3af33a27ea33cf50d54aaebe8338b4dab38 Mon Sep 17 00:00:00 2001 From: =?utf8?q?Sven=20Sch=C3=B6ling?= Date: Tue, 24 Apr 2007 15:03:36 +0000 Subject: [PATCH] edit_e_mail auf templates umgestellt --- bin/mozilla/io.pl | 129 +++--------------- locale/de/dn | 4 - locale/de/ic | 4 - locale/de/io | 5 - locale/de/ir | 5 - locale/de/is | 5 - locale/de/oe | 5 - templates/webpages/generic/edit_email_de.html | 74 ++++++++++ .../webpages/generic/edit_email_master.html | 74 ++++++++++ 9 files changed, 166 insertions(+), 139 deletions(-) create mode 100644 templates/webpages/generic/edit_email_de.html create mode 100644 templates/webpages/generic/edit_email_master.html diff --git a/bin/mozilla/io.pl b/bin/mozilla/io.pl index fa19d2547..ca6d96bcc 100644 --- a/bin/mozilla/io.pl +++ b/bin/mozilla/io.pl @@ -1256,33 +1256,21 @@ sub edit_e_mail { $form->{print_and_post} = 0; $form->{resubmit} = 0; } - if ($myconfig{role} eq 'admin') { - $bcc = qq| - - | . $locale->text('Bcc') . qq| - - -|; - } - if ($form->{formname} =~ /(pick|packing|bin)_list/) { - $form->{email} = $form->{shiptoemail} if $form->{shiptoemail}; - } + $form->{email} = $form->{shiptoemail} if $form->{shiptoemail} && $form->{formname} =~ /(pick|packing|bin)_list/; if ($form->{"cp_id"} && !$form->{"email"}) { CT->get_contact(\%myconfig, $form); $form->{"email"} = $form->{"cp_email"}; } - $name = $form->{ $form->{vc} }; - $name =~ s/--.*//g; - $title = $locale->text('E-mail') . " $name"; + $form->{ $form->{vc} } =~ /--/; + $title = $locale->text('E-mail') . " $`"; $form->{oldmedia} = $form->{media}; $form->{media} = "email"; - my %formname_translations = - ( + my %formname_translations = ( "bin_list" => $locale->text('Bin List'), "credit_note" => $locale->text('Credit Note'), "invoice" => $locale->text('Invoice'), @@ -1295,7 +1283,7 @@ sub edit_e_mail { "sales_quotation" => $locale->text('Quotation'), "storno_invoice" => $locale->text('Storno Invoice'), "storno_packing_list" => $locale->text('Storno Packing List'), - ); + ); my $attachment_filename = $formname_translations{$form->{"formname"}}; my $prefix; @@ -1315,107 +1303,26 @@ sub edit_e_mail { $form->{"format"} =~ /opendocument/i ? ".odt" : $form->{"format"} =~ /html/i ? ".html" : ""); $attachment_filename =~ s/ /_/g; - my %umlaute = - ( - "ä" => "ae", "ö" => "oe", "ü" => "ue", - "Ä" => "Ae", "Ö" => "Oe", "Ü" => "Ue", - "ß" => "ss" - ); - map({ $attachment_filename =~ s/$_/$umlaute{$_}/g; } keys(%umlaute)); + my %umlaute = ( "ä" => "ae", "ö" => "oe", "ü" => "ue", + "Ä" => "Ae", "Ö" => "Oe", "Ü" => "Ue", "ß" => "ss"); + map { $attachment_filename =~ s/$_/$umlaute{$_}/g } keys %umlaute; } else { $attachment_filename = ""; } - if ($form->{"email"}) { - $form->{"fokus"} = "Form.subject"; - } else { - $form->{"fokus"} = "Form.email"; - } + $form->{"fokus"} = $form->{"email"} ? "Form.subject" : "Form.email"; $form->header; - print qq| - - -
+ my (@nh, %nh, @hiddenkeys); + @nh = qw(action email cc bcc subject message formname sendmode format header override); $nh{@nh} = (1)x@nh; + @hidden_keys = grep { !$nh{$_} } grep { !ref $form->{$_} } keys %$form; - - - - - - - - - - - - - - - - - -
$title
- - - - - - - - - - $bcc - - - - - - - -
| . $locale->text('To') . qq|
| . $locale->text('Cc') . qq|
| . $locale->text('Subject') . qq|
| . $locale->text('Attachment name') . - qq|
-
- - - - - - - -
| . $locale->text('Message') . qq|
-
-|; - - print_options(); - - map { delete $form->{$_} } - qw(action email cc bcc subject message formname sendmode format header override); - - # save all other variables - foreach $key (keys %$form) { - $form->{$key} =~ s/\"/"/g; - print qq|\n|; - } - - print qq| -
- - - -
- -
- - - -|; + print $form->parse_html_template('generic/edit_email', + { title => $title, + a_filename => $attachment_filename, + _print_options_ => print_options('inline'), + HIDDEN => [ map +{ name => $_, value => $form->{$_} }, @hidden_keys ], + SHOW_BCC => $myconfig{role} eq 'admin' }); $lxdebug->leave_sub(); } diff --git a/locale/de/dn b/locale/de/dn index c88bd16b5..025f1fbe1 100644 --- a/locale/de/dn +++ b/locale/de/dn @@ -12,7 +12,6 @@ $self->{texts} = { 'Apr' => 'Apr', 'April' => 'April', 'Attachment' => 'als Anhang', - 'Attachment name' => 'Name des Anhangs', 'Attempt to call an undefined sub named \'%s\'' => 'Es wurde versucht, eine nicht definierte Unterfunktion namens \'%s\' aufzurufen.', 'Aug' => 'Aug', 'August' => 'August', @@ -21,7 +20,6 @@ $self->{texts} = { 'Billing Address' => 'Rechnungsadresse', 'Bin' => 'Lagerplatz', 'Bin List' => 'Lagerliste', - 'Cc' => 'Cc', 'City' => 'Stadt', 'Company Name' => 'Firmenname', 'Confirmation' => 'Auftragsbestätigung', @@ -100,7 +98,6 @@ gestartet', 'March' => 'März', 'May' => 'Mai', 'May ' => 'Mai', - 'Message' => 'Nachricht', 'Minimum Amount' => 'Mindestbetrag', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', @@ -190,7 +187,6 @@ gestartet', 'Storno Invoice' => 'Stornorechnung', 'Storno Packing List' => 'Stornolieferschein', 'Street' => 'Straße', - 'Subject' => 'Betreff', 'Subtotal' => 'Zwischensumme', 'Template' => 'Druckvorlage', 'Terms missing in row ' => '+Tage fehlen in Zeile ', diff --git a/locale/de/ic b/locale/de/ic index 0c67a35f2..8461d69a0 100644 --- a/locale/de/ic +++ b/locale/de/ic @@ -22,7 +22,6 @@ aktualisieren wollen?', 'Assemblies' => 'Erzeugnisse', 'Assembly Number missing!' => 'Erzeugnisnummer fehlt!', 'Attachment' => 'als Anhang', - 'Attachment name' => 'Name des Anhangs', 'Attempt to call an undefined sub named \'%s\'' => 'Es wurde versucht, eine nicht definierte Unterfunktion namens \'%s\' aufzurufen.', 'Aug' => 'Aug', 'August' => 'August', @@ -34,7 +33,6 @@ aktualisieren wollen?', 'Bought' => 'Gekauft', 'Buchungsgruppe' => 'Buchungsgruppe', 'Cannot delete item!' => 'Artikel kann nicht gelöscht werden!', - 'Cc' => 'Cc', 'City' => 'Stadt', 'Company Name' => 'Firmenname', 'Confirm!' => 'Bestätigen Sie!', @@ -111,7 +109,6 @@ aktualisieren wollen?', 'March' => 'März', 'May' => 'Mai', 'May ' => 'Mai', - 'Message' => 'Nachricht', 'Microfiche' => 'Mikrofilm', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', @@ -221,7 +218,6 @@ aktualisieren wollen?', 'Storno Invoice' => 'Stornorechnung', 'Storno Packing List' => 'Stornolieferschein', 'Street' => 'Straße', - 'Subject' => 'Betreff', 'Subtotal' => 'Zwischensumme', 'TOP100' => 'Top 100', 'The \'tag\' field must only consist of alphanumeric characters or the carachters - _ ( )' => 'Das Feld \'tag\' darf nur aus alphanumerischen Zeichen und den Zeichen - _ ( ) bestehen.', diff --git a/locale/de/io b/locale/de/io index c36bb967d..dec7e6169 100644 --- a/locale/de/io +++ b/locale/de/io @@ -10,7 +10,6 @@ $self->{texts} = { 'Apr' => 'Apr', 'April' => 'April', 'Attachment' => 'als Anhang', - 'Attachment name' => 'Name des Anhangs', 'Attempt to call an undefined sub named \'%s\'' => 'Es wurde versucht, eine nicht definierte Unterfunktion namens \'%s\' aufzurufen.', 'Aug' => 'Aug', 'August' => 'August', @@ -18,7 +17,6 @@ $self->{texts} = { 'Billing Address' => 'Rechnungsadresse', 'Bin' => 'Lagerplatz', 'Bin List' => 'Lagerliste', - 'Cc' => 'Cc', 'City' => 'Stadt', 'Company Name' => 'Firmenname', 'Confirmation' => 'Auftragsbestätigung', @@ -65,7 +63,6 @@ $self->{texts} = { 'March' => 'März', 'May' => 'Mai', 'May ' => 'Mai', - 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', @@ -141,10 +138,8 @@ $self->{texts} = { 'Storno Invoice' => 'Stornorechnung', 'Storno Packing List' => 'Stornolieferschein', 'Street' => 'Straße', - 'Subject' => 'Betreff', 'Subtotal' => 'Zwischensumme', 'The \'tag\' field must only consist of alphanumeric characters or the carachters - _ ( )' => 'Das Feld \'tag\' darf nur aus alphanumerischen Zeichen und den Zeichen - _ ( ) bestehen.', - 'To' => 'An', 'Trying to call a sub without a name' => 'Es wurde versucht, eine Unterfunktion ohne Namen aufzurufen.', 'Unit' => 'Einheit', 'Unknown dependency \'%s\'.' => 'Unbekannte Abhängigkeit \'%s\'.', diff --git a/locale/de/ir b/locale/de/ir index 261a8999b..9fa9b5424 100644 --- a/locale/de/ir +++ b/locale/de/ir @@ -15,7 +15,6 @@ $self->{texts} = { 'April' => 'April', 'Are you sure you want to delete Invoice Number' => 'Soll die Rechnung mit folgender Nummer wirklich gelöscht werden:', 'Attachment' => 'als Anhang', - 'Attachment name' => 'Name des Anhangs', 'Attempt to call an undefined sub named \'%s\'' => 'Es wurde versucht, eine nicht definierte Unterfunktion namens \'%s\' aufzurufen.', 'Aug' => 'Aug', 'August' => 'August', @@ -29,7 +28,6 @@ $self->{texts} = { 'Cannot post payment for a closed period!' => 'Es können keine Zahlungen für abgeschlossene Bücher gebucht werden!', 'Cannot post payment!' => 'Zahlung kann nicht gebucht werden!', 'Cannot storno storno invoice!' => 'Kann eine Stornorechnung nicht stornieren', - 'Cc' => 'Cc', 'City' => 'Stadt', 'Company Name' => 'Firmenname', 'Confirm!' => 'Bestätigen Sie!', @@ -100,7 +98,6 @@ $self->{texts} = { 'May' => 'Mai', 'May ' => 'Mai', 'Memo' => 'Memo', - 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', @@ -195,11 +192,9 @@ $self->{texts} = { 'Storno Invoice' => 'Stornorechnung', 'Storno Packing List' => 'Stornolieferschein', 'Street' => 'Straße', - 'Subject' => 'Betreff', 'Subtotal' => 'Zwischensumme', 'Tax Included' => 'Steuer im Preis inbegriffen', 'The \'tag\' field must only consist of alphanumeric characters or the carachters - _ ( )' => 'Das Feld \'tag\' darf nur aus alphanumerischen Zeichen und den Zeichen - _ ( ) bestehen.', - 'To' => 'An', 'Total' => 'Summe', 'Trying to call a sub without a name' => 'Es wurde versucht, eine Unterfunktion ohne Namen aufzurufen.', 'Unit' => 'Einheit', diff --git a/locale/de/is b/locale/de/is index b3fd7e128..f65d559bc 100644 --- a/locale/de/is +++ b/locale/de/is @@ -17,7 +17,6 @@ $self->{texts} = { 'April' => 'April', 'Are you sure you want to delete Invoice Number' => 'Soll die Rechnung mit folgender Nummer wirklich gelöscht werden:', 'Attachment' => 'als Anhang', - 'Attachment name' => 'Name des Anhangs', 'Attempt to call an undefined sub named \'%s\'' => 'Es wurde versucht, eine nicht definierte Unterfunktion namens \'%s\' aufzurufen.', 'Aug' => 'Aug', 'August' => 'August', @@ -32,7 +31,6 @@ $self->{texts} = { 'Cannot post payment for a closed period!' => 'Es können keine Zahlungen für abgeschlossene Bücher gebucht werden!', 'Cannot post payment!' => 'Zahlung kann nicht gebucht werden!', 'Cannot storno storno invoice!' => 'Kann eine Stornorechnung nicht stornieren', - 'Cc' => 'Cc', 'Choose Customer' => 'Endkunde wählen:', 'Choose Vendor' => 'Händler wählen', 'City' => 'Stadt', @@ -118,7 +116,6 @@ $self->{texts} = { 'May' => 'Mai', 'May ' => 'Mai', 'Memo' => 'Memo', - 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', @@ -221,11 +218,9 @@ $self->{texts} = { 'Storno Invoice' => 'Stornorechnung', 'Storno Packing List' => 'Stornolieferschein', 'Street' => 'Straße', - 'Subject' => 'Betreff', 'Subtotal' => 'Zwischensumme', 'Tax Included' => 'Steuer im Preis inbegriffen', 'The \'tag\' field must only consist of alphanumeric characters or the carachters - _ ( )' => 'Das Feld \'tag\' darf nur aus alphanumerischen Zeichen und den Zeichen - _ ( ) bestehen.', - 'To' => 'An', 'Total' => 'Summe', 'Trade Discount' => 'Rabatt', 'Trying to call a sub without a name' => 'Es wurde versucht, eine Unterfunktion ohne Namen aufzurufen.', diff --git a/locale/de/oe b/locale/de/oe index 4773bf208..26c95edf0 100644 --- a/locale/de/oe +++ b/locale/de/oe @@ -17,7 +17,6 @@ $self->{texts} = { 'Are you sure you want to delete Order Number' => 'Soll der Auftrag mit folgender Nummer wirklich gelöscht werden:', 'Are you sure you want to delete Quotation Number' => 'Sind Sie sicher, dass Angebotnummer gelöscht werden soll?', 'Attachment' => 'als Anhang', - 'Attachment name' => 'Name des Anhangs', 'Attempt to call an undefined sub named \'%s\'' => 'Es wurde versucht, eine nicht definierte Unterfunktion namens \'%s\' aufzurufen.', 'Aug' => 'Aug', 'August' => 'August', @@ -32,7 +31,6 @@ $self->{texts} = { 'Cannot delete quotation!' => 'Angebot kann nicht gelöscht werden!', 'Cannot save order!' => 'Auftrag kann nicht gespeichert werden!', 'Cannot save quotation!' => 'Angebot kann nicht gespeichert werden!', - 'Cc' => 'Cc', 'Choose Customer' => 'Endkunde wählen:', 'Choose Vendor' => 'Händler wählen', 'City' => 'Stadt', @@ -116,7 +114,6 @@ $self->{texts} = { 'Max. Dunning Level' => 'höchste Mahnstufe', 'May' => 'Mai', 'May ' => 'Mai', - 'Message' => 'Nachricht', 'Missing \'description\' field.' => 'Fehlendes Feld \'description\'.', 'Missing \'tag\' field.' => 'Fehlendes Feld \'tag\'.', 'More than one control file with the tag \'%s\' exist.' => 'Es gibt mehr als eine Kontrolldatei mit dem Tag \'%s\'.', @@ -223,12 +220,10 @@ $self->{texts} = { 'Storno Invoice' => 'Stornorechnung', 'Storno Packing List' => 'Stornolieferschein', 'Street' => 'Straße', - 'Subject' => 'Betreff', 'Subtotal' => 'Zwischensumme', 'Tax' => 'Steuer', 'Tax Included' => 'Steuer im Preis inbegriffen', 'The \'tag\' field must only consist of alphanumeric characters or the carachters - _ ( )' => 'Das Feld \'tag\' darf nur aus alphanumerischen Zeichen und den Zeichen - _ ( ) bestehen.', - 'To' => 'An', 'Total' => 'Summe', 'Trade Discount' => 'Rabatt', 'Trying to call a sub without a name' => 'Es wurde versucht, eine Unterfunktion ohne Namen aufzurufen.', diff --git a/templates/webpages/generic/edit_email_de.html b/templates/webpages/generic/edit_email_de.html new file mode 100644 index 000000000..620e34ce9 --- /dev/null +++ b/templates/webpages/generic/edit_email_de.html @@ -0,0 +1,74 @@ + + +
+ + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + +
An
Cc
Bcc
Betreff
Name des Anhangs
+
+ + + + + + + + +
Nachricht
+
+ + + + +
+ + + +
+ +
+ + + diff --git a/templates/webpages/generic/edit_email_master.html b/templates/webpages/generic/edit_email_master.html new file mode 100644 index 000000000..c4d683b6b --- /dev/null +++ b/templates/webpages/generic/edit_email_master.html @@ -0,0 +1,74 @@ + + +
+ + + + + + + + + + + + + + + + + + + + + +
+ + + + + + + + + + + + + + + + + + + + + + + +
To
Cc
Bcc
Subject
Attachment name
+
+ + + + + + + + +
Message
+
+ + + + +
+ + + +
+ +
+ + + -- 2.20.1