7 |
# $Id$ |
# $Id$ |
8 |
# |
# |
9 |
# $Log$ |
# $Log$ |
10 |
|
# Revision 1.4 2003/05/01 23:40:32 joko |
11 |
|
# minor update: commented debugging part |
12 |
|
# |
13 |
# Revision 1.3 2003/05/01 20:11:49 joko |
# Revision 1.3 2003/05/01 20:11:49 joko |
14 |
# * added pod from xupdate.pl |
# * added pod from xupdate.pl |
15 |
# - extracted xml to external files |
# - extracted xml to external files |
173 |
# FIXME: do DOM only! |
# FIXME: do DOM only! |
174 |
sub _apply { |
sub _apply { |
175 |
my $self = shift; |
my $self = shift; |
176 |
#print $self->get_stylesheet("_worker"), "\n"; |
|
177 |
|
# debug - print the calculated xsl on STDERR |
178 |
|
#print STDERR $self->get_stylesheet("_worker"), "\n"; |
179 |
|
|
180 |
#return; |
#return; |
181 |
$self->{XSLT_ENGINE_LIVE} = XML::XSLT->new( |
$self->{XSLT_ENGINE_LIVE} = XML::XSLT->new( |
182 |
Source => $self->get_stylesheet("_worker"), |
Source => $self->get_stylesheet("_worker"), |