X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?p=ypp-sc-tools.web-live.git;a=blobdiff_plain;f=yarrg%2Fweb%2Flookup;h=931594a2b71ce718d615bbfecf46e09c00c9d5d2;hp=ae22b33002965655492c2bc2b12682670853f1a8;hb=ad7330407875909b4723839c8872da2de61c8244;hpb=b511dc5359d8c85c05b4bd3421e9f47a989693ce diff --git a/yarrg/web/lookup b/yarrg/web/lookup old mode 100644 new mode 100755 index ae22b33..931594a --- a/yarrg/web/lookup +++ b/yarrg/web/lookup @@ -1,3 +1,39 @@ +<%doc> + + This is part of the YARRG website. YARRG is a tool and website + for assisting players of Yohoho Puzzle Pirates. + + Copyright (C) 2009 Ian Jackson + Copyright (C) 2009 Clare Boothby + + YARRG's client code etc. is covered by the ordinary GNU GPL (v3 or later). + The YARRG website is covered by the GNU Affero GPL v3 or later, which + basically means that every installation of the website will let you + download the source. + + This program is free software: you can redistribute it and/or modify + it under the terms of the GNU Affero General Public License as + published by the Free Software Foundation, either version 3 of the + License, or (at your option) any later version. + + This program is distributed in the hope that it will be useful, + but WITHOUT ANY WARRANTY; without even the implied warranty of + MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the + GNU Affero General Public License for more details. + + You should have received a copy of the GNU Affero General Public License + along with this program. If not, see . + + Yohoho and Puzzle Pirates are probably trademarks of Three Rings and + are used without permission. This program is not endorsed or + sponsored by Three Rings. + + + This Mason component generates the main `lookup' page, including + all the entry boxes etc. for every query. + + + <%perl> my %a; my %ahtml; @@ -50,8 +86,10 @@ foreach my $var (@vars) { <% ucfirst $ahtml{Query} %> - YARRG -YARRG - +YARRG - Yet Another Revenue Research Gatherer +| +documentation

<%perl> @@ -72,7 +110,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(); }; @@ -95,7 +133,9 @@ foreach my $var (@vars) { my %qf= (%baseqf,%queryqf); delete $qf{$lname}; $qf{$lname}= $value if $cvalix; - print ''; + + +<%perl> $after= ''; } print $html, $after; @@ -114,19 +154,21 @@ $debug => 0 $routestring => '' +

+ %########### query `route' ########## % if ($a{Query} eq 'route') {

Specify route

-
+ %#---------- textbox, user enters route as string ---------- % if (!$a{Dropdowns}) { Enter route (islands, or archipelagoes, separated by |s or commas; - abbreviations are OK):
+ abbreviations are OK):
- +
-
 

+
 

% } else { #---------- dropdowns, user selects from menus ---------- @@ -226,10 +268,10 @@ foreach my $arch (keys %islandlistdata) { - + - + @@ -344,6 +386,7 @@ for my $dd (0..$a{Dropdowns}-1) { % ########### query `age' ##########

Market data age

+<& dataage, %baseqf, %queryqf &> % } ########## end of `age' query ########## @@ -356,19 +399,20 @@ Debug log: % } - + + +<& footer &> <%init> use CommodsWeb; use HTML::Entities; use URI::Escape; -use JSON;