From 34e0c7c8cdb17e2809b6c906f699df169dd1a432 Mon Sep 17 00:00:00 2001 From: dpavlin Date: Fri, 29 Jul 2005 17:30:25 +0000 Subject: [PATCH] added restore link to search results git-svn-id: svn+ssh://llin/home/dpavlin/private/svn/BackupPC/trunk@26 8392b6e1-25fa-0310-8288-cc32f8e212ea --- lib/BackupPC/SearchLib.pm | 16 +++++++++++----- 1 file changed, 11 insertions(+), 5 deletions(-) diff --git a/lib/BackupPC/SearchLib.pm b/lib/BackupPC/SearchLib.pm index 70dea68..732e50c 100644 --- a/lib/BackupPC/SearchLib.pm +++ b/lib/BackupPC/SearchLib.pm @@ -4,7 +4,6 @@ package BackupPC::SearchLib; use strict; use BackupPC::CGI::Lib qw(:all); use BackupPC::Attrib qw(:all); -use Data::Dumper; use DBI; sub getUnits() { @@ -53,7 +52,7 @@ sub getWhere($) { push( @conditions, ' backups.hostID = ' . $param->{'search_host'} ) if ($param->{'search_host'}); - push (@conditions, " files.name LIKE '".$param->{'search_filename'}."%'") if ($param->{'search_filename'}); + push (@conditions, " upper(files.name) LIKE upper('%".$param->{'search_filename'}."%')") if ($param->{'search_filename'}); return ( join(" and ", @conditions), @@ -279,7 +278,7 @@ sub displayGrid($$$$) { $retHTML .= qq{ - + @@ -297,15 +296,22 @@ sub displayGrid($$$$) { return $html; } + sub restore_link($$$$$$) { + my $type = shift; + my $action = 'RestoreFile'; + $action = 'browse' if (lc($type) eq 'dir'); + return sprintf(qq{%s}, $action, @_); + } + foreach $file (@files) { my $typeStr = BackupPC::Attrib::fileType2Text(undef, $file->{'type'}); $retHTML .= ""; foreach my $v (( - $file->{'hname'}, + $file->{'sharename'}, qq{ } . hilite_html( $file->{'fpath'}, $hilite ), $typeStr, - $file->{'backupno'}, + restore_link( $typeStr, $file->{'hname'}, $file->{'backupno'}, $file->{'sname'}, $file->{'fpath'}, $file->{'backupno'} ), $file->{'size'}, $file->{'date'}, $file->{'dvd'} -- 2.20.1
HostShare Name Type #