ebl fix relocation add_suffix bugs

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

diff --git a/gui/brestore/brestore.pl b/gui/brestore/brestore.pl
index 33f17328b1861d2272aea57f17c98c324a22d1f1..8b964da743e78f3ae75dd21702802976fc2eb2f3 100755 (executable)
--- a/gui/brestore/brestore.pl
+++ b/gui/brestore/brestore.pl
@@ -728,7 +728,7 @@ sub get_where
        }
 
        if ($add_suffix) {
-           push @ret,"!([^/])$!\$1$add_prefix!";
+           push @ret,"!([^/])\$!\$1$add_suffix!";
        }
 
        return ('rwhere', join(',', @ret));