chiark / gitweb /
Break out code for dbw_lookup_string; support capacity adjustments in terms of commod...
[ypp-sc-tools.db-live.git] / yarrg / web / check_capitalstring
index 90148c6..53aceec 100644 (file)
 
 </%doc>
 
 
 </%doc>
 
-<%attr>
-</%attr>
-
-<%method preparse>
+<%method execute>
 <%args>
 <%args>
-$h
+$string
+$dbh
+$debugf
 </%args>
 <%perl>
 
 </%args>
 <%perl>
 
-$_= ${ $h->{String} };
+$_= $string;
 s/^\s+//; s/\s+$//;
 
 s/^\s+//; s/\s+$//;
 
-my $res= sub {
-       my ($capital) = @_;
-       push @{ $h->{Results} }, [ $capital ];
-       ${ $h->{Canon} }= "$capital PoE";
-};
+my $capital;
+my $canon;
 
 if (!m/\S/) {
 
 if (!m/\S/) {
+       $canon= '';
 } elsif (m/^([1-9]\d*)( PoE)?$/i) {
 } elsif (m/^([1-9]\d*)( PoE)?$/i) {
-       $res->( $1 );
+       $capital= $1;
+       $canon= "$capital PoE";
 } else {
 } else {
-       ${ $h->{Emsg} }= "Cannot understand capital \`$_'.";
-       return;
+       expected_error("Cannot understand capital \`$_'.");
 }
 
 }
 
+return ($canon,$capital);
+
 </%perl>
 </%method>
 </%perl>
 </%method>