--- trunk/lib/BackupPC/SearchLib.pm 2005/08/20 17:19:48 53 +++ trunk/lib/BackupPC/SearchLib.pm 2005/08/21 13:44:20 55 @@ -7,6 +7,7 @@ use DBI; use DateTime; use vars qw(%In $MyURL); +use Time::HiRes qw/time/; my $on_page = 100; my $pager_pages = 10; @@ -98,6 +99,9 @@ files.date AS date, files.type AS filetype, files.size AS size, + }; + + my $sql_dvd_cols = qq{ dvds.name AS dvd }; @@ -106,6 +110,9 @@ INNER JOIN shares ON files.shareID=shares.ID INNER JOIN hosts ON hosts.ID = shares.hostID INNER JOIN backups ON backups.num = files.backupNum and backups.hostID = hosts.ID + }; + + my $sql_dvd_from = qq{ LEFT JOIN dvds ON dvds.ID = files.dvdid }; @@ -126,7 +133,7 @@ my ($results) = $sth->fetchrow_array(); - $sth = $dbh->prepare(qq{ select $sql_cols $sql_from $sql_where $sql_order }); + $sth = $dbh->prepare(qq{ select $sql_cols $sql_dvd_cols $sql_from $sql_dvd_from $sql_where $sql_order }); $sth->execute( $offset ); my @ret; @@ -277,12 +284,17 @@ $retHTML .= qq{}; } + my $start_t = time(); + my ($results, $files) = getFiles($where, $offset); + my $dur_t = time() - $start_t; + my $dur = sprintf("%0.4fs", $dur_t); + my ($from, $to) = (($offset * $on_page) + 1, ($offset * $on_page) + $on_page); $retHTML .= qq{ -
Found $results files, showing $from - $to +
Found $results files showing $from - $to (took $dur)
Share