chiark
/
gitweb
/
~yarrgweb
/
ypp-sc-tools.db-live.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Merge branch 'stable-5.x'
[ypp-sc-tools.db-live.git]
/
yarrg
/
web
/
query_commod
diff --git
a/yarrg/web/query_commod
b/yarrg/web/query_commod
index 3b2bf3554533f40a334d63690dac86f023b16764..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,7
+113,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>
@@
-212,3
+216,4
@@
No offers.
<%perl>
}
</%perl>
<%perl>
}
</%perl>
+</div>