chiark / gitweb /
Better title for routetrade results
authorIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 23 Aug 2009 15:05:07 +0000 (16:05 +0100)
committerIan Jackson <ian@liberator.relativity.greenend.org.uk>
Sun, 23 Aug 2009 15:05:07 +0000 (16:05 +0100)
yarrg/web/lookup
yarrg/web/query_route

index cfffd14..e3c6770 100755 (executable)
@@ -209,7 +209,9 @@ my $results_head_done=0;
 my $someresults= sub {
        return if $results_head_done;
        $results_head_done=1;
-       print "\n<h1>Results</h1>\n";
+       my ($h)= @_;
+       $h= 'Results' if !$h;
+       print "\n<h1>$h</h1>\n";
 };
 
 </%perl>
index adcb89d..be1196e 100644 (file)
@@ -205,7 +205,7 @@ for my $dd (0..$qa->{Dropdowns}-1) {
 </%perl>
 
 % if (@islandids) {
-%      $someresults->();
+%      $someresults->('Relevant trades');
 <& routetrade,
    dbh => $dbh,
    islandids => \@islandids,