From 4e8d1b0016d5735d91a24921c6ca3ef3253944d5 Mon Sep 17 00:00:00 2001
From: kschaef <kschaefer.tx@gmail.com>
Date: Wed, 25 Jul 2012 14:21:57 -0500
Subject: [PATCH] Fix max_assignments

---
 R/publish-task.r | 3 ++-
 1 file changed, 2 insertions(+), 1 deletion(-)

diff --git a/R/publish-task.r b/R/publish-task.r
index d39aea1..2d5daa8 100644
--- a/R/publish-task.r
+++ b/R/publish-task.r
@@ -31,7 +31,8 @@ publish_task <- function(task = NULL, ..., quiet = FALSE) {
   
   if (length(n) == 0) return()
   
-  max_assignments <- template$max_assignments %||% rep(1, nrow(template))
+  max_assignments <- rep(task$MaxAssignments, nrow(template)) %||% 
+    rep(1, nrow(template))
   lifetime <- parse_duration(task$OverallTimeLimit)
 
   templates <- render_templates(task, data = template[rows, , drop = FALSE])