which contains mostly contributions from YARRG users and is not
covered by the AGPL.
-->
-
+<style type="text/css">
+ body { margin: 0; }
+ div.navoptbar { padding: 1em; background: #e0e0ff; }
+ address { background: #d7d8b3; padding: 1em; }
+ div.docs { padding: 1em; }
+ hr { display: none; }
+</style>
% $m->call_next();
<title>YARRG (Yet Another Revenue Research Gatherer)</title>
</head><body>
+<div class="navoptbar">
<a href="lookup">YARRG</a> -
Yet Another Revenue Research Gatherer
|
<a href="docs">documentation</a>
|
<b>development</b>
+</div>
+<div class="docs">
<h1>YARRG development, contribution and troubleshooting</h1>
any Fleet Officer or above of the crew Special Circumstances on the
Midnight Ocean.
+</div>
<& footer, isdevel => 1 &>
<html lang="en"><head><title>Website documentation - YARRG</title>
</head><body>
+<div class="navoptbar">
<a href="lookup">YARRG</a> -
Yet Another Revenue Research Gatherer
|
<b>documentation</b>
|
<a href="devel">development</a>
+</div>
+<div class="docs">
<h1>Looking up data in YARRG</h1>
sail them to C to sell for 20 PoE each even if such a trade would in
fact be possible. In practice this is unlikely to be a problem!
+</div>
<& footer &>
$qa => undef
</%args>
% if (!$qa || $qa->{'debug'}) {
-<table frame=box rules=all>
+<table class="data" frame=box rules=all>
<tr>
% foreach my $field (@$cols) {
<th><% $field |h %>
<title>YARRG (Yet Another Revenue Research Gatherer)</title>
</head><body>
+<div class="navoptbar">
<a href="lookup">YARRG</a> -
Yet Another Revenue Research Gatherer
|
<a href="docs">documentation</a>
|
<a href="devel">development</a>
-
+</div>
+<div class="docs">
<h1>Introduction to YARRG</h1>
YARRG (Yet Another Revenue Research Gatherer) is a third-party tool
any Fleet Officer or above of the crew Special Circumstances on the
Midnight Ocean.
+</div>
<& footer &>
<html lang="en"><head><title><% ucfirst $ahtml{Query} %> - YARRG</title>
<style type="text/css">
-body {
- color: #000000;
- background: #ffffff;
-}
-tr.datarow0 { background: #e3e3e3; }
-tr.datarow1 { background: #ffffff; }
+ body { color: #000000; background: #c5c7ae; }
+ div.query { background: #d7d8b3; padding: 1em; }
+ div.results { padding: 1em; }
+ table.data { background: #b5b686; }
+ tr.datarow0 { background: #e3e3e3; }
+ tr.datarow1 { background: #ffffff; }
</style>
<&| script &>
function register_onload(f) {
</head><body>
% if (!printable($m)) {
+<div class="navoptbar">
<a href="<% $m->current_comp()->name() |u %>">YARRG</a> -
Yet Another Revenue Research Gatherer
|
</%args>
% if (!printable($m)) {
+</div>
<hr>
% }
return 0;
}
&>
-
-<p>
+</div>
%#---------- debugging and epilogue ----------
% if ($debug) {
-<p>
+<div class="results">
<pre id="debug_log">
Debug log:
</pre>
+</div>
% }
<&| script &>
$sth->execute();
</%perl>
+<div class="results">
<& SELF:pageload &>
<%method pageload>
$now
$fetchrow
</%args>
-<table id="ts_table">
+<table class="data" id="ts_table" rules="groups">
<tr>
<th>Archipelago
<th>Island
<th>Age
-</tr>
% my $row;
% my %da_ages;
% my %ts_sortkeys;
my $qa= \%ARGS;
</%perl>
+<div class="query">
<h1>Commodity enquiry</h1>
% $prselector->('BuySell');
</form>
%#========== results ==========
+</div>
+<div class="results">
<%perl>
$emsgokorprint->($emsg) or $cmid=undef;
% 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>
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>
</%perl>
% while ($row= $sth->fetchrow_arrayref) {
% if (!$rowix) {
-<table id="<% $bs %>_table" rules=groups>
+<table class="data" id="<% $bs %>_table" rules=groups>
<colgroup span=2>
<colgroup span=3>
<colgroup span=1>
</%perl>
+<div class="query">
+
<h1>Specify route</h1>
% # Sadly we need to do this rather hacky thing to make it be a POST
% };
<& "lookup:formhidden", ours => $ours &>
+</div>
+<div class="results">
<%perl>
#========== results ==========
</%perl>
+<div class="query">
<h1>Find most profitable routes and trades</h1>
% if ($qa->{Dropdowns}) {
% }
</form>
+</div>
+<div class="results">
<%perl>
if (!$emsg && $maxdist > $maxmaxdist) {
% } else {
<h2>Best routes for profit per league</h2>
% }
-<table rules=groups id="ap<% $ap %>_table">
+<table class="data" rules=groups id="ap<% $ap %>_table">
<colgroup span=2>
<colgroup span=1>
<colgroup span=1>
(additional) league; the `Dist.' column is however the actual distance
to be sailed. All profit figures are somewhat approximate; get a
complete trading plan for a route for accurate information.
-
-<%perl>
-
-
-</%perl>
%
<h2><a name="plan">Voyage trading plan</a></h2>
-<table rules=groups <% printable($m) ? 'width=100%' : '' %> >
+<table class="data" rules=groups <% printable($m) ? 'width=100%' : '' %> >
% my $tbody= sub {
% if (!printable($m)) { return '<tbody>'; }
%# return "<tr><td colspan=7><hr>";
% my $cdspan= $qa->{ShowStalls} ? ' colspan=2' : '';
% my $cdstall= $qa->{ShowStalls} ? '<th>Stall</th>' : '';
<h2><a name="trades">Relevant trades</a></h2>
-<table id="trades" rules=groups>
+<table class="data" id="trades" rules=groups>
<colgroup span=1>
<colgroup span=2>
<% $qa->{ShowStalls} ? '<colgroup span=2>' : '' %>
throw => 'trades_sort', tbrow => 'trades_total' &>
ts_sortkeys= <% to_json_protecttags(\%ts_sortkeys) %>;
</&tabsort>
-
+<p>
<input type=submit name=update value="Update">
% } # !printable