ebl Add some sql to get media Enabled and InChanger flags

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

diff --git a/gui/bweb/cgi/bresto.pl b/gui/bweb/cgi/bresto.pl
index 78c8c8db943d8dd1fd7ad7a5c64556e3e2006615..1acba67901fe0894a0773e9660a72956bee7636b 100755 (executable)
--- a/gui/bweb/cgi/bresto.pl
+++ b/gui/bweb/cgi/bresto.pl
@@ -825,6 +825,25 @@ if ($action eq 'list_files') {
               @$files);
     print "]\n";
 
+} elsif ($action eq 'get_media') {
+
+    my $jobid = join(',', @jobid);
+    my $fileid = join(',', grep { /^\d+$/ } CGI::param('fileid'));
+
+my $q="
+ SELECT DISTINCT VolumeName, InChanger
+   FROM File, 
+    ( -- Get all media from this job
+      SELECT MAX(FirstIndex), MIN(LastIndex), VolumeName, Inchanger
+        FROM JobMedia JOIN Media USING (MediaId)
+       WHERE JobId IN ($jobid)
+       GROUP BY VolumeName, InChanger
+    ) AS allmedia
+  WHERE File.FileId IN ($fileid)
+    AND File.FileIndex >= allmedia.FirstIndex 
+    AND File.FileIndex <= allmedia.LastIndex;
+";
+
 }