From 0f8bf3f8bdf38ca22821c13307e2d0785e4361a1 Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Sat, 18 Nov 2006 16:31:55 +0000
Subject: [PATCH] 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
---
 gui/bweb/lib/Bweb.pm | 12 +++++++++++-
 1 file changed, 11 insertions(+), 1 deletion(-)

diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index a38e5fba0c..b7ffb38850 100644
--- 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) {
-- 
2.39.5