X-Git-Url: http://www.chiark.greenend.org.uk/ucgi/~yarrgweb/git?a=blobdiff_plain;f=yarrg%2Fweb%2Flookup;h=5217679c7f4084d7844be4b1609e7be119b9449c;hb=8b5eb98a81adcf9a0e05252ceb559e5b028585cb;hp=cfffd146af3548c87efcccde44ea0b2db3090c8a;hpb=3f99b04acd8cf6080069b542206f9f3de049f58a;p=ypp-sc-tools.db-live.git diff --git a/yarrg/web/lookup b/yarrg/web/lookup index cfffd14..5217679 100755 --- a/yarrg/web/lookup +++ b/yarrg/web/lookup @@ -118,7 +118,16 @@ $ours % } -<% ucfirst $ahtml{Query} %> - YARRG +<% ucfirst $ahtml{Query} %> - YARRG + + YARRG - Yet Another Revenue Research Gatherer @@ -209,7 +218,9 @@ my $results_head_done=0; my $someresults= sub { return if $results_head_done; $results_head_done=1; - print "\n

Results

\n"; + my ($h)= @_; + $h= 'Results' if !$h; + print "\n

$h

\n"; };