--- no_pager/index.cgi	2006/08/23 15:58:16	61
+++ no_pager/index.cgi	2006/08/27 21:07:16	62
@@ -25,6 +25,8 @@
 
 my $json;
 
+my $self = $config->{self} || $q->url();
+
 sub debug {
 	my ($text,$var) = @_;
 	print "<pre>$text = ", dump($var), "</pre>";