Revision b3b1b699
Von Moritz Bunkus vor mehr als 12 Jahren hinzugefügt
| bin/mozilla/ustva.pl | ||
|---|---|---|
| 848 | 848 |
#file suffix |
| 849 | 849 |
$file .= '.xml'; |
| 850 | 850 |
$file =~ s|.*/||; |
| 851 |
$form->{tmpfile} = "$::lx_office_conf{paths}{userspath}/$file";
|
|
| 852 | 851 |
|
| 853 | 852 |
$form->{attachment_filename} = $file;
|
| 854 | 853 |
|
| ... | ... | |
| 894 | 893 |
# Define serveral filenames |
| 895 | 894 |
$form->{IN} = 'taxbird.txb';
|
| 896 | 895 |
|
| 897 |
$form->{attachment_filename} = "USTVA-" . $form->{period}
|
|
| 898 |
. sprintf("%02d", $form->{year} % 100) . ".txb";
|
|
| 896 |
$form->{attachment_filename} = "USTVA-" . ($form->{period} * 1) . sprintf("%02d", $form->{year} % 100) . ".txb";
|
|
| 899 | 897 |
|
| 900 | 898 |
$form->{attachment_filename} =~ s|.*/||;
|
| 901 |
$form->{tmpfile} = "$::lx_office_conf{paths}{userspath}/" . $form->{attachment_filename};
|
|
| 902 | 899 |
|
| 903 | 900 |
# TODO: set Output to UTF-8 or system Preference |
| 904 | 901 |
#$form->{"iconv"} = Text::Iconv->new($myconfig{dbcharset}, "UTF-8");
|
Auch abrufbar als: Unified diff
File::Temp für Erzeugung temporärer Dateinamen nutzen
Fix für Bug 1747.