Helper function to set/clear idle_ignore and idleswap flags.

db/Experiment.pm.in

@@ -3136,6 +3136,22 @@ sub UpdateIdleSwapTime($$)
     return 0;
 }
 
+#
+# Set the idle swap flags.
+#
+sub SetIdleSwapFlags($$$)
+{
+    my ($self, $idleswap, $idleignore) = @_;
+    $idleswap   = ($idleswap ? 1 : 0);
+    $idleignore = ($idleignore ? 1 : 0);
+
+    return -1
+	if (! $self->Update({'idleswap'    => $idleswap,
+			     'idle_ignore' => $idleignore}));
+
+    return 0;
+}
+
 #
 # Experiment tables.
 #