XHTML 1.0 Strict

diff --git a/web/htdocs/details/check.mc b/web/htdocs/details/check.mc
index ad146bd..3924521 100644 (file)
--- a/web/htdocs/details/check.mc
+++ b/web/htdocs/details/check.mc
@@ -1,4 +1,4 @@
-%# $Id: check.mc,v 1.11 2006-10-26 17:45:32 mike Exp $
+%# $Id: check.mc,v 1.12 2006-11-16 12:15:29 mike Exp $
 <%args>
 @id
 $test => "Quick"
@@ -21,7 +21,7 @@ if ($allTargets && !$really) {
 } else {
 
 print "<h2>Testing ...</h2>\n";
-print "     <ul>\n", join("", map { "      <li>$_\n" } @id), "</ul>\n"
+print "     <ul>\n", join("", map { "      <li>$_</li>\n" } @id), "</ul>\n"
     if !$allTargets;
 $m->flush_buffer();
 

diff --git a/web/htdocs/details/doc.mc b/web/htdocs/details/doc.mc
index beae59c..07d7ad6 100644 (file)
--- a/web/htdocs/details/doc.mc
+++ b/web/htdocs/details/doc.mc
@@ -1,4 +1,4 @@
-%# $Id: doc.mc,v 1.2 2006-11-01 10:11:01 mike Exp $
+%# $Id: doc.mc,v 1.3 2006-11-16 12:16:18 mike Exp $
 <%once>
 use Pod::Html;
 use IO::Dir;
@@ -31,7 +31,7 @@ sub render_doc_links {
        or die "can't open directory handle for '$base/$dir'";
 
     print " " x $level, "<li><b>$dir</b></li>\n";
-    print " " x $level, "<ul>\n";
+    print " " x $level, "<li><ul>\n";
 
     my(@files, @dirs);
     while (my $file = $dh->read()) {
@@ -53,7 +53,7 @@ sub render_doc_links {
        render_doc_links($base, "$dir/$file", $level+1);
     }
 
-    print " " x $level, "</ul>\n";
+    print " " x $level, "</ul></li>\n";
     undef $dh;
 }
 </%perl>

diff --git a/web/htdocs/details/edit.mc b/web/htdocs/details/edit.mc
index 96a2948..ad724a0 100644 (file)
--- a/web/htdocs/details/edit.mc
+++ b/web/htdocs/details/edit.mc
@@ -1,4 +1,4 @@
-%# $Id: edit.mc,v 1.13 2006-11-16 11:53:33 mike Exp $
+%# $Id: edit.mc,v 1.14 2006-11-16 12:16:32 mike Exp $
 <%args>
 $id => undef
 </%args>
@@ -104,7 +104,7 @@ foreach my $ref (@fields) {
 % } elsif ($nlines) {
      <textarea name="<% $name %>" rows="<% $nlines %>" cols="55"><% $data %></textarea>
 % } else {
-     <input name="<% $name %>" type="text" size="60" value="<% $data %>">
+     <input name="<% $name %>" type="text" size="60" value="<% $data %>"/>
 % }
     </td>
    </tr>

diff --git a/web/htdocs/details/find.mc b/web/htdocs/details/find.mc
index c76459e..b78bf50 100644 (file)
--- a/web/htdocs/details/find.mc
+++ b/web/htdocs/details/find.mc
@@ -1,4 +1,4 @@
-%# $Id: find.mc,v 1.5 2006-09-25 15:32:06 mike Exp $
+%# $Id: find.mc,v 1.6 2006-11-16 12:16:46 mike Exp $
 % if ($r->param("_search")) {
 %     $m->comp("found.mc");
 % } else {
@@ -60,7 +60,6 @@
         <th>Author</th>
        <td><input type="text" name="dc.creator" size="40"/></td>
        </tr>
-       </tr>
        <tr><td colspan="2">&nbsp;</td></tr>
        <tr>
         <th>Sort by</th>

diff --git a/web/htdocs/details/found.mc b/web/htdocs/details/found.mc
index 5c8993f..20e808f 100644 (file)
--- a/web/htdocs/details/found.mc
+++ b/web/htdocs/details/found.mc
@@ -1,4 +1,4 @@
-%# $Id: found.mc,v 1.18 2006-11-14 16:23:11 mike Exp $
+%# $Id: found.mc,v 1.19 2006-11-16 12:17:02 mike Exp $
 <%once>
 sub print_navlink {
     my($params, $cond, $caption, $skip) = @_;
@@ -77,10 +77,10 @@ my $first = $skip+1;
 my $last = $first+$count-1;
 $last = $n if $last > $n;
 </%perl>
-     <form method="get" action="">
+     <form method="get" action=""><p>
       <input type="text" name="_query" size="60" value="<% xml_encode($query) %>"/>
       <input type="submit" name="_search" value="Search"/>
-     </form>
+     </p></form>
      <p>
 % if ($n == 0) {
       No matches