+
+ foreach $file (@{ $files }) {
+ my $typeStr = BackupPC::Attrib::fileType2Text(undef, $file->{'type'});
+ $retHTML .= "<tr>";
+
+ foreach my $v ((
+ $file->{'sharename'},
+ qq{<img src="$Conf{CgiImageDirURL}/icon-$typeStr.gif" align="center"> } . hilite_html( $file->{'fpath'}, $hilite ),
+ $typeStr,
+ restore_link( $typeStr, $file->{'hname'}, $file->{'backupno'}, $file->{'sname'}, $file->{'fpath'}, $file->{'backupno'} ),
+ $file->{'size'},
+ epoch_to_iso( $file->{'date'} ),
+ $file->{'dvd'}
+ )) {
+ $retHTML .= qq{<td class="fviewborder">$v</td>};
+ }
+
+ $retHTML .= "</tr>";
+ }
+ $retHTML .= "</table>";
+
+ # all variables which has to be transfered
+ foreach my $n (qw/search_day_from search_month_from search_year_from search_day_to search_month_to search_year_to search_backup_day_from search_backup_month_from search_backup_year_from search_backup_day_to search_backup_month_to search_backup_year_to search_filename offset/) {
+ $retHTML .= qq{<INPUT TYPE="hidden" NAME="$n" VALUE="$In{$n}">\n};
+ }
+
+ my $del = '';
+ my $max_page = int( $results / $on_page );
+ my $page = 0;
+
+ my $link_fmt = '<a href = "#" onclick="document.forma.offset.value=%d;document.forma.submit();">%s</a>';
+
+ $retHTML .= '<div style="text-align: center;">';
+
+ if ($offset > 0) {
+ $retHTML .= sprintf($link_fmt, $offset - 1, '<<') . ' ';
+ }
+
+ while ($page <= $max_page) {
+ if ($page == $offset) {
+ $retHTML .= $del . '<b>' . ($page + 1) . '</b>';
+ } else {
+ $retHTML .= $del . sprintf($link_fmt, $page, $page + 1);
+ }
+
+ if ($page < $offset - $pager_pages && $page != 0) {
+ $retHTML .= " ... ";
+ $page = $offset - $pager_pages;
+ $del = '';
+ } elsif ($page > $offset + $pager_pages && $page != $max_page) {
+ $retHTML .= " ... ";
+ $page = $max_page;
+ $del = '';
+ } else {
+ $del = ' | ';
+ $page++;
+ }
+ }
+
+ if ($offset < $max_page) {
+ $retHTML .= ' ' . sprintf($link_fmt, $offset + 1, '>>');
+ }
+
+ $retHTML .= "</div>";
+
+ $retHTML .= "</form>" if ($addForm);
+
+ return $retHTML;
+}