Revision 00f9b4aa
Von Wulf vor fast 13 Jahren hinzugefügt
SL/Form.pm | ||
---|---|---|
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(); |
Auch abrufbar als: Unified diff
Fix Bug 1735
Dateinamen werden mit de, en, oder fr uebersetzt, wenn eine entsprechung zur ausgewaehlten Kundensprache existiert.
Default/Fallback = de