ebl Fix a bug in can_do();

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

diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index f1e853224fcf335bb2dac230806bb4e2b7d3622b..24c2b60a88cc2ffbb5a9c90878c3faa7b332ee9d 100644 (file)
--- a/gui/bweb/lib/Bweb.pm
+++ b/gui/bweb/lib/Bweb.pm
@@ -2748,8 +2748,9 @@ sub can_do
 {
     my ($self, $action) = @_;
     if ($self->cant_do($action)) {
-       $self->error($self->{error});
+        $self->error($self->{error});
         $self->display_end();
+        exit 0;
     }
     return 1;
 }