Revision 6a751412
Von Moritz Bunkus vor fast 18 Jahren hinzugefügt
| SL/Form.pm | ||
|---|---|---|
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
|
|
||
|
sub generate_attachment_filename {
|
||
|
my ($self) = @_;
|
||
|
sub get_formname_translation {
|
||
|
my ($self, $formname) = @_;
|
||
|
|
||
|
$formname ||= $self->{formname};
|
||
|
|
||
|
my %formname_translations = (
|
||
|
bin_list => $main::locale->text('Bin List'),
|
||
| ... | ... | |
|
storno_packing_list => $main::locale->text('Storno Packing List'),
|
||
|
);
|
||
|
|
||
|
my $attachment_filename = $formname_translations{$self->{"formname"}};
|
||
|
return $formname_translations{$formname}
|
||
|
}
|
||
|
|
||
|
sub generate_attachment_filename {
|
||
|
my ($self) = @_;
|
||
|
|
||
|
my $attachment_filename = $self->get_formname_translation();
|
||
|
my $prefix =
|
||
|
(grep { $self->{"type"} eq $_ } qw(invoice credit_note)) ? "inv"
|
||
|
: ($self->{"type"} =~ /_quotation$/) ? "quo"
|
||
| bin/mozilla/io.pl | ||
|---|---|---|
|
$form->{"email"} = $form->{"cp_email"};
|
||
|
}
|
||
|
|
||
|
$form->{ $form->{vc} } =~ /--/;
|
||
|
$title = $locale->text('E-mail') . " $`";
|
||
|
$title = $locale->text('E-mail') . " " . $form->get_formname_translation();
|
||
|
|
||
|
$form->{oldmedia} = $form->{media};
|
||
|
$form->{media} = "email";
|
||
Auch abrufbar als: Unified diff
Beim Versenden per Email eine anständige Überschrift anzeigen und nicht "email oe".