;;webscript BrowseView( Object prgCtx, Dynamic request, Dynamic data )

	<!-- File: webnode/browseview.html -->

	;Object		info
	;Record		nodeRec
	;Object		browse
	;Object		open
	;Object		original
	;Date		recentDate
	;Object		run
	;Object		view
	;Object		webnode

	;Dynamic	contents = data.contents
	;Object		webNodes = $WebNode.WebNodes
	;Object		webNodeUtils = $WebNode.WebNodeUtils
	;Date		now = prgCtx.fDBConnect.Now()
<!-- Changes to support hiding/showing descriptions - start -->
        ;Boolean        colorbar = false
        ;Boolean        hideDescriptions = false
        ;if (IsDefined(request.HideDesc) && request.HideDesc == 'on')
        ;       hideDescriptions = true
        ;end

        ;if (Str.LocateI(request.QUERY_STRING,'&HideDesc'))
        ;       request.QUERY_STRING = request.QUERY_STRING[:Str.LocateI(request.QUERY_STRING,'&HideDesc')-1]
        ;end
        ;if hideDescriptions
                <A HREF="`request.SCRIPT_NAME + '?' + request.QUERY_STRING + '&HideDesc=off'`">Show Descriptions</A>
        ;else
                <A HREF="`request.SCRIPT_NAME + '?' + request.QUERY_STRING + '&HideDesc=on'`">Hide Descriptions</A>
        ;end
<!-- Changes to support hiding/showing descriptions - end -->

	<TR BGCOLOR="#CCCCCC">
		<TD NOWRAP VALIGN="BOTTOM" ALIGN="left">&nbsp;<A HREF="`data.sortURLSubType`"><FONT size="2" FACE="`[WebDsp_Font.SansSerif]`" COLOR="#000000">`[WebDoc_HTMLLabel.Type]`</FONT></A>&nbsp;</TD>
		<TD NOWRAP VALIGN="BOTTOM" ALIGN="left">&nbsp;<A HREF="`data.sortURLName`"><FONT size="2" FACE="`[WebDsp_Font.SansSerif]`" COLOR="#000000">`[WebDoc_HTMLLabel.Name]`</FONT></A></TD>
		<TD NOWRAP VALIGN="BOTTOM" ALIGN="right"><A HREF="`data.sortURLSize`"><FONT size="2" FACE="`[WebDsp_Font.SansSerif]`" COLOR="#000000">`[WebDoc_HTMLLabel.Size]`</FONT></A>&nbsp;</TD>
		<TD NOWRAP VALIGN="BOTTOM" ALIGN="center"><A HREF="`data.sortURLModifyDate`"><FONT size="2" FACE="`[WebDsp_Font.SansSerif]`" COLOR="#000000">`[WebDoc_HTMLLabel.Modified]`</FONT></A></TD>
		<TD NOWRAP VALIGN="BOTTOM" ALIGN="center"><FONT size="2" FACE="`[WebDsp_Font.SansSerif]`" COLOR="#000000">`[WebDoc_HTMLLabel.Info]`</FONT></TD>
		<TD NOWRAP VALIGN="BOTTOM" ALIGN="left"><FONT size="2" FACE="`[WebDsp_Font.SansSerif]`" COLOR="#000000">&nbsp;`[WebDoc_HTMLLabel.Actions]`</FONT></TD>
	</TR>

	;for nodeRec in contents

		;if nodeRec.Catalog == 0

			;webNode = webNodes.GetItem( nodeRec.subtype )
			;open = webNode.Cmd( "open" )
			;info = webNode.Cmd( "properties" )
			;view = webNode.Cmd( "view" )
			;run = webNode.Cmd( "run" )
			;original = webNode.Cmd( "original" )
			
			<TR>
				<TD NOWRAP WIDTH="1%">`%Lopen.DisabledUnescapedLink( prgCtx, request, nodeRec, webNode.IMG( nodeRec ) )`</TD>

				<TD NOWRAP>
					&nbsp;`%Lopen.DisabledLink( prgCtx, request, nodeRec, nodeRec.name )`
					`%LwebNodeUtils.ModifiedIMG( now, nodeRec )`
				</TD>

				<TD NOWRAP ALIGN="right">`webNode.Size( nodeRec )`&nbsp;</TD>
				<TD NOWRAP ALIGN="center">`.FmtDate( nodeRec.ModifyDate, TRUE )`</TD>
				<TD NOWRAP ALIGN="center" WIDTH="1%">`%Linfo.EnabledUnescapedLink( prgCtx, request, nodeRec, info.IMG() )`</TD>

				<TD NOWRAP>
					;if ( original.IsEnabled( prgCtx, nodeRec ) )
						&nbsp;`%Loriginal.Link( request, nodeRec )`
					;end

					;if ( view.IsEnabled( prgCtx, nodeRec ) )
						&nbsp;`%Lview.Link( request, nodeRec )`
					;end

					;if ( run.IsEnabled( prgCtx, nodeRec ) )
						&nbsp;`%Lrun.Link( request, nodeRec )`
					;end
				</TD>
			</TR>
			<!-- Changes to support hiding/showing descriptions - start -->
			      ;if (!hideDescriptions && IsDefined(nodeRec.DComment) && Length(nodeRec.DComment) > 0)
			      	<TR `bgColor`>
			              <TD `bgColor`></TD>
			              <TD `bgColor` COLSPAN="5">`nodeRec.DComment`</TD>
			      	</TR>
			      ;end
			<!-- Changes to support hiding/showing descriptions - end -->
		;end
	;end
;;end