ebl Fix display of / on bfileview

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@8832 91ce42f0-d328-0410-95d8-f526ca767f89

diff --git a/gui/bweb/cgi/bfileview.pl b/gui/bweb/cgi/bfileview.pl
index 7196ea7ac781d9bf3e1eae595c57b96566a5e92f..fab7d1a8ba2e9e2854f0fea050c9ca60ba01736e 100755 (executable)
--- a/gui/bweb/cgi/bfileview.pl
+++ b/gui/bweb/cgi/bfileview.pl
@@ -120,7 +120,7 @@ if ($fnid and $pathid)
        exit 0;
     }
 
-} else {
+} elsif ($where ne '/') {
 
     my $attribs = fv_get_file_attribute($jobid, $where);
     if ($attribs->{found}) {
@@ -280,15 +280,13 @@ sub fv_list_dirs
 sub fv_get_file_attribute
 {
     my ($jobid, $full_name) = @_;
-    
-    # default to /
-    my $path = "'/'";
-    my $filename = "''";
-    
-    if ($full_name ne '/') {
-       $filename = $bweb->dbh_quote(basename($full_name));
-       $path     = $bweb->dbh_quote(dirname($full_name) . "/");
+
+    if ($full_name eq '/') {
+        return {found => 0};
     }
+    
+    my $filename = $bweb->dbh_quote(basename($full_name));
+    my $path     = $bweb->dbh_quote(dirname($full_name) . "/");
 
     my $attr = $bweb->dbh_selectrow_hashref("
  SELECT 1    AS found,