added SearchHideShare regex to config

[BackupPC.git] / lib / BackupPC / CGI / SearchArchives.pm

diff --git a/lib/BackupPC/CGI/SearchArchives.pm b/lib/BackupPC/CGI/SearchArchives.pm
index 3e1ce0a..1997f1a 100644 (file)
--- a/lib/BackupPC/CGI/SearchArchives.pm
+++ b/lib/BackupPC/CGI/SearchArchives.pm
@@ -7,7 +7,7 @@ package BackupPC::CGI::SearchArchives;
 
 use strict;
 use BackupPC::CGI::Lib qw(:all);
-use BackupPC::SearchLib;
+use BackupPC::Search;
 use Data::Dumper;
 use HTML::FillInForm;
 use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);
@@ -17,9 +17,8 @@ sub action() {
 
     
        BackupPC::CGI::Lib::NewRequest();
-       my @hosts = BackupPC::SearchLib::getUnits();
 
-       foreach my $host (@hosts) {
+       foreach my $host ( BackupPC::Search::getShares ) {
                $hosts_html .= "<option value=" . $host->{'id'} . "> " . $host->{'share'} . " </option>\n";
         }
 
@@ -86,7 +85,7 @@ sub action() {
                my $fif = new HTML::FillInForm;
                $html .= $fif->fill(scalarref => \$form, fdat => \%In);
 
-               $html .= BackupPC::SearchLib::displayGrid( \%In );
+               $html .= BackupPC::Search::displayGrid( \%In );
        }
 
        Header( eval("qq{$Lang->{Search_archive}}"), "", 1, "", $html );