+
+sub action_search {
+ my ($self) = @_;
+
+ my $url = 'ct.pl?action=search&db='. ($self->is_vendor() ? 'vendor' : 'customer');
+
+ if ( $::form->{callback} ) {
+ $url .= '&callback='. $::from->escape($::form->{callback});
+ }
+
+ print $::form->redirect_header($url);
+}
+
+
+sub action_search_contact {
+ my ($self) = @_;
+
+ my $url = 'ct.pl?action=search_contact&db=customer';
+
+ if ( $::form->{callback} ) {
+ $url .= '&callback='. $::from->escape($::form->{callback});
+ }
+
+ print $::form->redirect_header($url);
+}
+
+