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 ae22b33002965655492c2bc2b12682670853f1a8..469f22835fe06da65e5a41807b5c94c13b0019cf 100644 (file)
--- a/yarrg/web/lookup
+++ b/yarrg/web/lookup
@@ -50,7 +50,7 @@ foreach my $var (@vars) {
  </%perl>
  <html><head><title><% ucfirst $ahtml{Query} %> - YARRG</title></head><body>
  
-<a href="<% $m->current_comp()->name() %>">YARRG</a> -
+<a href="<% $m->current_comp()->name() |u %>">YARRG</a> -
   Yet Another Revenue Research Gatherer
  <p>
  <%perl>
@@ -72,7 +72,7 @@ foreach my $var (keys %ARGS) {
  }
  
  my $quri= sub {
-       my $uri= URI->new($m->current_comp()->name());
+       my $uri= URI->new('lookup');
         $uri->query_form(@_);
         $uri->path_query();
  };
@@ -226,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) %>;
@@ -344,6 +344,7 @@ for my $dd (0..$a{Dropdowns}-1) {
  % ########### query `age' ##########
  
  <h1>Market data age</h1>
+<& dataage, %baseqf, %queryqf &>
  
  % } ########## end of `age' query ##########