From 2a8cecb8407d20118e95fb7049fb5d5dae952df0 Mon Sep 17 00:00:00 2001
From: Eric Bollengier <eric@eb.homelinux.org>
Date: Wed, 15 Nov 2006 21:51:30 +0000
Subject: [PATCH] ebl  add comment and recyclepool

git-svn-id: https://bacula.svn.sourceforge.net/svnroot/bacula/trunk@3628 91ce42f0-d328-0410-95d8-f526ca767f89
---
 gui/bweb/lang/fr/tpl/update_media.tpl | 14 ++++++++++++++
 gui/bweb/lib/Bweb.pm                  | 25 +++++++++++++++++++------
 gui/bweb/tpl/update_media.tpl         | 15 +++++++++++++++
 3 files changed, 48 insertions(+), 6 deletions(-)

diff --git a/gui/bweb/lang/fr/tpl/update_media.tpl b/gui/bweb/lang/fr/tpl/update_media.tpl
index 7bf1e1e74f..118bd8efad 100644
--- a/gui/bweb/lang/fr/tpl/update_media.tpl
+++ b/gui/bweb/lang/fr/tpl/update_media.tpl
@@ -85,6 +85,20 @@
                name='maxvolbytes' value='<TMPL_VAR maxvolbytes>'>
         </td>
     </tr>
+    <tr><td>Pool de recyclage :</td>
+        <td><select name='recyclepool' class='formulaire'>
+<TMPL_LOOP db_pools>
+             <option value='<TMPL_VAR name>'><TMPL_VAR name></option>
+</TMPL_LOOP>
+           </select>
+        </td>
+    </tr>
+    <tr><td> Commentaire : </td>
+        <td>
+          <input class='formulaire' type='text' title='un commentaire'
+               name='comment' value='<TMPL_VAR comment>'>
+        </td>
+    </tr>
     </table>
 <table>
  <td>
diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index 41a5ddfa38..de6e1a2d8d 100644
--- a/gui/bweb/lib/Bweb.pm
+++ b/gui/bweb/lib/Bweb.pm
@@ -1352,6 +1352,7 @@ sub get_form
 		 graph  => 1,
                  gtype  => 1,
                  type   => 1,
+		 recyclepool => 1,
 		 );
     my %opt_p = (		# option with path
 		 fileset=> 1,
@@ -2299,7 +2300,9 @@ SELECT Media.Slot         AS slot,
        Media.MaxVolJobs   AS maxvoljobs,
        Media.MaxVolFiles  AS maxvolfiles,
        Media.VolUseDuration AS voluseduration,
-       Media.VolRetention AS volretention
+       Media.VolRetention AS volretention,
+       Media.Comment      AS comment,
+       Media.RecyclePoolId AS recyclepoolid
 
 FROM Media INNER JOIN Pool ON (Media.PoolId = Pool.PoolId)
            LEFT  JOIN Location ON (Media.LocationId = Location.LocationId)
@@ -2782,6 +2785,7 @@ sub do_update_media
     my $arg = $self->get_form(qw/media volstatus inchanger pool
 			         slot volretention voluseduration 
 			         maxvoljobs maxvolfiles maxvolbytes
+			         qcomment recyclepool
 			      /);
 
     unless ($arg->{media}) {
@@ -2841,17 +2845,26 @@ sub do_update_media
     }, "command.tpl");	
 
 
+    my @q;
+    my $media = $self->dbh_quote($arg->{media});
+
     my $loc = CGI::param('location') || '';
     if ($loc) {
-	my $media = $self->dbh_quote($arg->{media});
 	$loc = $self->dbh_quote($loc); # is checked by db
-	my $query = "
+	push @q, "LocationId=(SELECT LocationId FROM Location WHERE Location=$loc)";
+    }
+    if ($arg->{recyclepool}) {
+	push @q, "RecyclePoolId=(SELECT PoolId FROM Pool WHERE Name='$arg->{recyclepool}')";
+    }
+    push @q, "Comment=$arg->{qcomment}";
+    
+
+    my $query = "
 UPDATE Media 
-   SET LocationId=(SELECT LocationId FROM Location WHERE Location=$loc)
+   SET " . join (',', @q) . "
  WHERE Media.VolumeName = $media
 ";
-	$self->dbh_do($query);
-    }
+    $self->dbh_do($query);
 
     $self->update_media();
 }
diff --git a/gui/bweb/tpl/update_media.tpl b/gui/bweb/tpl/update_media.tpl
index a7e16df753..b0578ce9d7 100644
--- a/gui/bweb/tpl/update_media.tpl
+++ b/gui/bweb/tpl/update_media.tpl
@@ -85,6 +85,21 @@
                name='maxvolbytes' value='<TMPL_VAR maxvolbytes>'>
         </td>
     </tr>
+    <tr><td>Recycle Pool:</td>
+        <td><select name='recyclepool' class='formulaire'>
+<TMPL_LOOP db_pools>
+             <option value='<TMPL_VAR name>'><TMPL_VAR name></option>
+</TMPL_LOOP>
+           </select>
+        </td>
+    </tr>
+    <tr><td> Comment: </td>
+        <td>
+          <input class='formulaire' type='text' title='a comment'
+               name='comment' value='<TMPL_VAR comment>'>
+        </td>
+    </tr>
+
     </table>
 <table>
  <td>
-- 
2.39.5