added debugging

Author: nigelhorne

lib/VWF/Display.pm

@@ -138,21 +138,29 @@ sub new {
 
 	Template::Filters->use_html_entities();
 
+	# _ names included for legacy reasons, they will go away
 	my $self = {
+		cachedir => $args{cachedir},
+		_cachedir => $args{cachedir},
+		config => $config,
 		_config => $config,
+		info => $info,
 		_info => $info,
+		logger => $args{logger},
 		_logger => $args{logger},
-		_cachedir => $args{cachedir},
 		%args,
 	};
 
 	if(my $lingua = $args{'lingua'}) {
+		$self->{'lingua'} = $lingua;
 		$self->{'_lingua'} = $lingua;
 	}
 	if(my $key = $info->param('key')) {
+		$self->{'key'} = $key;
 		$self->{'_key'} = $key;
 	}
 	if(my $page = $info->param('page')) {
+		$self->{'page'} = $page;
 		$self->{'_page'} = $page;
 	}
 
@@ -439,6 +447,8 @@ sub html {
 			ABSOLUTE => 1,
 		});
 
+		$self->_debug({ message => __PACKAGE__ . ': ' . __LINE__ . ': Passing these to the template: ' . join(', ', keys %{$vals}) });
+
 		# Process the template
 		if(!$template->process($filename, $vals, \$rc)) {
 			if(my $err = $template->error()) {