kivitendo/SL/Template/Excel.pm @ 4f152ed2
| 0fba3edd | Moritz Bunkus | package SL::Template::Excel;
|
||
| 94bc7ca3 | Sven Schöling | use strict;
|
||
| 439e45e4 | Moritz Bunkus | use parent qw(SL::Template::Simple);
|
||
| 0fba3edd | Moritz Bunkus | |||
sub new {
|
||||
my $type = shift;
|
||||
my $self = $type->SUPER::new(@_);
|
||||
return $self;
|
||||
}
|
||||
sub _init {
|
||||
my $self = shift;
|
||||
$self->{source} = shift;
|
||||
$self->{form} = shift;
|
||||
$self->{myconfig} = shift;
|
||||
$self->{userspath} = shift;
|
||||
$self->{error} = undef;
|
||||
$self->set_tag_style('<<', '>>');
|
||||
}
|
||||
sub get_mime_type() {
|
||||
my ($self) = @_;
|
||||
return "application/msexcel";
|
||||
}
|
||||
sub uses_temp_file {
|
||||
return 1;
|
||||
}
|
||||
sub parse {
|
||||
$main::lxdebug->enter_sub();
|
||||
my $self = shift;
|
||||
local *OUT = shift;
|
||||
my $form = $self->{"form"};
|
||||
open(IN, "$form->{templates}/$form->{IN}") or do { $self->{"error"} = "$!"; return 0; };
|
||||
my @lines = <IN>;
|
||||
close IN;
|
||||
my $contents = join("", @lines);
|
||||
my @indices;
|
||||
| c8d2687d | Sven Schöling | $contents =~ s%
|
||
| 0fba3edd | Moritz Bunkus | $self->{tag_start} [<]* (\s?) [<>\s]* ([\w\s]+) [<>\s]* $self->{tag_end}
|
||
| c8d2687d | Sven Schöling | %
|
||
| 0fba3edd | Moritz Bunkus | $self->format_vars(align_right => $1 ne '', varstring => $2, length => length($&), indices => \@indices)
|
||
| c8d2687d | Sven Schöling | %egx;
|
||
| 0fba3edd | Moritz Bunkus | |||
if (!defined($contents)) {
|
||||
$main::lxdebug->leave_sub();
|
||||
return 0;
|
||||
}
|
||||
print OUT $contents;
|
||||
$main::lxdebug->leave_sub();
|
||||
return 1;
|
||||
}
|
||||
sub format_vars {
|
||||
my ($self, %params) = @_;
|
||||
my $form = $self->{"form"};
|
||||
my @indices = @{ $params{indices} };
|
||||
my $align_right = $params{align_right};
|
||||
my $varstring = $params{varstring};
|
||||
my $length = $params{length};
|
||||
$varstring =~ s/(\w+)/ $self->_get_loop_variable($1, 0, @indices) /eg;
|
||||
my $old_string=$varstring;
|
||||
my $new_string = sprintf "%*s", ($align_right ? 1 : -1 ) * $length, $varstring;
|
||||
return substr $new_string, ($align_right ? (0, $length) : -$length);
|
||||
}
|
||||
1;
|