From d7e58610fa995932bf4ed8982651f755935885bd Mon Sep 17 00:00:00 2001 From: Wolfram Schneider Date: Thu, 8 Apr 2010 15:14:56 +0000 Subject: [PATCH] print debugging informations --- lib/ZOOM/IRSpy.pm | 6 +++++- 1 file changed, 5 insertions(+), 1 deletion(-) diff --git a/lib/ZOOM/IRSpy.pm b/lib/ZOOM/IRSpy.pm index 0a4614a..16625d0 100644 --- a/lib/ZOOM/IRSpy.pm +++ b/lib/ZOOM/IRSpy.pm @@ -21,8 +21,9 @@ use ZOOM::IRSpy::Utils qw(cql_target render_record irspy_record2identifier); our @ISA = qw(); -our $VERSION = '1.01'; +our $VERSION = '1.02'; our $irspy_to_zeerex_xsl = dirname(__FILE__) . '/../../xsl/irspy2zeerex.xsl'; +our $debug = 0; our $xslt_max_depth = 250; @@ -69,6 +70,7 @@ sub new { my $class = shift(); my($dbname, $user, $password, $activeSetSize) = @_; + my @options; push @options, (user => $user, password => $password) if defined $user; @@ -79,12 +81,14 @@ sub new { my $xslt = new XML::LibXSLT; # raise the maximum number of nested template calls and variables/params (default 250) + warn "raise the maximum number of nested template calls: $xslt_max_depth\n" if $debug; $xslt->max_depth($xslt_max_depth); $xslt->register_function($ZOOM::IRSpy::Utils::IRSPY_NS, 'strcmp', \&ZOOM::IRSpy::Utils::xslt_strcmp); my $libxml = new XML::LibXML; + warn "use irspy_to_zeerex_xsl xslt sheet: $irspy_to_zeerex_xsl\n" if $debug; my $xsl_doc = $libxml->parse_file($irspy_to_zeerex_xsl); my $irspy_to_zeerex_style = $xslt->parse_stylesheet($xsl_doc); -- 1.7.10.4