descriptions updated

[MyWeb.git] / Web.pm

diff --git a/Web.pm b/Web.pm
index 845e96c..13e397c 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"}) {
@@ -345,7 +345,7 @@ my($url,$contents,%args)=@_;
                { $r.=CGI::escapeHTML(top_dir()."/Redirect.pl?location=".uri_escape($url)); }
        $r.='"';
        do { $r.=" $_" if $_; } for ($args{"attr"});
-       $r.='">'.$contents.'</a>';
+       $r.='>'.$contents.'</a>';
        if ($args{"size"} && url_is_local($url) && $url=~/[.](?:gz|Z|rpm|zip|deb|lha)/) {       # Downloadable?
                if (!-r $url)
                        { cluck "File not readable: $url"; }