Added a heading to the Regexp goodie.
parent
77d3bfb315
commit
349efe2a1a
|
@ -67,8 +67,6 @@ handle query_nowhitespace_nodash => sub {
|
||||||
}
|
}
|
||||||
}
|
}
|
||||||
|
|
||||||
warn "$is_capost";
|
|
||||||
|
|
||||||
# Only exclusive results right now for CA Post.
|
# Only exclusive results right now for CA Post.
|
||||||
if ($is_capost == 2) {
|
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>.);
|
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>.);
|
||||||
|
|
|
@ -34,7 +34,7 @@ handle query => sub {
|
||||||
@results = $str =~ compile_re($regexp, $compiler);
|
@results = $str =~ compile_re($regexp, $compiler);
|
||||||
};
|
};
|
||||||
|
|
||||||
return join( ' | ', @results );
|
return join( ' | ', @results ), heading => 'Regexp Result';
|
||||||
};
|
};
|
||||||
|
|
||||||
1;
|
1;
|
Loading…
Reference in New Issue