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);
BackupPC::CGI::Lib::NewRequest();
- my @hosts = BackupPC::SearchLib::getUnits();
+ my @hosts = BackupPC::Search::getUnits();
foreach my $host (@hosts) {
$hosts_html .= "<option value=" . $host->{'id'} . "> " . $host->{'share'} . " </option>\n";
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 );