+middleman

[MyWeb.git] / Web.pm
diff --git a/Web.pm b/Web.pm

index 6ec9d59..4436247 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -276,7 +276,7 @@ sub footer (;$)
                 my $cvs_id=(eval('$'.$package."::CVS_ID")
  #                              || $package     # debug
                                 );
-               print '<!-- $'.$cvs_id.'$ -->'."\n" if $cvs_id;
+               print '<!-- '.$package.' - $'.$cvs_id.'$ -->'."\n" if $cvs_id;
                 }
  
         if ($W->{"heading"}) {
@@ -488,9 +488,10 @@ my($class)=@_;
                 }
         print '<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.1//EN" "http://www.w3.org/TR/xhtml11/DTD/xhtml11.dtd">'."\n";
         print '<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en-US">'."\n";
-       print '<head><title>'.CGI::escapeHTML($W->{"title_prefix"})
-                       .join("",map({ ': '.CGI::escapeHTML($_); } ($W->{"title"} || ())))
-                       .'</title>'."\n";
+       my $title=$W->{"title_prefix"}.join("",map({ ': '.$_; } ($W->{"title"} || ())));
+       $title=~s#<[^>]*>##g;
+       print "<head>";
+       print "<title>$title</title>\n";
  
         if ($W->{"have_css"}) {
                 print <<'HERE';