-sub my_present_handler {
- my $href = shift;
-
- $href->{ERR_CODE} = 0;
-
- $href->{ERR_STR} = "";
- print "\n";
- print "--------------------------------------------------------------\n";
- print "Present handler\n";
- print "\n";
- udskriv_hash($href);
- print "--------------------------------------------------------------\n";
- return;
-}
-
-sub my_close_handler {
- my $href = shift;
+sub my_search_handler {
+ my $args = shift;
+ my $data = [{
+ name => "Peter Dornan",
+ title => "Spokesman",
+ collaboration => "ATLAS"
+ }, {
+ name => "Jorn Dines Hansen",
+ title => "Professor",
+ collaboration => "HERA-B"
+ }, {
+ name => "Alain Blondel",
+ title => "Head of coll.",
+ collaboration => "ALEPH"
+ }];
+
+ my $session = $args->{HANDLE};
+ my $set_id = $args->{SETNAME};
+ my @database_list = @{ $args->{DATABASES} };
+ my $query = $args->{QUERY};
+ my $hits = 3;