Added a heading to the Regexp goodie.

master
Jag Talon 2013-03-14 11:18:24 -04:00
parent 77d3bfb315
commit 349efe2a1a
2 changed files with 1 additions and 3 deletions

View File

@ -67,8 +67,6 @@ handle query_nowhitespace_nodash => sub {
}
}
warn "$is_capost";
# Only exclusive results right now for CA Post.
if ($is_capost == 2) {
return heading => 'Canada Post Shipment Tracking', html => qq(Track this shipment at <a href="http://www.canadapost.ca/cpotools/apps/track/personal/findByTrackNumber?trackingNumber=$package_number">Canada Post</a>.);

View File

@ -34,7 +34,7 @@ handle query => sub {
@results = $str =~ compile_re($regexp, $compiler);
};
return join( ' | ', @results );
return join( ' | ', @results ), heading => 'Regexp Result';
};
1;