Revision c8d2687d
Von Sven Schöling vor fast 14 Jahren hinzugefügt
| SL/Template/Excel.pm | ||
|---|---|---|
| 47 | 47 |
|
| 48 | 48 |
my $contents = join("", @lines);
|
| 49 | 49 |
my @indices; |
| 50 |
$contents =~ s{
|
|
| 50 |
$contents =~ s%
|
|
| 51 | 51 |
$self->{tag_start} [<]* (\s?) [<>\s]* ([\w\s]+) [<>\s]* $self->{tag_end}
|
| 52 |
}{
|
|
| 52 |
%
|
|
| 53 | 53 |
$self->format_vars(align_right => $1 ne '', varstring => $2, length => length($&), indices => \@indices) |
| 54 |
}egx;
|
|
| 54 |
%egx;
|
|
| 55 | 55 |
|
| 56 | 56 |
if (!defined($contents)) {
|
| 57 | 57 |
$main::lxdebug->leave_sub(); |
| ... | ... | |
| 75 | 75 |
$varstring =~ s/(\w+)/ $self->_get_loop_variable($1, 0, @indices) /eg; |
| 76 | 76 |
my $old_string=$varstring; |
| 77 | 77 |
my $new_string = sprintf "%*s", ($align_right ? 1 : -1 ) * $length, $varstring; |
| 78 |
if (!defined($new_string) || $new_string eq ''){
|
|
| 79 |
$main::lxdebug->message(0, 'varstring' . $varstring . "old" . $old_string); |
|
| 80 |
# return substr $varstring, ($align_right ? (0, $length) : -$length); |
|
| 81 |
} |
|
| 82 | 78 |
return substr $new_string, ($align_right ? (0, $length) : -$length); |
| 83 | 79 |
} |
| 84 | 80 |
|
Auch abrufbar als: Unified diff
Log Spam.