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=a4500dc24f4bb8a033db7f8fe2fc431d7978d9ef;hp=ae22b33002965655492c2bc2b12682670853f1a8;hb=31e88e03ff6e24e5c744b7f3f02346221ae5bab0;hpb=b511dc5359d8c85c05b4bd3421e9f47a989693ce diff --git a/yarrg/web/lookup b/yarrg/web/lookup index ae22b33..a4500dc 100644 --- a/yarrg/web/lookup +++ b/yarrg/web/lookup @@ -1,3 +1,35 @@ +%# 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,7 +82,7 @@ foreach my $var (@vars) { <% ucfirst $ahtml{Query} %> - YARRG -YARRG - +YARRG - Yet Another Revenue Research Gatherer

<%perl> @@ -72,7 +104,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(); }; @@ -114,6 +146,8 @@ $debug => 0 $routestring => '' +

+ %########### query `route' ########## % if ($a{Query} eq 'route') { @@ -226,7 +260,7 @@ foreach my $arch (keys %islandlistdata) { - + +<& footer &> + <%init> use CommodsWeb; use HTML::Entities;