67 |
|
|
68 |
if ( !defined($In{search_results}) ) { |
if ( !defined($In{search_results}) ) { |
69 |
$html .= eval(q{ ${h2("Search criteria")}}); |
$html .= eval(q{ ${h2("Search criteria")}}); |
70 |
|
|
71 |
$html .= $form; |
$html .= $form; |
72 |
} else { |
} else { |
73 |
$html .= eval(q{ ${h2("Search results")}}); |
$html .= eval(q{ ${h2("Search results")}}); |
74 |
|
|
75 |
my $fif = new HTML::FillInForm; |
my $fif = new HTML::FillInForm; |
76 |
$html .= $fif->fill(scalarref => \$form, fdat => \%In); |
$html .= $fif->fill(scalarref => \$form, fdat => \%In); |
77 |
|
|
78 |
my ($where, $from_f, $to_f, $from_b, $to_b) = BackupPC::SearchLib::getWhere(\%In); |
$html .= BackupPC::SearchLib::displayGrid( \%In, 1 ); |
|
|
|
|
my $q = $In{'search_filename'}; |
|
|
|
|
|
# DEBUG |
|
|
#$html .= "<small>"; |
|
|
#$html .= "Filename filter: $q</br>" if ($q); |
|
|
#$html .= "Files date limit: $from_f - $to_f</br>" if ($from_f || $to_f); |
|
|
#$html .= "Backup date limit: $from_b - $to_b</br>" if ($from_b || $to_b); |
|
|
#$html .= "</small>"; |
|
|
|
|
|
$html .= BackupPC::SearchLib::displayGrid( $where, 1, $In{'offset'}, $q); |
|
79 |
} |
} |
80 |
|
|
81 |
Header( eval("qq{$Lang->{Search_archive}}"), "", 1, "", $html ); |
Header( eval("qq{$Lang->{Search_archive}}"), "", 1, "", $html ); |