chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.main.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
WIP colouring in
[ypp-sc-tools.main.git]
/
yarrg
/
web
/
query_commod
diff --git
a/yarrg/web/query_commod
b/yarrg/web/query_commod
index 3b2bf3554533f40a334d63690dac86f023b16764..153ea792c92e7f9abcc9eac7472d37c72bdb7fca 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,6
+70,8
@@
my $qa= \%ARGS;
</form>
%#========== results ==========
</form>
%#========== results ==========
+</div>
+<div class="results">
<%perl>
$emsgokorprint->($emsg) or $cmid=undef;
<%perl>
$emsgokorprint->($emsg) or $cmid=undef;
@@
-109,7
+112,7
@@
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" rules=groups>
+<table
class="data"
id="<% $bs %>_table" rules=groups>
<colgroup span=2>
<colgroup span=1>
<colgroup span=2>
<colgroup span=2>
<colgroup span=1>
<colgroup span=2>