-
-
- | . $locale->text('To') . qq| |
- |
- | . $locale->text('Cc') . qq| |
- |
-
-
- | . $locale->text('Subject') . qq| |
- |
- $bcc
-
+
-
-
- | . $locale->text('Message') . qq| |
-
-
- |
-
+
+
+ | . $locale->text('Message') . qq| |
+
+
+ |
+
@@ -1347,21 +1420,21 @@ sub e_mail {
# save all other variables
foreach $key (keys %$form) {
$form->{$key} =~ s/\"/"/g;
- print qq|\n|;
+ print qq|\n|;
}
print qq|
-
|
+
|
-
+
-
@@ -1399,6 +1472,16 @@ sub print_options {
$myconfig{"copies"} ? $myconfig{"copies"} :
3;
+ $form->{"media"} =
+ $form->{"media"} ? $form->{"media"} :
+ $myconfig{"default_media"} ? $myconfig{"default_media"} :
+ "screen";
+
+ $form->{"printer_id"} =
+ defined($form->{"printer_id"}) ? $form->{"printer_id"} :
+ $myconfig{"default_printer_id"} ? $myconfig{"default_printer_id"} :
+ "";
+
$form->{PD}{ $form->{formname} } = "selected";
$form->{DF}{ $form->{format} } = "selected";
$form->{OP}{ $form->{media} } = "selected";
@@ -1532,11 +1615,12 @@ sub print_options {
}
if (scalar(keys (%{ $form->{printers} })) !=0) {
-
- $printer_select = qq| | |