Revision dc3cd296
Von Moritz Bunkus vor fast 17 Jahren hinzugefügt
| bin/mozilla/rp.pl | ||
|---|---|---|
| 1984 | 1984 |
|
| 1985 | 1985 |
$auth->assert('general_ledger');
|
| 1986 | 1986 |
|
| 1987 |
my %replacements = |
|
| 1988 |
( |
|
| 1989 |
"?" => "ae", "?" => "oe", "?" => "ue", |
|
| 1990 |
"?" => "Ae", "?" => "Oe", "?" => "Ue", |
|
| 1991 |
"?" => "ss", |
|
| 1992 |
" " => "_" |
|
| 1993 |
); |
|
| 1994 |
|
|
| 1995 |
foreach my $key (keys %replacements) {
|
|
| 1996 |
my $new_key = SL::Iconv::convert("ISO-8859-15", $dbcharset, $key);
|
|
| 1997 |
$replacements{$new_key} = $replacements{$key} if $new_key ne $key;
|
|
| 1998 |
} |
|
| 1999 |
|
|
| 2000 | 1987 |
$form->{statementdate} = $locale->date(\%myconfig, $form->{todate}, 1);
|
| 2001 | 1988 |
|
| 2002 | 1989 |
$form->{templates} = "$myconfig{templates}";
|
| ... | ... | |
| 2075 | 2062 |
$form->format_amount(\%myconfig, $form->{"${_}total"}, 2)
|
| 2076 | 2063 |
} (c0, c30, c60, c90, ""); |
| 2077 | 2064 |
|
| 2078 |
$form->{attachment_filename} = $locale->text("Statement") . "_$form->{todate}.$attachment_suffix";
|
|
| 2079 |
map({ $form->{attachment_filename} =~ s/$_/$replacements{$_}/g; } keys(%replacements));
|
|
| 2065 |
$form->{attachment_filename} = $locale->quote_special_chars('filenames', $locale->text("Statement") . "_$form->{todate}.$attachment_suffix");
|
|
| 2066 |
$form->{attachment_filename} =~ s/\s+/_/g;
|
|
| 2080 | 2067 |
|
| 2081 | 2068 |
$form->parse_template(\%myconfig, $userspath); |
| 2082 | 2069 |
|
Auch abrufbar als: Unified diff
Das Quoten/Unquoten von speziellen Zeichen in zentrale Hilfsfunktionen in Locale verlagert.