New dataage mode actually works

[ypp-sc-tools.web-live.git] / yarrg / web / lookup
diff --git a/yarrg/web/lookup b/yarrg/web/lookup

index e062e60c6c4b072ca6daf1f96709f0d111e87cad..469f22835fe06da65e5a41807b5c94c13b0019cf 100644 (file)
--- a/yarrg/web/lookup
+++ b/yarrg/web/lookup
@@ -1,11 +1,6 @@
-<html><head><title>Route - YARRG</title></head><body>
-
-<a href="<% $m->current_comp()->name() %>">YARRG</a> -
- Yet Another Revenue Research Gatherer
-<p>
-
  <%perl>
  my %a;
+my %ahtml;
  my @vars;
  
  # for output:
@@ -27,6 +22,10 @@ my %islandid2;
                 CmpCanon => sub { !!$_[0] },
                 Values => [     [ 0, 'Type in names' ],
                                 [ 4, 'Select from menus' ] ]
+       }, {    Name => 'Query',
+               Before => 'Query: ',
+               Values => [     [ 'route', 'Trades for route' ],
+                               [ 'age', 'Data age' ] ]
         });
  
  foreach my $var (@vars) {
@@ -40,11 +39,22 @@ foreach my $var (@vars) {
         }
         if (exists $ARGS{$lname}) {
                 $a{$name}= $ARGS{$lname};
+               my @html= grep { $_->[0] eq $a{$name} } @{ $var->{Values} };
+               $ahtml{$name}= @html==1 ? $html[0][1] : '???';
         } else {
                 $a{$name}= $var->{Values}[0][0];
+               $ahtml{$name}= $var->{Values}[0][1];
         }
  }
  
+</%perl>
+<html><head><title><% ucfirst $ahtml{Query} %> - YARRG</title></head><body>
+
+<a href="<% $m->current_comp()->name() |u %>">YARRG</a> -
+ Yet Another Revenue Research Gatherer
+<p>
+<%perl>
+
  my %baseqf;
  foreach my $var (@vars) {
         my $lname= lc $var->{Name};
@@ -56,11 +66,16 @@ my %queryqf;
  foreach my $var (keys %ARGS) {
         next unless $var =~
                 m/^(?:routestring|islandid\d|archipelago\d|debug)$/;
-       $queryqf{$var}= $ARGS{$var};
+       my $val= $ARGS{$var};
+       next if $val eq 'none';
+       $queryqf{$var}= $val;
  }
  
-my $uri= URI->new($m->current_comp()->name());
-my $quri= sub { $uri->query_form(@_); $uri->path_query(); };
+my $quri= sub {
+       my $uri= URI->new('lookup');
+       $uri->query_form(@_);
+       $uri->path_query();
+};
  
  foreach my $var (@vars) {
         my $name= $var->{Name};
@@ -99,6 +114,9 @@ $debug => 0
  $routestring => ''
  </%args>
  
+%########### query `route' ##########
+% if ($a{Query} eq 'route') {
+
  <h1>Specify route</h1>
  <form action="<% $quri->() %>" method="get">
  
@@ -208,7 +226,7 @@ foreach my $arch (keys %islandlistdata) {
  
  </%perl>
  
-<input type=hidden name=dropdowns value="<% $a{Dropdowns} %>">
+<input type=hidden name=dropdowns value="<% $a{Dropdowns} |h %>">
  
  <script type="text/javascript">
  ms_lists= <% to_json(\%resetislandlistdata) %>;
@@ -322,6 +340,14 @@ for my $dd (0..$a{Dropdowns}-1) {
  
  % }
  
+% } elsif ($a{Query} eq 'age') {
+% ########### query `age' ##########
+
+<h1>Market data age</h1>
+<& dataage, %baseqf, %queryqf &>
+
+% } ########## end of `age' query ##########
+
  %#---------- debugging and epilogue ----------
  
  % if ($debug) {