chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-test.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
where-vessels: control for smash owner
[ypp-sc-tools.db-test.git]
/
yarrg
/
web
/
query_commod
diff --git
a/yarrg/web/query_commod
b/yarrg/web/query_commod
index 574f373f4ce2bec0b0a61d0d4e702246374aae63..8d55f2686130568ba92d2c578dd787d2362e368e 100644
(file)
--- a/
yarrg/web/query_commod
+++ b/
yarrg/web/query_commod
@@
-50,6
+50,7
@@
my ($commodname,$cmid);
my $qa= \%ARGS;
</%perl>
my $qa= \%ARGS;
</%perl>
+<div class="query">
<h1>Commodity enquiry</h1>
% $prselector->('BuySell');
<h1>Commodity enquiry</h1>
% $prselector->('BuySell');
@@
-69,10
+70,13
@@
my $qa= \%ARGS;
</form>
%#========== results ==========
</form>
%#========== results ==========
+</div>
+<div class="results">
<%perl>
$emsgokorprint->($emsg) or $cmid=undef;
<%perl>
$emsgokorprint->($emsg) or $cmid=undef;
-return unless defined $cmid;
+print("</div>"), return
+ unless defined $cmid;
$someresults->();
#---------- actually compute the results and print them ----------
$someresults->();
#---------- actually compute the results and print them ----------
@@
-109,9
+113,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 class="data" 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">
@@
-207,3
+216,4
@@
No offers.
<%perl>
}
</%perl>
<%perl>
}
</%perl>
+</div>