bweb: Fix recyclepool problem reported by Magnus Kulk

diff --git a/gui/bweb/lib/Bweb.pm b/gui/bweb/lib/Bweb.pm
index 174d3e434b7c71b6f576fc8a4c0b71488328645d..b938c19fc7743e273a7ddaa09afaa07a777952b3 100644 (file)
--- a/gui/bweb/lib/Bweb.pm
+++ b/gui/bweb/lib/Bweb.pm
@@ -1863,6 +1863,8 @@ sub get_form
                  new_dir => 1,
                  job     => 1,
                  storage => 1,
+                 pool   => 1,
+                 poolrecycle => 1,
                  );
     my %opt_s = (               # default to ''
                  ach    => 1,
@@ -1871,14 +1873,12 @@ sub get_form
                  inchanger => 1,
                  client => 1,
                  level  => 1,
-                 pool   => 1,
                  media  => 1,
                  ach    => 1,
                  jobtype=> 1,
                  graph  => 1,
                  gtype  => 1,
                  type   => 1,
-                 poolrecycle => 1,
                  replace => 1,
                  expired => 1,
                  enabled => 1,
@@ -4569,7 +4569,9 @@ sub do_update_media
 
     if (defined $arg->{poolrecycle}) {
         $update .= " recyclepool=\"$arg->{poolrecycle}\" " ;
-    }        
+    } else {
+        $update .= " recyclepool= " ;
+    }
     
     my $b = $self->get_bconsole();
 

diff --git a/gui/bweb/tpl/update_media.tpl b/gui/bweb/tpl/update_media.tpl
index d2706673adf7aedd99bae2c4bc4cb321dedd05f2..63ad4356ffc7594510d1d4b5ae7d53376d98d38a 100644 (file)
--- a/gui/bweb/tpl/update_media.tpl
+++ b/gui/bweb/tpl/update_media.tpl
@@ -97,6 +97,7 @@
     </tr>
     <tr><td>__Recycle Pool:__</td>
         <td><select name='poolrecycle' class='formulaire'>
+             <option value='' title='*__None__*'></option>
 <TMPL_LOOP db_pools>
              <option value='<TMPL_VAR name>'><TMPL_VAR name></option>
 </TMPL_LOOP>