;;webscript View( String what, String area = '', String areas = '', Dynamic nodeRec = undefined )

	<!-- File: home/tasksview.html -->

	;Dynamic 	info
	;Dynamic 	now
	;Dynamic 	open
	;Dynamic 	x
	;Dynamic 	webnode
	;Dynamic 	webRoot
	;Dynamic	openRoot

	;Boolean	pageHandling = ( Str.Upper( .fArgs.Mode ) == 'SHOW' ) && IsDefined( .fPageInfo )
	;Integer 	tab = .fArgs.Tab
	;String  	mode = .fArgs.Mode 
	;String  	sort = .fArgs.Sort
	;String     img = .IMG()
	;String	 	htmlPrefix = .HTMLPrefix()

	// variables for the color settings
	
	;Object		webUtils = $WebLL.WebUtils
	;Assoc		styles = webUtils.DisplayStylesGet( .fPrgCtx )
	;Integer	rowfactor = 1
	

	;switch Str.Upper( what )
		;case 'SHOW'
			
			<TR VALIGN="top">
			<TD CLASS="tblBackground" WIDTH="100%">
			// End table creates outer line
			// This table creates outer library view 
			<TABLE WIDTH="100%" BORDER="0" CELLSPACING="1" CELLPADDING="0">
			<TR>
			<TD>	
				
	        <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%">

				<TR CLASS="browseListHeader">
					<TD WIDTH="1%" STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif"> &nbsp;</TD>
					
					<TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderType" SCOPE="colgroup" NOWRAP>
						&nbsp;<A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='type'?'-':''`type')">`[Home_HTMLLabel.Type]`</A>`%LwebUtils.SortIndicatorGet( .fArgs, 'type' )`&nbsp;
					</TD>
					<TD WIDTH="1%" CLASS="cellDivider" STYLE="BACKGROUND-REPEAT: no-repeat" BACKGROUND="`img`table-header-divider.gif"><IMG HEIGHT="19" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
					
					<TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderName" SCOPE="colgroup" NOWRAP>
						&nbsp;<A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='name'?'-':''`name')">`[Home_HTMLLabel.Name]`</A>`%LwebUtils.SortIndicatorGet( .fArgs, 'name' )`&nbsp;
					</TD>
					<TD WIDTH="1%" CLASS="cellDivider" STYLE="BACKGROUND-REPEAT: no-repeat" BACKGROUND="`img`table-header-divider.gif"><IMG HEIGHT="19" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
					
					<TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderDate" SCOPE="colgroup" NOWRAP>
						&nbsp;<A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='due'?'-':''`due')">`[Home_HTMLLabel.DueDate]`</A>`%LwebUtils.SortIndicatorGet( .fArgs, 'due' )`&nbsp;
					</TD>
					<TD WIDTH="1%" CLASS="cellDivider" STYLE="BACKGROUND-REPEAT: no-repeat" BACKGROUND="`img`table-header-divider.gif"><IMG HEIGHT="19" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
					
					<TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderStatus" SCOPE="colgroup" NOWRAP>
						&nbsp;<A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='priority'?'-':''`priority')">`[Home_HTMLLabel.Priority]`</A>`%LwebUtils.SortIndicatorGet( .fArgs, 'priority' )`&nbsp;
					</TD>
					<TD WIDTH="1%" CLASS="cellDivider" STYLE="BACKGROUND-REPEAT: no-repeat" BACKGROUND="`img`table-header-divider.gif"><IMG HEIGHT="19" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
					
					<TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderStatus" SCOPE="colgroup" NOWRAP>
						&nbsp;<A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='status'?'-':''`status')">`[Home_HTMLLabel.Status]`</A>`%LwebUtils.SortIndicatorGet( .fArgs, 'status' )`&nbsp;
					</TD>
					<TD WIDTH="1%" CLASS="cellDivider" STYLE="BACKGROUND-REPEAT: no-repeat" BACKGROUND="`img`table-header-divider.gif"><IMG HEIGHT="19" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
					
					<TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderUser" SCOPE="colgroup" NOWRAP>
						&nbsp;<A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='from'?'-':''`from')">`[Home_HTMLLabel.From]`</A>`%LwebUtils.SortIndicatorGet( .fArgs, 'from' )`&nbsp;
					</TD>
					<TD WIDTH="1%" CLASS="cellDivider" STYLE="BACKGROUND-REPEAT: no-repeat" BACKGROUND="`img`table-header-divider.gif"><IMG HEIGHT="19" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
					
					<TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderLocation" SCOPE="colgroup" NOWRAP>
						&nbsp;<A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='location'?'-':''`location')">`[Home_HTMLLabel.Location]`</A>`%LwebUtils.SortIndicatorGet( .fArgs, 'location' )`&nbsp;
					</TD>
				</TR>
				
				;;call <htmlPrefix + "list.html">( "Thick_Line" )
				
				;if Length( .fContents ) > 0
				
					;Object	webNodes = $WebNode.WebNodes

					;now = CAPI.Now( .fPrgCtx.fDBConnect.fConnection )
					
					;for nodeRec in .fContents

						;rowfactor ^= 1

						<TR CLASS="`Str.Format( 'browseRow%1', rowfactor + 1 )`"> 
							<TD><IMG HEIGHT="24" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
							;webnode = webNodes.GetItem( nodeRec.SubType )
							
							;open = webnode.Cmd( 'open' )
							
							<TD CLASS="browseItemType" NOWRAP>`%Lopen.DisabledUnescapedLink( .fPrgCtx, .fArgs, nodeRec, webNode.IMG( nodeRec ) )`</TD>
							<TD><IMG HEIGHT="1" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
							<TD CLASS="browseItemName" SCOPE="rowgroup">`%Lopen.DisabledLink( .fPrgCtx, .fArgs, nodeRec, nodeRec.Name )`</TD>
							<TD><IMG HEIGHT="1" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
							<TD CLASS="browseItemDate" NOWRAP><FONT COLOR="`nodeRec.DateDue_Color`">`.FmtDate( nodeRec.DateDue, TRUE )`</TD>
							<TD><IMG HEIGHT="1" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
							<TD CLASS="browseItemStatus" NOWRAP><FONT COLOR="`nodeRec.Priority_Color`">&nbsp;`%LnodeRec.Priority_String`</TD>
							<TD><IMG HEIGHT="1" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
							<TD  CLASS="browseItemStatus" NOWRAP><FONT COLOR="`nodeRec.Status_Color`">&nbsp;`%LnodeRec.Status_String`</TD>
							<TD><IMG HEIGHT="1" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
							<TD CLASS="browseItemUser" NOWRAP>
								;if IsDefined( nodeRec.CreatedBy )
									;;call <.HTMLPrefix() + 'douserdialog.html'>( nodeRec.CreatedBy, nodeRec._CreatedBy_Name )
								;end
							</TD>
							<TD><IMG HEIGHT="1" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
							;if( ( nodeRec.subType == $TypePersonalStagingFolder ) &&  ( Math.Abs( nodeRec.OwnerID ) == nodeRec.parentID ) )
								<TD CLASS="browseItemLocation">&nbsp;</TD>
							;else
								;webRoot = $WebNode.WebNodes.GetItem( nodeRec.RootRec.SubType )
								;openRoot = webRoot.Cmd( 'open' )
								<TD CLASS="browseItemLocation">`%LwebRoot.IMG( nodeRec.RootRec )`&nbsp;`%LopenRoot.DisabledLink( .fPrgCtx, .fArgs, nodeRec.RootRec, nodeRec.RootRec.Name )`</TD>
							;end
						</TR>
						;;call <htmlPrefix + "list.html">( "Thin_Line" )
					;end

				;else
					;rowfactor ^= 1
					<TR CLASS="`Str.Format( 'browseRow%1', rowfactor + 1 )`"> 
						<TD HEIGHT="24" CLASS="explanatoryText" NOWRAP COLSPAN="100">
							&nbsp;&nbsp;`Str.Format( [Home_HTMLLabel.No1_], areas )`
						</TD>
					</TR>
					;;call <htmlPrefix + "list.html">( "Thin_Line" )
				;end

			</TABLE>
											
			</TD>
			</TR>
			// End table creates outer line
			</TABLE> 
			// End table creates outer line
							
			</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>
					
			;if pageHandling			
				<TABLE BORDER="0" WIDTH="100%" CELLPADDING="0" CELLSPACING="0">
					<TR ALIGN="CENTER"> 
						<TD CLASS="heavyHorizontalDivider" WIDTH="100%"><IMG SRC="`.Img()`spacer.gif" ALT="" WIDTH="1" HEIGHT="1" BORDER="0"></TD>
					</TR>
				</TABLE>
			
				<TABLE WIDTH="100%">
					<TR>
						<TD CLASS="label" NOWRAP>

							;Integer	j

							;Integer	numPages = .fPageInfo[ 2 ]
							;Integer	currPage = .fPageInfo[ 1 ]


							<INPUT TYPE="HIDDEN" NAME="EditPage" VALUE="`currPage`">

							&nbsp;`[Home_HTMLLabel.Page_]`

							<LABEL FOR="EditPagePopup"></LABEL>
							<SELECT ID="EditPagePopup" NAME="EditPagePopup" ONCHANGE="doSubmit('Show','','`%S.fArgs.Sort`', this.options[ this.selectedIndex ].value)">
  					
								;for j = 1 to numPages
									<OPTION VALUE="`j`" `(currPage==j)?'SELECTED':''`>`j` of `numPages`		
								;end

							</SELECT>
						</TD>
					</TR>
				</TABLE>			
				;end					
			
		;end
		;case 'EDIT_HEADER'
			
			<TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderType" NOWRAP>&nbsp;<A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='type'?'-':''`type')">`[Home_HTMLLabel.Type]`</A>&nbsp;</TD>
			<TD WIDTH="1%" CLASS="cellDivider" STYLE="BACKGROUND-REPEAT: no-repeat" BACKGROUND="`img`table-header-divider.gif"><IMG HEIGHT="19" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
			
			<TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderName" NOWRAP>&nbsp;<A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='name'?'-':''`name')">`[Home_HTMLLabel.Name]`</A></TD>
			<TD WIDTH="1%" CLASS="cellDivider" STYLE="BACKGROUND-REPEAT: no-repeat" BACKGROUND="`img`table-header-divider.gif"><IMG HEIGHT="19" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
			
			<TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderDate" NOWRAP><A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='due'?'-':''`due')">`[Home_HTMLLabel.DueDate]`</A></TD>
			<TD WIDTH="1%" CLASS="cellDivider" STYLE="BACKGROUND-REPEAT: no-repeat" BACKGROUND="`img`table-header-divider.gif"><IMG HEIGHT="19" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
			
			<TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderStatus" NOWRAP>&nbsp;<A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='priority'?'-':''`priority')">`[Home_HTMLLabel.Priority]`</A></TD>
			<TD WIDTH="1%" CLASS="cellDivider" STYLE="BACKGROUND-REPEAT: no-repeat" BACKGROUND="`img`table-header-divider.gif"><IMG HEIGHT="19" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
			
			<TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderStatus" NOWRAP>&nbsp;<A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='status'?'-':''`status')">`[Home_HTMLLabel.Status]`</A></TD>
			<TD WIDTH="1%" CLASS="cellDivider" STYLE="BACKGROUND-REPEAT: no-repeat" BACKGROUND="`img`table-header-divider.gif"><IMG HEIGHT="19" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>

		      <TD STYLE="BACKGROUND-REPEAT: repeat-x" BACKGROUND="`img`fon-table-header-blue.gif" CLASS="browseListHeaderLocation" SCOPE="colgroup" NOWRAP>&nbsp;<A HREF="javascript:doSubmit('`%Smode`','`%Stab`','`sort=='location'?'-':''`location')">`[Home_HTMLLabel.Location]`</A></TD>
		      <TD WIDTH="1%" CLASS="cellDivider" STYLE="BACKGROUND-REPEAT: no-repeat" BACKGROUND="`img`table-header-divider.gif"><IMG HEIGHT="19" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
		;end
		;case 'EDIT_BODY'

			;webnode = $WebNode.WebNodes.GetItem( nodeRec.SubType )
			
			;open = webnode.Cmd( 'open' )
						
			<TD CLASS="browseItemType" NOWRAP>`%Lopen.DisabledUnescapedLink( .fPrgCtx, .fArgs, nodeRec, webNode.IMG( nodeRec ) )`</TD>
			<TD><IMG HEIGHT="1" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
			
			<TD CLASS="browseItemName" NOWRAP>`%Lopen.DisabledLink( .fPrgCtx, .fArgs, nodeRec, nodeRec.Name )`</TD>
			<TD><IMG HEIGHT="1" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
			
			<TD CLASS="browseItemDate" NOWRAP><FONT COLOR="`nodeRec.DateDue_Color`">`.FmtDate( nodeRec.DateDue, TRUE )`</TD>
			<TD><IMG HEIGHT="1" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
			
			<TD CLASS="browseItemStatus" NOWRAP><FONT COLOR="`nodeRec.Priority_Color`">&nbsp;`%LnodeRec.Priority_String`</TD>
			<TD><IMG HEIGHT="1" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
			
			<TD CLASS="browseItemStatus" NOWRAP>
				;if nodeRec.SubType == $TypeTask
					<INPUT TYPE="HIDDEN" NAME="tabdef_oldstatus_`.ReferenceKeyString(nodeRec)`" VALUE="`nodeRec.Status`">
					<SELECT id="tabdef_newstatus_`.ReferenceKeyString(nodeRec)`" TITLE="`Str.Format( "%1 %2", [Home_HTMLLabel.Status], nodeRec.name )`" name="tabdef_newstatus_`.ReferenceKeyString(nodeRec)`" onchange="setDirty()">
						;for x in $Inbox.InboxUtil.CodesStatus()
							<OPTION VALUE="`x[ 1 ]`" `(nodeRec.Status==x[ 1 ])?'SELECTED':''`>`x[ 2 ]`
						;end
					</SELECT>
				;else
					<FONT COLOR="`nodeRec.Status_Color`">`%LnodeRec.Status_String`
				;end
			</TD>
	            <TD><IMG HEIGHT="1" ALT="" SRC="`img`px.gif" WIDTH="2" BORDER="0"></TD>
      	      ;if( ( nodeRec.subType == $TypePersonalStagingFolder ) && ( Math.Abs( nodeRec.OwnerID ) == nodeRec.parentID ) )
            	    <TD CLASS="browseItemLocation">&nbsp;</TD>
	            ;else
      	          ;webRoot = $WebNode.WebNodes.GetItem( nodeRec.RootRec.SubType )
            	    ;openRoot = webRoot.Cmd( 'open' )
	                <TD CLASS="browseItemLocation">`%LwebRoot.IMG( nodeRec.RootRec )`&nbsp;`%LopenRoot.DisabledLink( .fPrgCtx, .fArgs, nodeRec.RootRec, nodeRec.RootRec.Name )`</TD>
      	      ;end    
		;end
	;end

	<!-- End File: home/tasksview.html -->
;;end