- removed deprecated code

lib/SLUB/LZA/TA/Command/search.pm

@@ -3,10 +3,8 @@ use SLUB::LZA::TA -command;
 use strict;
 use warnings;
 use feature qw(say);
-#use SLUB::LZA::TA::common_sru;
-#use SLUB::LZA::TA::SRU;
 use SLUB::LZA::TA::Archivematica::Elasticsearch;
-
+use Data::Printer;
 
 
 # VERSION
@@ -15,8 +13,8 @@ use SLUB::LZA::TA::Archivematica::Elasticsearch;
 
 sub abstract {"searches Archival Information System (AIS)";}
 my $description=<<"DESCR";
-Searches an AIS for descriptive oder source metadata on behalf of the Technical Analyst.
-Returns SRU-response including dc-records. Only the first 10 matches will be presented by default.
+Searches an AIS for descriptive or source metadata on behalf of the Technical Analyst.
+Returns response including dc-records. Only the first 10 matches will be presented by default.
 
 Examples:
 
@@ -89,17 +87,7 @@ sub execute {
         );
         exit (0);
     }
-    my $maxrecords="10";
-    if (exists $opt->{maxrecords}) {
-        $maxrecords = $opt->{maxrecords};
-    }
-    my $startrecord=1;
-    if (exists $opt->{startrecord}) {
-        $startrecord = $opt->{startrecord};
-    }
     my $query = SLUB::LZA::TA::Archivematica::Elasticsearch::prepare_query($opt);
-
-    #p(%SLUB::LZA::TA::config);
     my $response = SLUB::LZA::TA::Archivematica::Elasticsearch::query_elasticsearch(
         $SLUB::LZA::TA::config{elasticsearchprotocol},
         $SLUB::LZA::TA::config{elasticsearchhost},
@@ -107,12 +95,7 @@ sub execute {
         'aips', # indexname
         $query, # query_hash ref
     );
-    #my $query = SLUB::LZA::TA::Rosetta::common_sru::prepare_query($opt);
-    #my $response = SLUB::LZA::TA::Rosetta::SRU::sru_search('ie', $query, $startrecord, $maxrecords, $opt->{verbose}, $opt->{debug}, $opt->{user}, $opt->{password});
-
-    say $response;
-#    use Data::Printer;
-#    p($response);
+    say np($response);
     return 1;
 }