From fc38e616ac9d15862d06718521fc458b6a722969 Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Sun, 18 Nov 2007 16:33:49 +0000
Subject: [PATCH] ebl  Add role checks for media

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@5958 91ce42f0-d328-0410-95d8-f526ca767f89
---
 gui/bweb/cgi/bweb.pl | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/gui/bweb/cgi/bweb.pl b/gui/bweb/cgi/bweb.pl
index 035be12a5e..6319cb9ff0 100755
--- a/gui/bweb/cgi/bweb.pl
+++ b/gui/bweb/cgi/bweb.pl
@@ -129,6 +129,8 @@ if ($action eq 'begin') {		# main display
     $bweb->location_del();
 
 } elsif ($action eq 'media') {
+    $bweb->can_do('r_view_media');
+
     print "<div><table border='0'><tr><td valign='top'>\n";
     my $fields = $bweb->get_form(qw/db_locations db_pools expired
 				    qlocations qpools volstatus qre_media
@@ -162,6 +164,8 @@ if ($action eq 'begin') {		# main display
 
 	$a->display_content();
     }
+} elsif ($action eq 'add_media') {
+    $bweb->add_media();
 
 } elsif ($action eq 'eject_media') {
     $bweb->eject_media();
-- 
2.39.5