diff --git a/lib/SLUB/LZA/Rosetta/TA/Command/search.pm b/lib/SLUB/LZA/Rosetta/TA/Command/search.pm index 1125748859a5c6607779b663e50404761c6a8420..c7d730b9268a176c005ea1049930c06862ec4a71 100644 --- a/lib/SLUB/LZA/Rosetta/TA/Command/search.pm +++ b/lib/SLUB/LZA/Rosetta/TA/Command/search.pm @@ -2,8 +2,6 @@ package SLUB::LZA::Rosetta::TA::Command::search; use strict; use warnings; use feature qw(say); - - use SLUB::LZA::Rosetta::TA -command; sub abstract {"searches Rosetta based Archival Information System";} @@ -82,7 +80,7 @@ sub execute { } my @queries; if (exists $opt->{source}) { - push @queries, "IE.sourceMD.content=$opt->{source}"; + push @queries, "IE.sourceMD.content==$opt->{source}"; } if (exists $opt->{ie}) { push @queries, "IE.dc.identifier==$opt->{ie}"; @@ -97,30 +95,31 @@ sub execute { push @queries, "FILE.objectCharacteristics.modificationDate==$opt->{modificationdate}"; } if (exists $opt->{'with_format'}) { - push @queries, "FILE.generalFileCharacteristics.formatLibraryId=$opt->{'with_format'}"; + push @queries, "FILE.generalFileCharacteristics.formatLibraryId==$opt->{'with_format'}"; } # unsupported by Rosetta <= 7.0 #if (exists $opt->{'without_format'}) { # push @queries, "FILE.generalFileCharacteristics.formatLibraryId!=$opt->{'without_format'}"; #} if (exists $opt->{'with_valid_files'}) { - push @queries, "FILE.fileValidation.isValid=true"; + push @queries, "FILE.fileValidation.isValid==true"; } if (exists $opt->{'with_invalid_files'}) { - push @queries, "FILE.fileValidation.isValid=false"; + push @queries, "FILE.fileValidation.isValid==false"; } if (exists $opt->{'with_passed_viruschecks'}) { - push @queries, "FILE.fileVirusCheck.status=true"; + push @queries, "FILE.fileVirusCheck.status==true"; } if (exists $opt->{'with_failed_viruschecks'}) { - push @queries, "FILE.fileVirusCheck.status=false"; + push @queries, "FILE.fileVirusCheck.status==false"; } if (exists $opt->{'with_missed_viruschecks'}) { push @queries, "FILE.fileVirusCheck.status==%22%22"; } - my $query = join(" and ", @queries); + #my $query = join(" and ", @queries); + my $query = join("+", @queries); if (exists $opt->{debug}) { use Data::Printer; p( $opt);