Minimum trade value feature

[ypp-sc-tools.db-live.git] / yarrg / web / check_capitalstring

diff --git a/yarrg/web/check_capitalstring b/yarrg/web/check_capitalstring
deleted file mode 100644 (file)
index 24617d7..0000000
--- a/yarrg/web/check_capitalstring
+++ /dev/null
@@ -1,62 +0,0 @@
-<%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 <ijackson@chiark.greenend.org.uk>
- 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 <http://www.gnu.org/licenses/>.
-
- 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 simply defines how to interpret capital.
-
-</%doc>
-
-<%method execute>
-<%args>
-$string
-$dbh
-$debugf
-</%args>
-<%perl>
-
-$_= $string;
-s/^\s+//; s/\s+$//;
-
-my $capital;
-my $canon;
-
-if (!m/\S/) {
-       $canon= '';
-} elsif (m/^([1-9]\d*)( PoE)?$/i) {
-       $capital= $1;
-       $canon= "$capital PoE";
-} else {
-       expected_error("Cannot understand capital ".escerrq($_).".");
-}
-
-return ($canon,$capital);
-
-</%perl>
-</%method>