From: Eric Bollengier <eric@eb.homelinux.org>
Date: Sun, 18 Nov 2007 16:33:49 +0000 (+0000)
Subject: ebl  Add role checks for media
X-Git-Tag: Release-3.0.0~2227
X-Git-Url: https://git.sur5r.net/?a=commitdiff_plain;h=fc38e616ac9d15862d06718521fc458b6a722969;p=bacula%2Fbacula

ebl  Add role checks for media

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

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();