Add some more vertical rules

diff --git a/yarrg/web/query_commod b/yarrg/web/query_commod
index 574f373f4ce2bec0b0a61d0d4e702246374aae63..3b2bf3554533f40a334d63690dac86f023b16764 100644 (file)
--- a/yarrg/web/query_commod
+++ b/yarrg/web/query_commod
@@ -109,9 +109,14 @@ foreach my $bs (split /_/, $ARGS{BuySell}) {
 %      my $rowix= 0;
 %      while ($island= $islands->fetchrow_hashref) {
 %              if (!$rowix) {
 %      my $rowix= 0;
 %      while ($island= $islands->fetchrow_hashref) {
 %              if (!$rowix) {

-<table id="<% $bs %>_table">
+<table id="<% $bs %>_table" rules=groups>
+<colgroup span=2>
+<colgroup span=1>
+<colgroup span=2>
+<colgroup span=3>

 <tr>
 <tr>

-<th colspan=3>
+<th colspan=2>
+<th colspan=1>

 <th colspan=2>Prices
 <th colspan=3>Quantity at price
 <tr id="<% $bs %>_table_thr">
 <th colspan=2>Prices
 <th colspan=3>Quantity at price
 <tr id="<% $bs %>_table_thr">

diff --git a/yarrg/web/query_offers b/yarrg/web/query_offers
index 0e1aa989a7bf61b5c7ff8b1bda8281d72d25671a..76f45c0da52f143bb39fd7de472c5a1118539cdf 100644 (file)
--- a/yarrg/web/query_offers
+++ b/yarrg/web/query_offers
@@ -166,7 +166,10 @@ foreach my $bs (split /_/, $qa->{BuySell}) {
 </%perl>
 %      while ($row= $sth->fetchrow_arrayref) {
 %              if (!$rowix) {
 </%perl>
 %      while ($row= $sth->fetchrow_arrayref) {
 %              if (!$rowix) {

-<table id="<% $bs %>_table">
+<table id="<% $bs %>_table" rules=groups>
+<colgroup span=2>
+<colgroup span=3>
+<colgroup span=1>

 <tr>
 <th>Archipelago
 <th>Island
 <tr>
 <th>Archipelago
 <th>Island