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 035be12a5e961f2db80ec4eeab2295e11e612a68..6319cb9ff07d9d38c51476574e572a8797bc37c5 100755 (executable)
--- 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();