Minor cosmetic fixes

diff --git a/yarrg/web/enter_commod b/yarrg/web/enter_commod
index 2ccc9ab07b84e6fbc314f48d6df66118f96c6d66..666f625e4a1c993d1991420f6af7bdad24bf4bd3 100644 (file)
--- a/yarrg/web/enter_commod
+++ b/yarrg/web/enter_commod
@@ -68,5 +68,6 @@ Enter commodity (abbreviations are OK):<br>
 %              ($$commodname_r,$$cmid_r) = @$row if $selected;
 %      }
 </select>
+<p>
 
 % } #---------- end of dropdowns, now common middle of page code ----------

diff --git a/yarrg/web/enter_route b/yarrg/web/enter_route
index 58b29f4f13387c4916cd8348e8d49e2eeddccb24..f4ad1d7ed003283e80aabc2babeda6d4f8414800 100644 (file)
--- a/yarrg/web/enter_route
+++ b/yarrg/web/enter_route
@@ -186,5 +186,6 @@ for my $dd (0..$qa->{Dropdowns}-1) {
 }
 
 </%perl>
+<p>
 
 % }

diff --git a/yarrg/web/query_route b/yarrg/web/query_route
index 26b83a58b1308f3a595712ff76d1918bbee46146..8ac9ab045be945b6d581ba52980cfbf523d6bd5d 100644 (file)
--- a/yarrg/web/query_route
+++ b/yarrg/web/query_route
@@ -87,7 +87,7 @@ my $goupdate= sub { $be_post ? 'Update' : 'Go' };
        enterwhat => 'Enter route',
        islandids_r => \@islandids,
        archipelagoes_r => \@archipelagoes
-&>
+ &>
 
 %#---------- textboxes, user enters details as strings ----------
 % if (!$qa->{Dropdowns}) {