Index: FOPTask.csp
===================================================================
diff -u -r20 -r84
--- FOPTask.csp	(.../FOPTask.csp)	(revision 20)
+++ FOPTask.csp	(.../FOPTask.csp)	(revision 84)
@@ -38,6 +38,7 @@
 
 	<SCRIPT language="javascript" type="text/javascript">
 	var QItemID=#($$$QuoteJS($G(QItemID)))#;
+	var QArchID=#($$$QuoteJS($G(QArchID)))#;
 	var msgConfirmSpec=#($$$QuoteJS($G(jsConfirmSpecial)))#;
 	
 	function cspRepostTaskFromQueue (QItemID,msgConfirm2)  {
@@ -54,6 +55,20 @@
 		return;
 	}
 
+	function cspRepostTaskFromArchive (QItemID,msgConfirm2)  {
+		// This function contains a CSP-server method call.  It must be inside the CSP-page !!!
+		if (!QItemID)  return;
+		var msg;
+		var msgTitle="Repost Task (from Archive)";
+		var msgConfirm1="Deze taak (reeds gearchiveerd!) zal opnieuw in de actieve Queue geplaatst worden. Doorgaan?";
+		if (msgConfirm1 && msgConfirm1.length) { if (!confirmVB(msgConfirm1,msgTitle))  return; }
+		if (msgConfirm2 && msgConfirm2.length) { if (!confirmVB(msgConfirm2,msgTitle,vb_MsgIconExclamation))  return; }
+		msg=#server(..RepostTaskFromArchive(QItemID))#; 
+		if (msg && msg.length)  alertVB(msg,msgTitle);
+		document.location.reload();
+		return;
+	}
+
 	function cspMoveTaskToArchive (QItemID,msgConfirm2)  {
 		// This function contains a CSP-server method call.  It must be inside the CSP-page !!!
 		if (!QItemID)  return;
@@ -157,7 +172,7 @@
 <CSP:IF condition='($G(blnAllowRepost))'>
 	<P class="clsSubHeader">Acties voor deze taak:<P>
 	<UL>
-		<LI><A href="javascript:;" onclick="cspRepostTaskFromArchive(QItemID,msgConfirmSpec);">Herbeginnen</A> (als nieuwe opdracht / Repost this Task)</LI>
+		<LI><A href="javascript:;" onclick="cspRepostTaskFromArchive(QArchID,msgConfirmSpec);">Herbeginnen</A> (als nieuwe opdracht / Repost this Task)</LI>
 	</UL>
 	<hr>
 </CSP:IF>
@@ -369,6 +384,14 @@
 	Quit "QueueItem "_QItemID_$S($$$ISERR(sc):$$$CRLF_" not moved to Archive! "_$$$CRLF_"Error :"_$$ParseStatus^vhLib(sc), 1:" successfully moved to Archive (ArchID="_$S($IsObject(QItem):QItem.%Id(),1:"")_".")
 </SCRIPT>
 
+<SCRIPT method="RepostTaskFromArchive" language="Cache" arguments="QItemID" returntype="%String">
+	Set blnRunAsBatch=1
+	Set sc=##class(BL.Sys.FOP.Scheduler).RepostTaskFromArchive(QItemID,,.NewID,blnRunAsBatch)
+	Set msg="Repost Task: New ID="_$G(NewID)_$S($$$ISERR(sc):$$$CRLF_"Error :"_$$ParseStatus^vhLib(sc), 1:"")_$S(blnRunAsBatch:$$$CRLF_"Run Task as Batch.", 1:"")
+	Quit msg
+</SCRIPT>
+
+
 <SCRIPT method="OnPreHTTP" language="Cache" arguments="" returntype="%Boolean">
 #define CvtNOBR(%v)           "('<NOBR>'||"_%v_"||'</NOBR>') "_%v
 #define CvtNOBRhtml(%v)       "('&lt;NOBR&gt;'||"_%v_"||'&lt;/NOBR&gt;') "_%v
@@ -419,6 +442,7 @@
 	. . Set $P(LogIDShowLast,"||",2)=$P(LogIDShowFirst,"||",2)+LogLines
 	. ; 
 	. Set:(blnQArchive) QItemID="("_QItem.QItemID_")"
+	. Set:(blnQArchive) blnAllowRepost=1
 	Else  Do
 	. Set blnQItemExists=0
 	Set blnQItemOnQueue=##class(Sys.FOP.QueueItem).%ExistsId(QItemID)