$vars->{$k} = $self->{VARS}->{$k};
}
my $data;
+# binmode( STDOUT, ":utf8" );
$template->process( $self->filename, $vars, \$data )
|| die "Template process failed: ", $template->error();
return $data;
my $key = shift;
my $val = shift;
utf8::encode($val) if utf8::is_utf8($val);
+ utf8::decode($val) if $key eq "XSLTBloc";
if ( ref($val) eq 'ARRAY' && !scalar @$val ) { $val = undef; }
elsif ( ref($val) eq 'HASH' && !scalar %$val ) { $val = undef; }
$self->{VARS}->{$key} = $val;
my $is_cdata = shift;
while($work){
-# warn "in text line is $line work is $work";
-# return if $work =~ m/^\s*$/;
# if there is a template_toolkit tag
if( $work =~ m/\[%.*?\]/ ){
#everything before this tag is text (or possibly CDATA), add a text token to tokens if $`
my $t = TmplToken->new( $&, TmplTokenType::DIRECTIVE, $line, $self->{filename} );
push @tokens, $t;
- #put work still to do back into work
+ # put work still to do back into work
$work = $' ? $' : 0;
} else {
-# warn "in the text else work is now $work";
- #If there is some left over work, treat it as text token
+ # If there is some left over work, treat it as text token
my $t = TmplToken->new( $work, ($is_cdata? TmplTokenType::CDATA : TmplTokenType::TEXT), $line, $self->{filename} );
push @tokens, $t;
last;
my $line = shift;
my $work = shift; #original text
my $is_cdata = shift;
-# warn "declaration work is $work";
my $t = TmplToken->new( $work, ($is_cdata? TmplTokenType::CDATA : TmplTokenType::TEXT), $line, $self->{filename} );
push @tokens, $t;
}
my $line = shift;
my $work = shift; #original text
my $is_cdata = shift;
-# warn "comment work is $work";
my $t = TmplToken->new( $work, ($is_cdata? TmplTokenType::CDATA : TmplTokenType::TEXT), $line, $self->{filename} );
push @tokens, $t;
}
my $line = shift;
my $work = shift; #original text
my $is_cdata = shift;
-# warn "comment work is $work";
my $t = TmplToken->new( $work, ($is_cdata? TmplTokenType::CDATA : TmplTokenType::TEXT), $line, $self->{filename} );
push @tokens, $t;
}
my $tag = shift;
my $hash = shift; #hash of attr/value pairs
my $text = shift; #origional text
-# warn "in start text is $text";
- # return if ! $interesting_tags{$tag};
- # was $hash->{$key}
- # print "#### " . $self->{filename} . " " . $tag . "####\n";
my $t = TmplToken->new( $text, TmplTokenType::TAG, $line, $self->{filename});
my %attr;
# tags seem to be uses in an 'interesting' way elsewhere..
my $tag = shift;
my $hash = shift;
my $text = shift;
-# warn "in end text is $text";
- # what format should this be in?
+ # what format should this be in?
my $t = TmplToken->new( $text, TmplTokenType::TAG, $line, $self->{filename} );
my %attr;
# tags seem to be uses in an 'interesting' way elsewhere..