;;webscript tgenericframe( Assoc taskData )

	<!-- File: webwork/tgenericframe.html -->

	;;oscript{
	
		Assoc		buttonInfo
		Assoc		section
		Dynamic		s
		List		buttonList
		String		checked
		String		key
		
		Boolean		delegate = False
		Boolean		review = False
		Integer		pDelegate = $WFPDelegate
		Integer		pReview = $WFPReview
		Integer		pDisposition = $WFPDisposition
		Integer		pSignature = $WFPSignature
		Record		taskInfo = taskData.TaskInfo
		Assoc		permData = taskInfo.SubWorkTask_UserData.PERMFLAGS
		Assoc		workDone = taskInfo.SubWorkTask_UserData.WORKDONE
		Boolean		confirm = ( IsDefined( permData ) ) && ( ( permData.PERMISSIONS & pSignature ) == pSignature )
		String		img = .Img()
		String		url = .url()
		String		myURL = $WEBDSP.HTMLPkg.ArgsToURL( .fArgs )
		String		delReviewURL = Str.Format( '%1?func=work.DelegateReview&xAction=%%1' + \
												'&WorkID=%2&SubWorkID=%3&TaskID=%4&NextURL=%%2', \
											url, \
											taskInfo.SUBWORKTASK_WORKID, \
											taskInfo.SUBWORKTASK_SUBWORKID, \
											taskInfo.SUBWORKTASK_TASKID )
		String		editTaskURL = Str.Format( '%1?func=work.edittask&WorkID=%2&SubWorkID=%3&TaskID=%4&NextURL=%5', \
											url, \
											taskInfo.SUBWORKTASK_WORKID, \
											taskInfo.SUBWORKTASK_SUBWORKID, \
											taskInfo.SUBWORKTASK_TASKID, \
											Web.Escape( .fArgs.NextURL ) )
											

		workDone = ( IsDefined( workDone ) )? workDone : Assoc.CreateAssoc()
		
Object prgCtx1 = Undefined
Boolean singleUserGroup=False
if (Os.IsFeature( this, "fPrgCtx" ) )
	prgCtx1 = .fPrgCtx
end // if
if ( IsDefined( prgCtx1 ) && IsNotError( prgCtx1 ) )
	Dynamic userObject = prgCtx1.USession()
	if ( IsDefined( userObject ) && IsNotError( userObject ) )
		UAPISession uapiSession = userObject.fSession
		if ( IsDefined( uapiSession ) && IsNotError( uapiSession ) )
			RecArray userInfo = UAPI.GetByID( uapiSession, taskInfo.SUBWORKTASK_PERFORMERID )
			if ( IsDefined( userInfo ) && IsNotError( userInfo ) )
				String userType = Str.String(userInfo[1].Type)
				if (userType=="1")
					RecArray groupMembers=UAPI.ChildrenListByID(uapiSession,userInfo[1].Id)                  
					Integer groupMembersLength=Length(groupMembers)
					if ((groupMembersLength==1) && (groupMembers[1].Type==UAPI.USER))
						singleUserGroup=True
					end
				end
			end
		end
	end
end			
				
		if ( taskData.GroupStep )
			delegate = review = False
			
			buttonInfo.Value = [WebWork_HTMLLabel.AcceptThisAssignmentButtonLabel]
			buttonInfo.Name = 'IgnoreMe'
			buttonInfo.ONCLICK = Str.Format( "document.myForm.xAction.value='Accept'; document.myForm.NextURL.value='%1'; document.myForm.submit();", editTaskURL )
				
			buttonList = { @buttonList, buttonInfo }
			
			buttonInfo = Assoc.CreateAssoc()

			buttonInfo.Value = [WebWork_HTMLLabel.DonTAcceptButtonLabel]
			buttonInfo.Name = 'IgnoreMe'
			buttonInfo.ONCLICK = Str.Format( "document.myForm.xAction.value='NoAccept';document.myForm.NextURL.value='%1';document.myForm.submit();", .fArgs.NextURL )
				
			buttonList = { @buttonList, buttonInfo }			
		else		
			if ( IsDefined( permData ) )
				delegate = ( ( permData.PERMISSIONS & pDelegate ) == pDelegate )
				review = ( ( permData.PERMISSIONS & pReview ) == pReview )
			end

			if ( IsDefined( permData ) ) &&( ( permData.PERMISSIONS & pDisposition ) == pDisposition )
				for s in permData.Dispositions
					buttonInfo = Assoc.CreateAssoc()
					
					buttonInfo.Value = s
					buttonInfo.Name = 'IgnoreMe'
					buttonInfo.ONCLICK = Str.Format( "document.myForm.Disposition.value=%1;SubmitMyPage('%2');", Str.JString( s ), .fArgs.NextURL )
					
					buttonList = { @buttonList, buttonInfo }
				end
			else
				buttonInfo.Value = [WebWork_HTMLLabel.SendOnButtonLabel]
				buttonInfo.Name = 'IgnoreMe'
				buttonInfo.ONCLICK = Str.Format( "document.myForm.xAction.value='SendOn';SubmitMyPage('%1');", .fArgs.NextURL )
					
				buttonList = { @buttonList, buttonInfo }
			end
		end
	;;}


	<SCRIPT LANGUAGE="JavaScript">
	<!--

		;if (( taskData.GroupStep ) && (!singleUserGroup))
			alert( `%LStr.CString( Str.Format( "%1 %2", [WebWork_HTMLLabel.ThisStepAssignmentHasBeenOfferedToMoreThanOnePerson], [WebWork_HTMLLabel.ItMustBeAcceptedBeforeWorkCanBeDone] ), "'" )` );
		;end
		
		function SubmitMyPage( s )
		{
			document.myForm.NextURL.value = s; 
			
			if ( leaveTaskEdit() )
			{
				if ( `confirm` )
				{
					doConfirmUser();
				}
				else
				{
					for ( i = 0; i < document.myForm.length; i++ ) 
					{
						var tempobj = document.myForm.elements[ i ];

						
						if ( tempobj.type.toLowerCase() == "button" )
						{
							tempobj.disabled = true;
						}
					}
					document.myForm.submit();
				}
			}
		}
		
		function userConfirmation( confirm )
		{
			if ( confirm )
			{
				document.myForm.submit();
			}
			else
			{
				alert( `%LStr.CString( [WebWork_Message.InvalidPassword] )` )
			}
		}
		
		function leaveTaskEdit()
		{
			parent.IFrameRight.focus();

			if ( parent.istedirty )
			{
				if ( !confirm( "`%D[WebWork_HTMLLabel.PageDirtyMsg]`" ) )
				{
					return false;
				}
			}
			return true;
		}
		
		function taskEditGo( s )
		{
			parent.istedirty = false;
			setWFLocation( parent.IFrameRight.location, s );
		}
		
		;Assoc	ucargs
		;ucargs.javaFuncName = "doConfirmUser"
		;ucargs.javaReturnFuncName = "userConfirmation"
		;;call < .HTMLPrefix() + 'userconfirm.html'>( ucargs )

	%// -->
	</SCRIPT>

	<BASE TARGET="IFrameRight">

	<TABLE HEIGHT="100%" WIDTH="100%" CELLSPACING="0" CELLPADDING="0" BORDER="0">
		<TR>
			<TD VALIGN="TOP" HEIGHT="100%" CLASS="pageBody">

	<TABLE WIDTH="100%" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="15">
		<TR>
			<TD>		
				<TABLE WIDTH="100%" ALIGN="CENTER" CELLPADDING="0" CELLSPACING="0">
					<TR>
						<TD CLASS="tblBackground">
							<TABLE CELLSPACING="1" CELLPADDING="0" WIDTH="100%">
								<FORM NAME="saveCB" ACTION="`url`" ENCTYPE="multipart/form-data" METHOD="POST" TARGET="IFrameLeft">
									<INPUT TYPE="HIDDEN" NAME="func" VALUE="work.checklistsave">
									<INPUT TYPE="HIDDEN" NAME="workid" VALUE="`taskInfo.WORK_WORKID`">
									<INPUT TYPE="HIDDEN" NAME="subworkid" VALUE="`taskInfo.SUBWORK_SUBWORKID`">
									<INPUT TYPE="HIDDEN" NAME="taskid" VALUE="`taskInfo.SUBWORKTASK_TASKID`">
									<INPUT TYPE="HIDDEN" NAME="NextURL" VALUE="`myURL`">		
									<TR>
										<TD CLASS="browseBoxHeader" COLSPAN="3"> 
											<TABLE STYLE="background-repeat: repeat-x" BACKGROUND="`img`fon-table-header-gray.gif" BORDER="0" CELLSPACING="0" CELLPADDING="0" WIDTH="100%">
												<TR>
													<TD WIDTH="1%"><IMG SRC="`img`spacer.gif" HEIGHT="28" WIDTH="1"></TD>
													<TD ALIGN="CENTER"><B>`taskInfo.SubWork_Title`</B></TD>
												</TR>
											</TABLE>
										</TD>
									</TR>
									<TR>
										<TD>
											<TABLE STYLE="background-repeat: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" BORDER="0" CELLSPACING="0" CELLPADDING="3" WIDTH="100%">
												<TR>
													<TD CLASS="groupPaneTitles">&nbsp;`[WebWork_HTMLLabel.WorkItem]`</TD>
												</TR>
											</TABLE>
										</TD>
									</TR>
									<TR>
										<TD CLASS="tblForeground">		
											<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0">
	
	//	Display the workflow packages.
				
	;Assoc		right
	;String		iconStr
	;Boolean	first = TRUE				
				
	;for section in taskData.Sections
		;if( !first )
												<TR>
													<TD CLASS="valueHorizontalDivider" COLSPAN="2"><IMG SRC="`.Img()`spacer.gif" HEIGHT="1"></TD>
												</TR>
		;end
		;first = FALSE
												<TR> 
													<TD SCOPE="rowgroup" ALIGN="LEFT" VALIGN="TOP"><IMG SRC="`.ModImg( section.Module )``section.gif`" ALT="`section.AltTag`">
						
		;key = Str.Format( '%1_%2', section.Type, section.SubType )

														&nbsp;<A HREF="`section.URL`" ONCLICK="if ( leaveTaskEdit() ) taskEditGo( '`%Lsection.URL`'); else return false;" TARGET="IFrameRight">`section.Name`</A></TD>

												</TR>
	;end
					
											</TABLE>
										</TD>
									</TR>
								</FORM>				
								<FORM NAME="myForm" ACTION="`url`" ENCTYPE="multipart/form-data" METHOD="POST" TARGET="_parent">
									<INPUT TYPE="HIDDEN" NAME="func" VALUE="work.taskdone">
									<INPUT TYPE="HIDDEN" NAME="workid" VALUE="`taskInfo.WORK_WORKID`">
									<INPUT TYPE="HIDDEN" NAME="subworkid" VALUE="`taskInfo.SUBWORK_SUBWORKID`">
									<INPUT TYPE="HIDDEN" NAME="taskid" VALUE="`taskInfo.SUBWORKTASK_TASKID`">
									<INPUT TYPE="HIDDEN" NAME="xAction" VALUE="Custom">
									<INPUT TYPE="HIDDEN" NAME="Disposition" VALUE="">
									<INPUT TYPE="HIDDEN" NAME="NextURL" VALUE="`.fArgs.NextURL`">
		
	;if ( delegate || review )
									<TR>
										<TD>
											<TABLE STYLE="background-repeat: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" BORDER="0" CELLSPACING="0" CELLPADDING="3" WIDTH="100%">
												<TR>
													<TD CLASS="groupPaneTitles">&nbsp;</TD>
												</TR>
											</TABLE>
										</TD>
									</TR>
									<TR>
										<TD CLASS="tblForeground">		
											<TABLE WIDTH="100%" CELLPADDING="0" CELLSPACING="0">

		;if ( delegate )					
												<TR> 
													<TD SCOPE="rowgroup" ALIGN="LEFT" VALIGN="TOP"><IMG SRC="`.ModImg()`16_delegate.gif" WIDTH="16" HEIGHT="16" ALT="`[WebWork_HTMLLabel.Delegate]`">
														&nbsp;<A HREF="`Str.Format( delReviewURL, 'Delegate', Web.Escape( myURL ) )`"><I>`[WebWork_HTMLLabel.DelegateTo__]`</I></A>
													</TD>
												</TR>
		;end
				
		;if ( review )		
												<TR> 
													<TD SCOPE="rowgroup" ALIGN="LEFT" VALIGN="TOP"><IMG SRC="`.ModImg()`16_sendforreview.gif" WIDTH="16" HEIGHT="16" ALT="`[WebWork_HTMLLabel.Review]`">
														&nbsp;<A HREF="`Str.Format( delReviewURL, 'Review', Web.Escape( myURL ) )`"><I>`[WebWork_HTMLLabel.SendForReview__]`</I></A>
													</TD>
												</TR>
		;end
											</TABLE>
										</TD>
									</TR>
				
	;end
	;if ( Length( buttonList ) )
									<TR>
										<TD>
											<TABLE CELLPADDING="0" WIDTH="100%" ALIGN="CENTER" STYLE="background-repeat: repeat-x; background-color: white;" BACKGROUND="`img`fon-table-header-gray.gif">
												<TR>
													<TD ALIGN="CENTER">				
		;for buttonInfo in buttonList
														<INPUT CLASS="saveButton" TYPE="BUTTON" VALUE="`buttonInfo.Value`" NAME="`buttonInfo.Name`" ONCLICK="`buttonInfo.ONCLICK`">
		;end
													</TD>
												</TR>
											</TABLE>
										</TD>
									</TR>
	;end
		
							</FORM>
							</TABLE>
						</TD>
						<TD STYLE="BACKGROUND-REPEAT: repeat-y" WIDTH="2"  BACKGROUND="`img`form-shadow-right.gif"><IMG HEIGHT="2" ALT="" SRC="`img`form-shadow-right.gif" WIDTH="2" BORDER="0"></TD>
					</TR>
					<TR>
						<TD WIDTH="100%" BACKGROUND="`img`form-shadow-bottom.gif"><IMG HEIGHT="2" ALT="" SRC="`img`block-shadow-bottom-left.gif" WIDTH="2" BORDER="0"></TD>
						<TD VALIGN="top" WIDTH="2"><IMG HEIGHT="2" ALT="" SRC="`img`block-shadow-bottom-right.gif" WIDTH="2" BORDER="0"></TD>
					</TR>
				</TABLE>
			</TD>
		</TR>
	</TABLE>

	</TD></TR></TABLE>
		
	;if (singleUserGroup)
		<script language="javascript">
			for (i=0;i<document.myForm.length;i++)
			{
				if ((document.myForm.elements[i].value=="Accept Assignment") && (document.myForm.elements[i].type=="button"))
				{
					document.myForm.elements[i].click();
				}
			}
		</script>
	;end
		
	<!-- End File: webwork/tgenericframe.html -->

;;end