X-Git-Url: http://git.jankratochvil.net/?a=blobdiff_plain;f=Web.pm;h=33e03105250e97294d6cfe5f444a35598e635ed6;hb=ab61085d544a2e9f1f4ddeaf30178f408b01d803;hp=e6f63bd1883a98c7fcc26d9c4da9baebce43d235;hpb=a7da14b6674122ae7e2628700180b79df570fddf;p=MyWeb.git

diff --git a/Web.pm b/Web.pm
index e6f63bd..33e0310 100644
--- 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";