my $qa= \%ARGS;
</%perl>
+<div class="query">
<h1>Prices for commodity at location(s)</h1>
% $prselector->('BuySell');
<& "lookup:formhidden", ours => $ours &>
</form>
+</div>
+<div class="results">
%#========== results ==========
<%perl>
$emsgokorprint->($emsg) or $cmid=undef;
-return unless defined $cmid and @islandids;
+print("</div>"), return
+ unless defined $cmid and @islandids;
foreach my $wf (@warningfs) { $wf->(); }
</%perl>
% while ($row= $sth->fetchrow_arrayref) {
% if (!$rowix) {
-<table id="<% $bs %>_table">
+<table class="data" id="<% $bs %>_table" rules=groups>
+<colgroup span=2>
+<colgroup span=3>
+<colgroup span=1>
<tr>
<th>Archipelago
<th>Island
<%perl>
}
</%perl>
+
+<p>
+(Please don't use these pages to scrape data out of the YARRG
+database. This will be a pain for you to program, slow to run, and
+pointlessly overload our server. Instead, see our
+<a href="devel">information for developers</a>
+to find out how to get testing data or a real-time feed.)
+
+</div>