projekt kivitendo

##########################################################

####

#### ExcelTemplate

####

##########################################################

package ExcelTemplate;

use vars qw(@ISA);

@ISA = qw(SimpleTemplate);

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;

  $contents =~ s{

    $self->{tag_start} [<]* (\s?) [<>\s]* ([\w\s]+) [<>\s]* $self->{tag_end}

  }{

    $self->format_vars(align_right => $1 ne '', varstring => $2, length => length($&), indices =>  \@indices)

  }egx;

  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;

  if (!defined($new_string) || $new_string eq ''){

    $main::lxdebug->message(0, 'varstring' . $varstring . "old" . $old_string); 

    #  return substr $varstring, ($align_right ? (0, $length) : -$length);

  }

  return substr $new_string, ($align_right ? (0, $length) : -$length);

}