+#contacts
+$search_hash{'contacts'} = {
+ map { $_ => $cgi->param($_), } grep { /^(contacts_*)/ && $cgi->param($_) } keys $cgi->Vars
+};
+
+#tags
+my $params = $cgi->Vars;
+$search_hash{'tagnum'} = [
+ map { /^tagnum(\d+)/ && $1 }
+ grep { /^tagnum(\d+)/ && $cgi->param($_) } keys %$params
+];
+