projects
/
BackupPC.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
finish rename to BackupPC::Search
[BackupPC.git]
/
lib
/
BackupPC
/
CGI
/
SearchArchives.pm
diff --git
a/lib/BackupPC/CGI/SearchArchives.pm
b/lib/BackupPC/CGI/SearchArchives.pm
index
3e1ce0a
..
0425225
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 strict;
use BackupPC::CGI::Lib qw(:all);
-use BackupPC::Search
Lib
;
+use BackupPC::Search;
use Data::Dumper;
use HTML::FillInForm;
use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);
use Data::Dumper;
use HTML::FillInForm;
use vars qw($Cgi %In $MyURL $User %Conf $TopDir $BinDir $bpc);
@@
-17,7
+17,7
@@
sub action() {
BackupPC::CGI::Lib::NewRequest();
BackupPC::CGI::Lib::NewRequest();
- my @hosts = BackupPC::Search
Lib
::getUnits();
+ my @hosts = BackupPC::Search::getUnits();
foreach my $host (@hosts) {
$hosts_html .= "<option value=" . $host->{'id'} . "> " . $host->{'share'} . " </option>\n";
foreach my $host (@hosts) {
$hosts_html .= "<option value=" . $host->{'id'} . "> " . $host->{'share'} . " </option>\n";
@@
-86,7
+86,7
@@
sub action() {
my $fif = new HTML::FillInForm;
$html .= $fif->fill(scalarref => \$form, fdat => \%In);
my $fif = new HTML::FillInForm;
$html .= $fif->fill(scalarref => \$form, fdat => \%In);
- $html .= BackupPC::Search
Lib
::displayGrid( \%In );
+ $html .= BackupPC::Search::displayGrid( \%In );
}
Header( eval("qq{$Lang->{Search_archive}}"), "", 1, "", $html );
}
Header( eval("qq{$Lang->{Search_archive}}"), "", 1, "", $html );