From 1fba1cc181cbe72e98e1ff16b178d054e28cd4e6 Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Fri, 13 Aug 2004 10:01:34 +0000
Subject: [PATCH] (DoHistory): XHTML conformance.

---
 wiki.pl | 8 ++++----
 1 file changed, 4 insertions(+), 4 deletions(-)

diff --git a/wiki.pl b/wiki.pl
index f0716ab8..ada93d62 100755
--- a/wiki.pl
+++ b/wiki.pl
@@ -305,7 +305,7 @@ sub InitVariables {    # Init global session variables for mod_perl!
   unshift(@MyRules, \&MyRules) if defined(&MyRules) && (not @MyRules or $MyRules[0] != \&MyRules);
   @MyRules = sort {$RuleOrder{$a} <=> $RuleOrder{$b}} @MyRules; # default is 0
   $WikiDescription = $q->p($q->a({-href=>'http://www.oddmuse.org/'}, 'Oddmuse'))
-    . $q->p('$Id: wiki.pl,v 1.444 2004/08/13 02:14:10 as Exp $');
+    . $q->p('$Id: wiki.pl,v 1.445 2004/08/13 10:01:34 as Exp $');
   $WikiDescription .= $ModulesDescription if $ModulesDescription;
 }
 
@@ -1686,9 +1686,9 @@ sub DoHistory {
           . $q->p( # don't use $q->hidden here, the sticky action value will be used instead
 		  $q->input({-type=>'hidden', -name=>'action', -value=>'browse'})
 		  . $q->input({-type=>'hidden', -name=>'diff', -value=>'1'})
-		  . $q->input({-type=>'hidden', -name=>'id', -value=>$id})
-		  . $q->table({-class=>'history'}, $html)
-		  . $q->submit({-name=>T('Compare')})) . $q->end_form();
+		  . $q->input({-type=>'hidden', -name=>'id', -value=>$id}))
+	    . $q->table({-class=>'history'}, $html)
+	    . $q->p($q->submit({-name=>T('Compare')})) . $q->end_form();
   }
   print $html;
   PrintFooter($id, 'history');