You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
648 lines
22 KiB
648 lines
22 KiB
<% '==================================================
|
|
' Microsoft Server Appliance
|
|
'
|
|
' sh_tasks - Implementation details for Tasks
|
|
'
|
|
' Copyright (c) Microsoft Corporation. All rights reserved.
|
|
'================================================== %>
|
|
<!-- Copyright (c) Microsoft Corporation. All rights reserved.-->
|
|
<%
|
|
|
|
|
|
'Constants that are used in CreateColumnHTML
|
|
Const ONE_COLUMN = 1
|
|
Const TWO_COLUMNS = 2
|
|
Const MAX_COLUMNS = 3
|
|
|
|
Const TASK_ONE_LEVEL = 0
|
|
Const TASK_TWO_LEVEL = 1
|
|
Const TASK_MANY_LEVEL = 2
|
|
Const TASK_RELATED_LEVEL = 3
|
|
|
|
|
|
Const EMBEDDED_PAGE = "FRAMESET"
|
|
|
|
Dim g_sMultiTab
|
|
Dim g_sMultiTabContainer
|
|
|
|
Dim g_sReturnURL
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : ServeTasks
|
|
'
|
|
' Synopsis : Serves the task links
|
|
'
|
|
' Arguments: None
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
Public Function ServeTasks
|
|
Dim dwTaskType
|
|
Dim strContainer
|
|
Dim strContainerItem
|
|
Dim strTabsParam
|
|
|
|
If Len(Trim(Request.QueryString("MultiTab"))) > 0 Then
|
|
|
|
strContainer = Request.QueryString("MultiTab")
|
|
g_sMultiTab = strContainer
|
|
|
|
strContainerItem = Request.QueryString("Container")
|
|
g_sMultiTabContainer = strContainerItem
|
|
|
|
strTabsParam = "Tab1=" & GetTab1()
|
|
If ( Len(Trim(GetTab2())) > 0 ) Then
|
|
strTabsParam = strTabsParam & "&Tab2=" & GetTab2()
|
|
End If
|
|
dwTaskType = TASK_MANY_LEVEL
|
|
|
|
Else
|
|
|
|
strContainer = "TABS"
|
|
strContainerItem = GetTab1()
|
|
strTabsParam = ""
|
|
If ( UCase("TabHome") = UCase(Request.QueryString("HOME")) ) Then
|
|
dwTaskType = TASK_ONE_LEVEL
|
|
Else
|
|
dwTaskType = TASK_TWO_LEVEL
|
|
End If
|
|
End If
|
|
|
|
g_sReturnURL = Request.QueryString("ReturnURL")
|
|
|
|
|
|
Call SA_ServeTasks(strContainer, strContainerItem, dwTaskType, strTabsParam )
|
|
|
|
If Len(Trim(g_sReturnURL)) > 0 Then
|
|
Call SA_ServeBackButton(True, g_sReturnURL)
|
|
End If
|
|
|
|
End Function
|
|
|
|
Private Function IsHomeTask(ByVal dwTaskTYpe )
|
|
If ( dwTaskType = TASK_ONE_LEVEL ) Then
|
|
IsHomeTask = TRUE
|
|
Else
|
|
IsHomeTask = FALSE
|
|
End If
|
|
End Function
|
|
|
|
|
|
Private Function IsRelatedTask(ByVal dwTaskTYpe )
|
|
If ( dwTaskType = TASK_RELATED_LEVEL) Then
|
|
IsRelatedTask = TRUE
|
|
Else
|
|
IsRelatedTask = FALSE
|
|
End If
|
|
End Function
|
|
|
|
|
|
Public Function SA_ServeTasks(ByVal strContainerIn, ByVal strSelectedIDIn, ByVal dwTaskType, ByVal strTabParams )
|
|
on error resume next
|
|
|
|
Err.Clear
|
|
Dim colTabs
|
|
|
|
' the selected tab of interest
|
|
Dim sSelectedID
|
|
sSelectedID = strSelectedIDIn
|
|
|
|
' the element we're currently at
|
|
Dim sElementID
|
|
|
|
' the IWebElement object
|
|
Dim objElement
|
|
|
|
' the secondLevelContainer
|
|
Dim sContainer
|
|
Dim sDescriptionText
|
|
Dim sCaptionText
|
|
Dim sElementGraphic
|
|
Dim sLongDescriptionText
|
|
|
|
sContainer = ""
|
|
|
|
|
|
' go through each element and output the tab link for them
|
|
Set colTabs = GetElements(strContainerIn)
|
|
For Each objElement In colTabs
|
|
sElementID = objElement.GetProperty("ElementID")
|
|
If IsSameElementID(sElementID, sSelectedID) Then
|
|
If ( Len(objElement.GetProperty("DescriptionRID")) > 0 ) Then
|
|
sDescriptionText = GetLocalized(objElement.GetProperty("Source"), objElement.GetProperty("DescriptionRID"))
|
|
Else
|
|
sDescriptionText = ""
|
|
End If
|
|
|
|
If ( Len(objElement.GetProperty("LongDescriptionRID")) > 0 ) Then
|
|
sLongDescriptionText = GetLocalized(objElement.GetProperty("Source"), objElement.GetProperty("LongDescriptionRID"))
|
|
Else
|
|
sLongDescriptionText = ""
|
|
End If
|
|
|
|
sCaptionText = GetLocalized(objElement.GetProperty("Source"), objElement.GetProperty("CaptionRID"))
|
|
If ( Err.Number <> 0 ) Then
|
|
SA_TraceOut "SA_TASKS", "Invalid/Missing CaptionRID for ElementID: " + sElementID
|
|
End If
|
|
|
|
Call GetBigGraphic( objElement, sElementGraphic, dwTaskType )
|
|
|
|
Exit For
|
|
End If
|
|
Next ' objElement
|
|
Set colTabs = Nothing
|
|
|
|
rw("<blockquote>")
|
|
|
|
rw("<div class=TasksPageTitleText >" & sCaptionText & "</div>")
|
|
rw("<div class=TasksPageTitleDescription >" & sLongDescriptionText & "</div><br>")
|
|
|
|
'Check to see if the selectedID is a home page.
|
|
If ( IsHomeTask(dwTaskType) ) Then
|
|
Call ServeColumns( "TABS", False, sElementGraphic, dwTaskType, strTabParams )
|
|
Else
|
|
Call ServeColumns( sElementID, False, sElementGraphic, dwTaskType, strTabParams )
|
|
End If
|
|
|
|
Call ServeColumns( sElementID&"_RelatedLinks", True, "" , TASK_RELATED_LEVEL, strTabParams )
|
|
|
|
rw("</blockquote>")
|
|
|
|
End Function
|
|
|
|
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : ServeColumns
|
|
'
|
|
' Synopsis : Generates HTML columns.
|
|
'
|
|
' Arguments: strItem(IN) - if strItem is "TABS", it'll display home page with all the TABS
|
|
' - if strItem is "TASKS", it'll display all the tasks in columns.
|
|
' - if strItem is "DISKS_RELATEDLINKS", it'll display all the related links.
|
|
' bInRelated(IN) - True, if this is a table that has related links
|
|
' - False, if this is a table that is rendered for tasks.
|
|
' strElementGraphic(IN) - resource dll for each tab string (array)
|
|
' bInWelcome(IN) - True if we are rendering Welcome page, False otherwise.
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
|
|
Sub ServeColumns( strItem, blnRelated, strElementGraphic, dwTaskType, strTabParams )
|
|
On Error Resume Next
|
|
Err.Clear
|
|
|
|
Dim objElements, objItem
|
|
Dim intRowCount
|
|
Dim strArrTasksImage
|
|
Dim strArrTasksCaption
|
|
Dim strArrTasksHover
|
|
Dim strArrTasksDesc
|
|
Dim strArrTasksURL
|
|
Dim strArrSource
|
|
Dim bArrIsEmbedded
|
|
Dim strArrTaskPageType
|
|
Dim strArrTaskPageWindowFeatures
|
|
Dim intElementCount
|
|
Dim sReturnURL
|
|
|
|
Dim bSmallIcon
|
|
|
|
Dim i
|
|
Dim j
|
|
' the big image on the left side when a tab is selected.
|
|
Dim bBigIcon
|
|
|
|
intElementCount = 0
|
|
i = 0
|
|
j = 0
|
|
|
|
Set objElements = GetElements( strItem )
|
|
intElementCount = objElements.Count
|
|
|
|
ReDim strArrTasksImage( intElementCount )
|
|
ReDim strArrTasksCaption( intElementCount )
|
|
ReDim strArrTasksHover( intElementCount )
|
|
ReDim strArrTasksDesc( intElementCount )
|
|
ReDim strArrTasksURL( intElementCount )
|
|
ReDim strArrSource( intElementCount )
|
|
ReDim bArrIsEmbedded( intElementCount )
|
|
ReDim strArrTaskPageType( intElementCount )
|
|
ReDim strArrTaskPageWindowFeatures( intElementCount )
|
|
|
|
If strElementGraphic = "" Then
|
|
bBigIcon = False
|
|
Else
|
|
bBigIcon = True
|
|
End If
|
|
|
|
For Each objItem in objElements
|
|
|
|
'SA_TraceOut "SA_TASKS", "ServeColumns elementID: " + objItem.GetProperty("ElementID")
|
|
strArrTaskPageType(i) = objItem.GetProperty("PageType")
|
|
strArrTaskPageWindowFeatures(i) = objItem.GetProperty("WindowFeatures")
|
|
|
|
j = j + 1
|
|
|
|
bArrIsEmbedded(i) = false
|
|
If objItem.GetProperty("IsEmbedded") = 1 Then
|
|
bArrIsEmbedded(i) = true
|
|
Else
|
|
Dim sPageType
|
|
|
|
sPageType = objItem.GetProperty("PageType")
|
|
If ( UCase(sPageType) = EMBEDDED_PAGE ) Then
|
|
bArrIsEmbedded(i) = true
|
|
End If
|
|
|
|
End If
|
|
|
|
If ( Len(objItem.GetProperty("LongDescriptionRID")) > 0 ) Then
|
|
strArrTasksHover(i) = GetLocalized(objItem.GetProperty("Source"), objItem.GetProperty("LongDescriptionRID"))
|
|
Else
|
|
strArrTasksHover(i) = ""
|
|
End If
|
|
|
|
If (Not IsHomeTask(dwTaskType)) Or ( objItem.GetProperty("ElementID") <> Request.QueryString("HOME") ) Then
|
|
|
|
strArrSource( i ) = objItem.GetProperty("Source")
|
|
|
|
Call GetSmallGraphic(objItem, strArrTasksImage(i) )
|
|
|
|
If IsRawURLPage(sPageType) Then
|
|
strArrTasksURL(i) = objItem.GetProperty("URL")
|
|
Else
|
|
Select Case (dwTaskType)
|
|
Case TASK_ONE_LEVEL
|
|
strArrTasksURL(i) = objItem.GetProperty("URL")
|
|
Call SA_MungeURL(strArrTasksURL(i), "Tab1", objItem.GetProperty("ElementID"))
|
|
|
|
Case TASK_TWO_LEVEL
|
|
strArrTasksURL(i) = objItem.GetProperty("URL")
|
|
If (strArrTasksURL(i) <> "") Then
|
|
Call SA_MungeURL(strArrTasksURL(i), "Tab1", GetTab1())
|
|
Call SA_MungeURL(strArrTasksURL(i), "Tab2", objItem.GetProperty("ElementID"))
|
|
|
|
If ( true = bArrIsEmbedded(i) ) Then
|
|
'sReturnURL = m_VirtualRoot + "tasks.asp"
|
|
Else
|
|
If Len(g_sReturnURL) > 0 Then
|
|
Call SA_MungeURL(strArrTasksURL(i), "ReturnURL", g_sReturnURL)
|
|
Else
|
|
sReturnURL = "tasks.asp"
|
|
Call SA_MungeURL(sReturnURL, "Tab1", GetTab1())
|
|
Call SA_MungeURL(sReturnURL, SAI_FLD_PAGEKEY, SAI_GetPageKey())
|
|
'Call SA_MungeURL(sReturnURL, "Tab2", objItem.GetProperty("ElementID"))
|
|
Call SA_MungeURL(strArrTasksURL(i), "ReturnURL", sReturnURL)
|
|
End If
|
|
End If
|
|
|
|
End If
|
|
|
|
Case TASK_MANY_LEVEL
|
|
strArrTasksURL(i) = objItem.GetProperty("URL")
|
|
If (strArrTasksURL(i) <> "") Then
|
|
If InStr(strArrTasksURL(i), "?") Then
|
|
strArrTasksURL(i) = strArrTasksURL(i) + "&"+ strTabParams
|
|
If ( true = bArrIsEmbedded(i) ) Then
|
|
'sReturnURL = m_VirtualRoot + "tasks.asp"
|
|
Else
|
|
sReturnURL = "tasks.asp"
|
|
Call SA_MungeURL(sReturnURL, "MultiTab", g_sMultiTab)
|
|
Call SA_MungeURL(sReturnURL, "Container", g_sMultiTabContainer)
|
|
Call SA_MungeURL(sReturnURL, "Tab1", GetTab1())
|
|
Call SA_MungeURL(sReturnURL, "Tab2", GetTab2())
|
|
Call SA_MungeURL(sReturnURL, "ReturnURL", g_sReturnURL)
|
|
Call SA_MungeURL(sReturnURL, SAI_FLD_PAGEKEY, SAI_GetPageKey())
|
|
Call SA_MungeURL(strArrTasksURL(i), "ReturnURL", sReturnURL)
|
|
End If
|
|
Else
|
|
strArrTasksURL(i) = strArrTasksURL(i) + "?"+ strTabParams
|
|
If ( true = bArrIsEmbedded(i) ) Then
|
|
'sReturnURL = m_VirtualRoot + "tasks.asp"
|
|
Else
|
|
sReturnURL = "tasks.asp"
|
|
Call SA_MungeURL(sReturnURL, "MultiTab", g_sMultiTab)
|
|
Call SA_MungeURL(sReturnURL, "Container", g_sMultiTabContainer)
|
|
Call SA_MungeURL(sReturnURL, "Tab1", GetTab1())
|
|
Call SA_MungeURL(sReturnURL, "Tab2", GetTab2())
|
|
Call SA_MungeURL(sReturnURL, "ReturnURL", g_sReturnURL)
|
|
Call SA_MungeURL(sReturnURL, SAI_FLD_PAGEKEY, SAI_GetPageKey())
|
|
Call SA_MungeURL(strArrTasksURL(i), "ReturnURL", sReturnURL)
|
|
End If
|
|
End If
|
|
End If
|
|
|
|
Case TASK_RELATED_LEVEL
|
|
strArrTasksURL(i) = objItem.GetProperty("URL")
|
|
|
|
Case Else
|
|
SA_TraceOut "SA_TASKS", "Unrecognized Task Option: " +CStr(dwTaskType)
|
|
strArrTasksURL(i) = objItem.GetProperty("URL")
|
|
|
|
End Select
|
|
End If
|
|
|
|
If (0 = InStr(1, strArrTasksURL(i), ":")) Then
|
|
Call SA_MungeURL(strArrTasksURL(i), SAI_FLD_PAGEKEY, SAI_GetPageKey())
|
|
End If
|
|
|
|
strArrTasksCaption(i) = GetLocalized( strArrSource(i), objItem.GetProperty("CaptionRID") )
|
|
|
|
If ( Len(objItem.GetProperty("DescriptionRID")) > 0 ) Then
|
|
strArrTasksDesc(i) = GetLocalized( strArrSource(i), objItem.GetProperty("DescriptionRID") )
|
|
Else
|
|
strArrTasksDesc(i) = ""
|
|
End If
|
|
|
|
i = i + 1
|
|
Else
|
|
intElementCount = intElementCount - 1
|
|
Call GetSmallGraphic(objItem, strArrTasksImage(i) )
|
|
End If
|
|
Next
|
|
|
|
'Check if atleast one icon is represented,
|
|
bSmallIcon = CheckIfAtleastOneIconPresent( strArrTasksImage, intElementCount )
|
|
|
|
If Not IsRelatedTask(dwTaskType) Then
|
|
If strElementGraphic = "" Then
|
|
rw ("<TABLE class=""TasksPageBodyTable"" WIDTH=""90%"" CELLPADDING=""10"" CELLSPACING=""0"" BORDER=""0""><TR> " )
|
|
Call CreateColumnHTML( intElementCount, strArrTasksImage, strArrTasksCaption, strArrTasksDesc, strArrTasksURL, strArrTasksHover, bArrIsEmbedded, bSmallIcon, bBigIcon, strArrTaskPageType, strArrTaskPageWindowFeatures )
|
|
rw ("</TABLE>")
|
|
|
|
Else
|
|
rw ("<TABLE WIDTH=""90%"" CELLPADDING=""0"" CELLSPACING=""0"" BORDER=""0"" >" )
|
|
'rw ("<TR><TD ROWSPAN=4 valign=""top""><img src=""" & strElementGraphic & """></TD>")
|
|
rw ("<TR><TD width=220px valign=""top""><img src=""" & strElementGraphic & """></TD><td valign=top>")
|
|
rw ("<TABLE class=""TasksPageBodyTable"" WIDTH=""100%"" CELLPADDING=""10"" CELLSPACING=""0"" BORDER=""0"" >" )
|
|
Call CreateColumnHTML( intElementCount, strArrTasksImage, strArrTasksCaption, strArrTasksDesc, strArrTasksURL, strArrTasksHover, bArrIsEmbedded, bSmallIcon, bBigIcon, strArrTaskPageType, strArrTaskPageWindowFeatures )
|
|
rw ("</tr></table></TD></TR></TABLE>")
|
|
End If
|
|
ElseIf (intElementCount > 0) Then
|
|
rw("<br><div class=TasksPageLinkText>Related Links</div>")
|
|
rw ("<TABLE WIDTH=""90%"" CELLPADDING=""0"" CELLSPACING=""0"" BORDER=""1""><TR> " )
|
|
Call CreateColumnHTML( intElementCount, strArrTasksImage, strArrTasksCaption, strArrTasksDesc, strArrTasksURL, strArrTasksHover, bArrIsEmbedded, bSmallIcon, bBigIcon, strArrTaskPageType, strArrTaskPageWindowFeatures )
|
|
rw ("</TD></TR></TABLE>")
|
|
End If
|
|
|
|
End Sub
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : CheckIfAtleastOneIconPresent
|
|
'
|
|
' Synopsis : Checks if we need to allocate a column for small Icons with the tasks or related links table.
|
|
'
|
|
' Arguments: strArrTasksImage(IN) - resource dll for each tab string (array)
|
|
' intNumTasks(IN) - Number of items in the above array.
|
|
'
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
Function CheckIfAtleastOneIconPresent( strArrTasksImage, intNumTasks)
|
|
|
|
Dim bIcon
|
|
Dim intElCount
|
|
|
|
bIcon = False
|
|
|
|
'Check if there is atleast one icon
|
|
For intElCount = 0 to intNumTasks-1
|
|
If strArrTasksImage(intElCount) <> "" Then
|
|
bIcon = True
|
|
Exit For
|
|
End If
|
|
Next
|
|
|
|
CheckIfAtleastOneIconPresent=bIcon
|
|
|
|
End Function
|
|
|
|
'----------------------------------------------------------------------------
|
|
'
|
|
' Function : CreateColumnHTML
|
|
'
|
|
' Synopsis : Generates HTML to display the Items.
|
|
'
|
|
' Arguments: intNumTasks(IN) - number of Tasks to be displayed
|
|
' strArrTasksImage(IN) - resource dll for each tab string (array)
|
|
' strArrTasksCaption(IN) - text on task (array)
|
|
' strArrTasksDesc(IN) - Description for each task(array)
|
|
' strArrTasksURL(IN) - URL for each task ( array )
|
|
' bArrIsEmbedded(IN) - if URL is embedded, use OpenPage() to link to it
|
|
' bSmallIcon - True if there is atleast one image so
|
|
' we can allocate a column for small images, otherwise false.
|
|
' bBigIcon - True if the big image exists that is to be displayed on the left col
|
|
' otherwise false.
|
|
'
|
|
'
|
|
' Returns : None
|
|
'
|
|
'----------------------------------------------------------------------------
|
|
|
|
Sub CreateColumnHTML(intNumTasks, strArrTasksImage, strArrTasksCaption, strArrTasksDesc, strArrTasksURL, strArrTasksHover, bArrIsEmbedded, bSmallIcon, bBigIcon, strArrTaskPageType, strArrTaskPageWindowFeatures )
|
|
|
|
Dim i
|
|
|
|
|
|
'URL of the web element
|
|
Dim strURL
|
|
|
|
' Number of columns
|
|
Dim intCols
|
|
Dim intWidth
|
|
Dim sLongDescriptionText
|
|
Dim sTaskTitle
|
|
|
|
If ( intNumTasks < 4 ) Then
|
|
intCols = ONE_COLUMN
|
|
intWidth=100
|
|
Elseif (intNumTasks <= 6) Then
|
|
intCols = TWO_COLUMNS
|
|
intWidth=50
|
|
Else
|
|
' Since the small icon takes a col, we need to subtract 1 from max cols.
|
|
If bBigIcon Then
|
|
intCols = MAX_COLUMNS - 1
|
|
intWidth=50
|
|
Else
|
|
intCols = MAX_COLUMNS
|
|
intWidth=33
|
|
End If
|
|
End If
|
|
|
|
For i = 0 to intNumTasks-1
|
|
|
|
sLongDescriptionText = strArrTasksHover(i)
|
|
|
|
' Close the row and open a new row
|
|
If ( i<>0 And i mod intCols = 0 ) Then
|
|
rw ("</tr><tr valign=top>")
|
|
End If
|
|
|
|
'If atleast one icon is represented show the image column otherwise skip this column
|
|
sTaskTitle = strArrTasksCaption(i)
|
|
If bSmallIcon Then
|
|
If bArrIsEmbedded(i) Then
|
|
strURL = "javascript:OpenPage('" & m_VirtualRoot & "', '" & strArrTasksURL(i) & "', location.href, '" & SA_EncodeQuotes(sTaskTitle) & "');"
|
|
ElseIf ( Len(Trim(strArrTaskPageType(i))) > 0 ) Then
|
|
Select Case UCase(Trim(strArrTaskPageType(i)))
|
|
Case "NORMAL"
|
|
strURL = "javascript:OpenNormalPage('" & m_VirtualRoot & "', '" & strArrTasksURL(i) & "');"
|
|
Case "FRAMESET"
|
|
strURL = "javascript:OpenPage('" & m_VirtualRoot & "', '" & strArrTasksURL(i) & "', location.href, '" & SA_EncodeQuotes(sTaskTitle) & "');"
|
|
Case "NEW"
|
|
strURL = "javascript:OpenNewPage('" & m_VirtualRoot & "', '" & strArrTasksURL(i) & "', '" & strArrTaskPageWindowFeatures(i) & "');"
|
|
Case "RAW"
|
|
strURL = "javascript:OpenRawPageEx('" & strArrTasksURL(i) & "', '" & strArrTaskPageWindowFeatures(i) & "');"
|
|
Case Else
|
|
SA_TraceOut "SH_TASKS", "Invalid Task PageType: " + strArrTaskPageType(i)
|
|
strURL = strArrTasksURL(i)
|
|
End Select
|
|
Else
|
|
strURL = "javascript:OpenNormalPage('" & m_VirtualRoot & "', '" & strArrTasksURL(i) & "');"
|
|
End If
|
|
|
|
If strArrTasksImage(i) <> "" And strArrTasksURL(i) <> "" Then
|
|
strURL = " onClick=""" + strURL + """ "
|
|
Response.Write("<TD WIDTH=20 valign=top>"+vbCrLf)
|
|
Response.Write("<SPAN ID='TaskItemImage_"+CStr(i)+"' "+vbCrLf)
|
|
Response.Write( strURL + vbCrLf )
|
|
Response.Write(" title="""+Server.HTMLEncode(sLongDescriptionText)+""" ")
|
|
Response.Write(" class='TasksPageLinkText' ")
|
|
Response.Write(" onmouseover=""this.className='TasksPageLinkTextHover'; return true;"" ")
|
|
Response.Write(" onmouseout=""this.className='TasksPageLinkText'; return true;"" ")
|
|
Response.Write(" >")
|
|
Response.Write("<IMG SRC=" & strArrTasksImage(i))
|
|
Response.Write(" BORDER=""0"" ></TD>" +vbCrLf)
|
|
Response.Write("</SPAN>"+vbCrLf)
|
|
Response.Write("</TD>"+vbCrLf)
|
|
Else
|
|
rw ( "<TD valign=""top"">")
|
|
Response.Write("<SPAN ID='TaskItemImage_"+CStr(i)+"'>"+vbCrLf)
|
|
Response.Write("</SPAN>"+vbCrLf)
|
|
rw ( "</TD>")
|
|
End If
|
|
End If
|
|
|
|
' If the URL is not empty then the task is clickable otherwise using a DIV tag
|
|
sTaskTitle = strArrTasksCaption(i)
|
|
If (strArrTasksURL(i) <> "") Then
|
|
If bArrIsEmbedded(i) Then
|
|
strURL = "javascript:OpenPage('" & m_VirtualRoot & "', '" & strArrTasksURL(i) & "', location.href, '" & SA_EncodeQuotes(sTaskTitle) & "');"
|
|
strURL = " onClick=""" + strURL + """ "
|
|
ElseIf ( Len(Trim(strArrTaskPageType(i))) > 0 ) Then
|
|
Select Case UCase(Trim(strArrTaskPageType(i)))
|
|
Case "NORMAL"
|
|
strURL = "javascript:OpenNormalPage('" & m_VirtualRoot & "', '" & strArrTasksURL(i) & "');"
|
|
Case "FRAMESET"
|
|
strURL = "javascript:OpenPage('" & m_VirtualRoot & "', '" & strArrTasksURL(i) & "', location.href, '" & SA_EncodeQuotes(sTaskTitle) & "');"
|
|
Case "NEW"
|
|
strURL = "javascript:OpenNewPage('" & m_VirtualRoot & "', '" & strArrTasksURL(i) & "', '" & strArrTaskPageWindowFeatures(i) & "');"
|
|
Case "RAW"
|
|
strURL = "javascript:OpenRawPageEx('" & strArrTasksURL(i) & "', '" & strArrTaskPageWindowFeatures(i) & "');"
|
|
Case Else
|
|
SA_TraceOut "SH_TASKS", "Invalid Task PageType: " + strArrTaskPageType(i)
|
|
strURL = strArrTasksURL(i)
|
|
End Select
|
|
strURL = " onClick=""" + strURL + """ "
|
|
Else
|
|
strURL = "javascript:OpenNormalPage('" & m_VirtualRoot & "', '" & strArrTasksURL(i) & "');"
|
|
strURL = " onClick=""" + strURL + """ "
|
|
End If
|
|
|
|
Response.Write("<TD valign=top width='" + CStr(intWidth) + "%'>"+vbCrLf)
|
|
Response.Write("<SPAN ID='TaskItemText_"+CStr(i)+"' "+vbCrLf)
|
|
Response.Write( strURL + vbCrLf )
|
|
Response.Write(" title=""" + Server.HTMLEncode(sLongDescriptionText) + """ ")
|
|
Response.Write(" class='TasksPageLinkText' ")
|
|
Response.Write(" onmouseover=""this.className='TasksPageLinkTextHover'; return true;"" ")
|
|
Response.Write(" onmouseout=""this.className='TasksPageLinkText'; return true;"" ")
|
|
Response.Write(" >")
|
|
Response.Write( strArrTasksCaption(i) )
|
|
Response.Write( "<div class=TasksPageText>" & strArrTasksDesc(i) )
|
|
Response.Write( "</div></TD>" +vbCrLf )
|
|
Response.Write("</SPAN>"+vbCrLf)
|
|
Response.Write("</TD>"+vbCrLf)
|
|
|
|
Else
|
|
Response.Write("<TD valign=top width='"+CStr(intWidth)+"%' >"+vbCrLf)
|
|
Response.Write("<SPAN ID='TaskItemText_"+CStr(i)+"' "+vbCrLf)
|
|
rw ( " title="""+Server.HTMLEncode(sLongDescriptionText)+""" > " & "<div class=TasksPageLinkText>" &strArrTasksCaption(i) & "</div><div class=TasksPageText>" & strArrTasksDesc(i) & "</div>" )
|
|
Response.Write("</SPAN>"+vbCrLf)
|
|
Response.Write("</TD>"+vbCrLf)
|
|
End If
|
|
|
|
|
|
Next
|
|
|
|
End Sub
|
|
|
|
|
|
Function GetBigGraphic(ByRef objElement, ByRef strGraphicElement, dwTaskType )
|
|
Err.Clear
|
|
on error resume next
|
|
|
|
dim strURL
|
|
strURL=objElement.GetProperty("URL")
|
|
|
|
If ( IsObject(objElement)) Then
|
|
strGraphicElement = objElement.GetProperty("BigGraphic")
|
|
' Show the small graphic for two level tabs only
|
|
If Err.Number <> 0 Or Instr( 1, strURL, "MultiTab",0 ) > 0 And dwTaskType = TASK_TWO_LEVEL Then
|
|
strGraphicElement = objElement.GetProperty("ElementGraphic")
|
|
End If
|
|
Else
|
|
SA_TraceErrorOut "TASKS", "objElement is not an object"
|
|
End If
|
|
|
|
If ( Len(strGraphicElement) > 0 ) Then
|
|
strGraphicElement = m_VirtualRoot + strGraphicElement
|
|
End If
|
|
End Function
|
|
|
|
|
|
Function GetSmallGraphic(ByRef objElement, ByRef strGraphicElement )
|
|
Err.Clear
|
|
on error resume next
|
|
|
|
If ( IsObject(objElement)) Then
|
|
strGraphicElement = objElement.GetProperty("ElementGraphic")
|
|
If (Err.Number<>0) Then
|
|
strGraphicElement = ""
|
|
End If
|
|
Else
|
|
SA_TraceErrorOut "TASKS", "objElement is not an object"
|
|
End If
|
|
|
|
If ( Len(strGraphicElement) > 0 ) Then
|
|
strGraphicElement = m_VirtualRoot + strGraphicElement
|
|
End If
|
|
End Function
|
|
|
|
Function IsRawURLPage(ByVal pageType)
|
|
IsRawURLPage = FALSE
|
|
|
|
If ( UCase(pageType) = "RAW" ) Then
|
|
IsRawURLPage = TRUE
|
|
End If
|
|
|
|
End Function
|
|
|
|
%>
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|