diff options
| author | hugo <hugo@localhost> | 2000-02-09 15:41:34 +0000 |
|---|---|---|
| committer | hugo <hugo@localhost> | 2000-02-09 15:41:34 +0000 |
| commit | be69826ff751c99d109af3b4d97728a16f424208 (patch) | |
| tree | 4b9c65d253d15bc1ceb5b8886221b087e4d9ac16 | |
| parent | b4f852d1e7eefbd6f084050a1afb0bfaa1ab293b (diff) | |
| download | markup-validator-be69826ff751c99d109af3b4d97728a16f424208.zip markup-validator-be69826ff751c99d109af3b4d97728a16f424208.tar.gz markup-validator-be69826ff751c99d109af3b4d97728a16f424208.tar.bz2 | |
Fixed markup problem (thanks to Patrick D. F. Ion <ion@ams.org>)
| -rwxr-xr-x | httpd/cgi-bin/LinkChecker.pl | 8 | ||||
| -rwxr-xr-x | httpd/cgi-bin/checklink.pl | 8 |
2 files changed, 6 insertions, 10 deletions
diff --git a/httpd/cgi-bin/LinkChecker.pl b/httpd/cgi-bin/LinkChecker.pl index 2b3db38..514a2ba 100755 --- a/httpd/cgi-bin/LinkChecker.pl +++ b/httpd/cgi-bin/LinkChecker.pl @@ -5,7 +5,7 @@ # (c) 1999-2000 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: LinkChecker.pl,v 1.29 2000-02-08 23:11:20 hugo Exp $ +# $Id: LinkChecker.pl,v 1.30 2000-02-09 15:41:34 hugo Exp $ # # This program is licensed under the W3C(r) License. # @@ -29,7 +29,7 @@ $| = 1; # Version info my $PROGRAM = 'W3C LinkChecker'; -my $VERSION = q$Revision: 1.29 $ . '(c) 1999-2000 W3C'; +my $VERSION = q$Revision: 1.30 $ . '(c) 1999-2000 W3C'; my $REVISION; ($REVISION = $VERSION) =~ s/Revision: (\d+\.\d+) .*/$1/; # State of the program @@ -951,9 +951,7 @@ sub links_summary(\%,\%,\%) { print('links:'); if ($_html) { print('<br>Broken fragments appear in red</p>'); - } - if ($_html) { - print("</p>\n<table border=\"1\">\n<tr><td><b>Location</b></td><td><b>Code</b></td><td><b>Fragment</b></td><td><b>Lines</b></td></tr>"); + print("\n<table border=\"1\">\n<tr><td><b>Location</b></td><td><b>Code</b></td><td><b>Fragment</b></td><td><b>Lines</b></td></tr>"); } print("\n"); my $u; diff --git a/httpd/cgi-bin/checklink.pl b/httpd/cgi-bin/checklink.pl index a0ec665..de38429 100755 --- a/httpd/cgi-bin/checklink.pl +++ b/httpd/cgi-bin/checklink.pl @@ -5,7 +5,7 @@ # (c) 1999-2000 World Wide Web Consortium # based on Renaud Bruyeron's checklink.pl # -# $Id: checklink.pl,v 2.29 2000-02-08 23:11:20 hugo Exp $ +# $Id: checklink.pl,v 2.30 2000-02-09 15:41:34 hugo Exp $ # # This program is licensed under the W3C(r) License. # @@ -29,7 +29,7 @@ $| = 1; # Version info my $PROGRAM = 'W3C checklink'; -my $VERSION = q$Revision: 2.29 $ . '(c) 1999-2000 W3C'; +my $VERSION = q$Revision: 2.30 $ . '(c) 1999-2000 W3C'; my $REVISION; ($REVISION = $VERSION) =~ s/Revision: (\d+\.\d+) .*/$1/; # State of the program @@ -951,9 +951,7 @@ sub links_summary(\%,\%,\%) { print('links:'); if ($_html) { print('<br>Broken fragments appear in red</p>'); - } - if ($_html) { - print("</p>\n<table border=\"1\">\n<tr><td><b>Location</b></td><td><b>Code</b></td><td><b>Fragment</b></td><td><b>Lines</b></td></tr>"); + print("\n<table border=\"1\">\n<tr><td><b>Location</b></td><td><b>Code</b></td><td><b>Fragment</b></td><td><b>Lines</b></td></tr>"); } print("\n"); my $u; |