Fixed typo affecting JS-detection on the production site.

[MyWeb.git] / HaveJS.pm

diff --git a/HaveJS.pm b/HaveJS.pm
index b68c554..36229e0 100644 (file)
--- a/HaveJS.pm
+++ b/HaveJS.pm
@@ -30,18 +30,19 @@ our $HTML_TEST=0;
 
 sub handler
 {
-my $W=My::Web->init();
-
-
-# Do not: My::Web->heading();
+my $W=My::Web->init(
+               "header_only"=>1,
+               );
+My::Web->heading();
 $W->{"r"}->content_type("text/javascript");
 
+
 # Prevent redirection of some top (referring) foreign webpage as it
 # may not pass "have_js=1" to us anyway. (for example Google cache)
 print ""
                .'if (0'."\n"
-               ."\t\t".'|| window.location.hostname=="'.$W->{"W"}{"web_hostname"}.'" && window.location.port==  80'."\n"
-               ."\t\t".'|| window.location.hostname=="'.'localhost'              .'" && window.location.port==7680)'."\n";
+               ."\t\t".'|| window.location.hostname=="'.$W->{"web_hostname"}.'" && window.location.port==  80'."\n"
+               ."\t\t".'|| window.location.hostname=="'.'localhost'         .'" && window.location.port==7680)'."\n";
 print <<'HERE';
        {
                var searchN=window.location.search;
@@ -62,7 +63,6 @@ print <<'HERE';
 HERE
 
 
-# Do not: My::Web->footer();
-exit 0;
+exit;
 }
 1;