ebl add string with space to get_form()

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

diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index a38e5fba0cd81c0ffd801f67ce6a3daf3f287b68..b7ffb38850f75fe603c699de29b086b65ac3f0f8 100644 (file)
--- a/gui/bweb/lib/Bweb.pm
+++ b/gui/bweb/lib/Bweb.pm
@@ -1338,6 +1338,10 @@ sub get_form
                 maxvolfiles => 0,
                 );
 
+    my %opt_ss =(              # string with space
+                job     => 1,
+                storage => 1,
+                );
     my %opt_s = (              # default to ''
                 ach    => 1,
                 status => 1,
@@ -1353,12 +1357,14 @@ sub get_form
                  gtype  => 1,
                  type   => 1,
                 poolrecycle => 1,
+                replace => 1,
                 );
     my %opt_p = (              # option with path
                 fileset=> 1,
                 mtxcmd => 1,
                 precmd => 1,
                 device => 1,
+                where  => 1,
                 );
 
     my %opt_d = (              # option with date
@@ -1377,7 +1383,11 @@ sub get_form
            if ($value =~ /^([\w\d\.-]+)$/) {
                $ret{$i} = $1;
            }
-
+       } elsif ($opt_ss{$i}) { # simple string param (with space)
+           my $value = CGI::param($i) || '';
+           if ($value =~ /^([\w\d\.\-\s]+)$/) {
+               $ret{$i} = $1;
+           }
        } elsif ($i =~ /^j(\w+)s$/) { # quote join args
            my @value = CGI::param($1) ;
            if (@value) {