QuickNote align right.

[MyWeb.git] / Web.pm

diff --git a/Web.pm b/Web.pm
index e6f63bd..33e0310 100644 (file)
--- a/Web.pm
+++ b/Web.pm
@@ -196,7 +196,7 @@ sub footer (;$)
                                ."this.elements['msghtml'].value='';"
                                ."this.submit();"
                                .'">'."\n";
-                       print '<p align="center">'."\n";
+                       print '<p align="right">'."\n";
                                print '<input name="msgscript" type="hidden" />'."\n";
                                print '<input name="msghtml" type="text" size="32" alt="Message" />'."\n";
                                print '<input name="submit" type="submit" value="Quick Note" />'."\n";
@@ -238,6 +238,7 @@ sub footer (;$)
                        } (
                                        $W->{"__PACKAGE__"},
                                        __PACKAGE__,
+                                       "WebConfig",
                                        @{$W->{"packages_used"}{$Apache::Registry::curstash}},
                                        )));
                print "</p>\n";
@@ -372,8 +373,8 @@ my($file_base,$alt,$attrs)=@_;
                        $file=$file_base.".".$var->{"id"};
                        # TODO: Somehow quickly check dependencies?
                        system 'make >&2 -s --no-print-directory'
-                                                       .' -C '."'".File::Basename::dirname($file)."' '".File::Basename::basename($file)."'"
-                                       if !-f $file;
+                                                       .' -C '."'".File::Basename::dirname($file)."' '".File::Basename::basename($file)."'";
+#                                      if !-f $file;
                        push @nego_variants,negotiate_variant(
                                        %$var,
                                        "size"=>(stat $file)[7],
@@ -461,6 +462,7 @@ body {
 :visited { color: teal;   background-color: transparent; }
 h1,h2    { color: yellow; background-color: transparent; }
 td       { padding: 2px; }
+caption  { caption-side: bottom; }
 .footer img { vertical-align: middle; }
 HERE
                print $W->{"head_css"}."\n";