56 |
56 |
use SL::DO;
|
57 |
57 |
use SL::IC;
|
58 |
58 |
use SL::IS;
|
|
59 |
use SL::Locale;
|
59 |
60 |
use SL::Mailer;
|
60 |
61 |
use SL::Menu;
|
61 |
62 |
use SL::MoreCommon qw(uri_encode uri_decode);
|
... | ... | |
1241 |
1242 |
|
1242 |
1243 |
$formname ||= $self->{formname};
|
1243 |
1244 |
|
|
1245 |
$self->{recipient_locale} ||= Locale->lang_to_locale($self->{language});
|
|
1246 |
my $recipient_locale = Locale->new($self->{recipient_locale});
|
|
1247 |
|
1244 |
1248 |
my %formname_translations = (
|
1245 |
|
bin_list => $main::locale->text('Bin List'),
|
1246 |
|
credit_note => $main::locale->text('Credit Note'),
|
1247 |
|
invoice => $main::locale->text('Invoice'),
|
1248 |
|
pick_list => $main::locale->text('Pick List'),
|
1249 |
|
proforma => $main::locale->text('Proforma Invoice'),
|
1250 |
|
purchase_order => $main::locale->text('Purchase Order'),
|
1251 |
|
request_quotation => $main::locale->text('RFQ'),
|
1252 |
|
sales_order => $main::locale->text('Confirmation'),
|
1253 |
|
sales_quotation => $main::locale->text('Quotation'),
|
1254 |
|
storno_invoice => $main::locale->text('Storno Invoice'),
|
1255 |
|
sales_delivery_order => $main::locale->text('Delivery Order'),
|
1256 |
|
purchase_delivery_order => $main::locale->text('Delivery Order'),
|
1257 |
|
dunning => $main::locale->text('Dunning'),
|
|
1249 |
bin_list => $recipient_locale->text('Bin List'),
|
|
1250 |
credit_note => $recipient_locale->text('Credit Note'),
|
|
1251 |
invoice => $recipient_locale->text('Invoice'),
|
|
1252 |
pick_list => $recipient_locale->text('Pick List'),
|
|
1253 |
proforma => $recipient_locale->text('Proforma Invoice'),
|
|
1254 |
purchase_order => $recipient_locale->text('Purchase Order'),
|
|
1255 |
request_quotation => $recipient_locale->text('RFQ'),
|
|
1256 |
sales_order => $recipient_locale->text('Confirmation'),
|
|
1257 |
sales_quotation => $recipient_locale->text('Quotation'),
|
|
1258 |
storno_invoice => $recipient_locale->text('Storno Invoice'),
|
|
1259 |
sales_delivery_order => $recipient_locale->text('Delivery Order'),
|
|
1260 |
purchase_delivery_order => $recipient_locale->text('Delivery Order'),
|
|
1261 |
dunning => $recipient_locale->text('Dunning'),
|
1258 |
1262 |
);
|
1259 |
1263 |
|
1260 |
1264 |
$main::lxdebug->leave_sub();
|
1261 |
|
return $formname_translations{$formname}
|
|
1265 |
return $formname_translations{$formname};
|
1262 |
1266 |
}
|
1263 |
1267 |
|
1264 |
1268 |
sub get_number_prefix_for_type {
|
... | ... | |
1294 |
1298 |
$main::lxdebug->enter_sub();
|
1295 |
1299 |
my ($self) = @_;
|
1296 |
1300 |
|
|
1301 |
$self->{recipient_locale} ||= Locale->lang_to_locale($self->{language});
|
|
1302 |
my $recipient_locale = Locale->new($self->{recipient_locale});
|
|
1303 |
|
1297 |
1304 |
my $attachment_filename = $main::locale->unquote_special_chars('HTML', $self->get_formname_translation());
|
1298 |
1305 |
my $prefix = $self->get_number_prefix_for_type();
|
1299 |
1306 |
|
1300 |
1307 |
if ($self->{preview} && (first { $self->{type} eq $_ } qw(invoice credit_note))) {
|
1301 |
|
$attachment_filename .= ' (' . $main::locale->text('Preview') . ')' . $self->get_extension_for_format();
|
|
1308 |
$attachment_filename .= ' (' . $recipient_locale->text('Preview') . ')' . $self->get_extension_for_format();
|
1302 |
1309 |
|
1303 |
1310 |
} elsif ($attachment_filename && $self->{"${prefix}number"}) {
|
1304 |
1311 |
$attachment_filename .= "_" . $self->{"${prefix}number"} . $self->get_extension_for_format();
|
Fix Bug 1735
Dateinamen werden mit de, en, oder fr uebersetzt, wenn eine entsprechung zur ausgewaehlten Kundensprache existiert.
Default/Fallback = de