ebl fix mediatype in display_pool

[bacula/bacula] / gui / bweb / cgi / bconsole.pl

diff --git a/gui/bweb/cgi/bconsole.pl b/gui/bweb/cgi/bconsole.pl
index 735944b56af3c9325a61926ce47a3b4a0c0c5ae2..a169dd730c62da2a05079a3493259fb774d229ef 100755 (executable)
--- a/gui/bweb/cgi/bconsole.pl
+++ b/gui/bweb/cgi/bconsole.pl
@@ -52,7 +52,7 @@ use File::Temp qw/tempfile/;
 use Bweb;
 use Bconsole;
 
-my $conf = new Bweb::Config(config_file => '/etc/bweb/config');
+my $conf = new Bweb::Config(config_file => $Bweb::config_file);
 $conf->load();
 
 my $bweb = new Bweb(info => $conf);
@@ -85,7 +85,7 @@ for my $a (@action)
     } elsif ($a eq 'run' and $have_run==0) {
        $have_run=1;
 
-       my $arg = $bweb->get_form(qw/job client storage fileset 
+       my $arg = $bweb->get_form(qw/job client storage fileset regexwhere
                                     where replace priority/);
 
        my $bootstrap = CGI::param('bootstrap');
@@ -107,6 +107,7 @@ for my $a (@action)
                                   storage   => $arg->{storage},
                                   fileset   => $arg->{fileset},
                                   where     => $arg->{where},
+                                  regexwhere => $arg->{regexwhere},
                                   replace   => $arg->{replace},
                                   priority  => $arg->{priority},
                                   bootstrap => $filename);