projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Standard-Auswahl für Umlaufvermögenskonto (Bank) mandantenweit setzen. Ferner yearend...
[kivitendo-erp.git]
/
SL
/
Locale.pm
diff --git
a/SL/Locale.pm
b/SL/Locale.pm
index
7f8b6c6
..
4fde616
100644
(file)
--- a/
SL/Locale.pm
+++ b/
SL/Locale.pm
@@
-213,7
+213,7
@@
sub text {
my $self = shift;
my $text = shift;
my $self = shift;
my $text = shift;
- if (
exists
$self->{texts}->{$text}) {
+ if ($self->{texts}->{$text}) {
$text = $self->{iconv}->convert($self->{texts}->{$text});
} else {
$text = $self->{iconv_english}->convert($text);
$text = $self->{iconv}->convert($self->{texts}->{$text});
} else {
$text = $self->{iconv_english}->convert($text);
@@
-462,14
+462,22
@@
sub remap_special_chars {
return $self->quote_special_chars($dst_format, $self->quote_special_chars("${src_format}-reverse", shift));
}
return $self->quote_special_chars($dst_format, $self->quote_special_chars("${src_format}-reverse", shift));
}
+sub raw_io_active {
+ my $self = shift;
+
+ return !!$self->{raw_io_active};
+}
+
sub with_raw_io {
my $self = shift;
my $fh = shift;
my $code = shift;
sub with_raw_io {
my $self = shift;
my $fh = shift;
my $code = shift;
+ $self->{raw_io_active} = 1;
binmode $fh, ":raw";
$code->();
binmode $fh, ":utf8" if $self->is_utf8;
binmode $fh, ":raw";
$code->();
binmode $fh, ":utf8" if $self->is_utf8;
+ $self->{raw_io_active} = 0;
}
1;
}
1;