</td>
     </tr>
     <tr><td>Pool de recyclage :</td>
-        <td><select name='recyclepool' class='formulaire'>
+        <td><select name='poolrecycle' class='formulaire'>
 <TMPL_LOOP db_pools>
              <option value='<TMPL_VAR name>'><TMPL_VAR name></option>
 </TMPL_LOOP>
       ok=0;
    }
 }
-
+ok=1;
+for (var i=0; ok && i < document.form1.poolrecycle.length; ++i) {
+   if (document.form1.poolrecycle[i].value == '<TMPL_VAR poolrecycle>') {
+      document.form1.poolrecycle[i].selected = true;
+      ok=0;
+   }
+}
 ok=1;
 for (var i=0; ok && i < document.form1.location.length; ++i) {
    if (document.form1.location[i].value == '<TMPL_VAR location>') {
 
                 graph  => 1,
                  gtype  => 1,
                  type   => 1,
-                recyclepool => 1,
+                poolrecycle => 1,
                 );
     my %opt_p = (              # option with path
                 fileset=> 1,
 
     my $query = "
 SELECT Media.Slot         AS slot,
-       Pool.Name          AS poolname,
+       PoolMedia.Name     AS poolname,
        Media.VolStatus    AS volstatus,
        Media.InChanger    AS inchanger,
        Location.Location  AS location,
        Media.VolUseDuration AS voluseduration,
        Media.VolRetention AS volretention,
        Media.Comment      AS comment,
-       Media.RecyclePoolId AS recyclepoolid
+       PoolRecycle.Name   AS poolrecycle
 
-FROM Media INNER JOIN Pool ON (Media.PoolId = Pool.PoolId)
+FROM Media INNER JOIN Pool AS PoolMedia ON (Media.PoolId = PoolMedia.PoolId)
+           LEFT  JOIN Pool AS PoolRecycle ON (Media.RecyclePoolId = PoolRecycle.PoolId)
            LEFT  JOIN Location ON (Media.LocationId = Location.LocationId)
 
 WHERE Media.VolumeName = $media->{qmedia}
     my $arg = $self->get_form(qw/media volstatus inchanger pool
                                 slot volretention voluseduration 
                                 maxvoljobs maxvolfiles maxvolbytes
-                                qcomment recyclepool
+                                qcomment poolrecycle
                              /);
 
     unless ($arg->{media}) {
        $loc = $self->dbh_quote($loc); # is checked by db
        push @q, "LocationId=(SELECT LocationId FROM Location WHERE Location=$loc)";
     }
-    if ($arg->{recyclepool}) {
-       push @q, "RecyclePoolId=(SELECT PoolId FROM Pool WHERE Name='$arg->{recyclepool}')";
+    if ($arg->{poolrecycle}) {
+       push @q, "RecyclePoolId=(SELECT PoolId FROM Pool WHERE Name='$arg->{poolrecycle}')";
     }
     if (!$arg->{qcomment}) {
        $arg->{qcomment} = "''";
 
         </td>
     </tr>
     <tr><td>Recycle Pool:</td>
-        <td><select name='recyclepool' class='formulaire'>
+        <td><select name='poolrecycle' class='formulaire'>
 <TMPL_LOOP db_pools>
              <option value='<TMPL_VAR name>'><TMPL_VAR name></option>
 </TMPL_LOOP>
    }
 }
 
+ok=1;
+for (var i=0; ok && i < document.form1.pool.length; ++i) {
+   if (document.form1.poolrecycle[i].value == '<TMPL_VAR poolrecycle>') {
+      document.form1.poolrecycle[i].selected = true;
+      ok=0;
+   }
+}
+
 ok=1;
 for (var i=0; ok && i < document.form1.location.length; ++i) {
    if (document.form1.location[i].value == '<TMPL_VAR location>') {