Subversion Repositories DevTools

Rev

Rev 6786 | Rev 6789 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6786 Rev 6788
Line 20... Line 20...
20
imgPatchesIcon = "<img src='images/i_patch_small.gif' border='0' align='absmiddle' hspace='3'>"
20
imgPatchesIcon = "<img src='images/i_patch_small.gif' border='0' align='absmiddle' hspace='3'>"
21
ReleaseMode = GetReleaseMode( Request("rtag_id") )
21
ReleaseMode = GetReleaseMode( Request("rtag_id") )
22
 
22
 
23
'----------------------------------------------
23
'----------------------------------------------
24
If IsObject(pkgInfoHash) Then
24
If IsObject(pkgInfoHash) Then
25
   If IsNull(pkgInfoHash.Item ("is_patch")) Then
25
    If IsNull(pkgInfoHash.Item ("is_patch")) Then
-
 
26
        Dim TabArray, OptionArray, canDebug
-
 
27
        TabArray = Array()
-
 
28
        OptionArray = Array()
26
      If CInt(pkgInfoHash.Item ("base_view_id")) = enumBASE_VIEW_PRODUCTS  OR CInt(pkgInfoHash.Item ("base_view_id")) = enumAUTOPRODUCTS_BASE_VIEW_ID Then
29
        canDebug = IsEmpty(Application("LiveSystem")) OR canActionControl("MSMaintainer")
-
 
30
 
27
         ' Tab for PRODUCTS
31
        Sub GenerateOptionList(sSelected)
-
 
32
        %>
28
         TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?"& Persists_Query_String( Empty ), _
33
        <select onchange='optionRedirect(this);' style='background-color: #c2c3c2;border: none;' class='tabItem'>
29
                             "Runtime@runtime_dependencies.asp?"& Persists_Query_String( Empty ), _
34
                 <option value=''>Other Opts</option>
-
 
35
                 <%
-
 
36
                    Dim el
30
                             imgUsedByIcon & "Used by@used_by.asp?"& Persists_Query_String( Empty ), _
37
                    For each el in OptionArray
31
                             "Processes@process_dependencies.asp?"& Persists_Query_String( Empty ), _
38
                        Dim isSelected : isSelected = ""
32
                             imgPatchesIcon &"Patches@patches.asp?"& Persists_Query_String( Empty ), _
39
                        If el(0) = sSelected Then isSelected = " selected "
33
                             imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?"& Persists_Query_String( Empty ), _
40
                        Response.Write "<option value='"&el(1)&"' "& isSelected &">"&el(0)&"</option>"
-
 
41
                    Next
-
 
42
                 %>
-
 
43
        </select>
-
 
44
        <%
-
 
45
        End Sub
-
 
46
 
34
                             "Documentation@documentation.asp?" & Persists_Query_String( Empty ), _
47
        ' Add a single entry to the Tab Array as well as the Option Array
-
 
48
        Sub GenerateEntry(bTab, bOpt, sIcon,sText,sQuery)
-
 
49
        If bTab Then
35
                             "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
50
            ReDim Preserve TabArray(UBound(TabArray) + 1)
36
                             "Action Log@action_log.asp?"& Persists_Query_String( Empty ), _
51
            TabArray(UBound(TabArray)) = Array(sIcon, sText, sQuery)
-
 
52
        End If
-
 
53
         
-
 
54
        If bOpt Then
37
                             "Unit Test@unit_test_log.asp?"& Persists_Query_String( Empty ), _
55
            ReDim Preserve OptionArray(UBound(OptionArray) + 1)
38
                             "Notifications@notifications.asp?"& Persists_Query_String( Empty ) )
56
            OptionArray(UBound(OptionArray)) = Array(sText, sQuery)
39
      Else
57
        End If
-
 
58
        End Sub
-
 
59
 
40
         ' Tabs for other packages
60
        ' Tabs for Packages (not Patches)
-
 
61
 
-
 
62
        'Call GenerateEntry(TRUE, FALSE, "",                 "SelectList",       "GenerateOptionList")
41
         TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?"& Persists_Query_String( Empty ), _
63
        Call GenerateEntry(TRUE, TRUE, imgDependenciesIcon ,"Dependencies",     "dependencies.asp?"& Persists_Query_String( Empty ))
42
                             "Runtime@runtime_dependencies.asp?"& Persists_Query_String( Empty ), _
64
        Call GenerateEntry(TRUE, TRUE, imgUsedByIcon,       "Dependencies (All)","dependencies_all.asp?"& Persists_Query_String( Empty ))
43
                             imgUsedByIcon & "Used by@used_by.asp?"& Persists_Query_String( Empty ), _
65
        Call GenerateEntry(TRUE, TRUE, imgUsedByIcon,       "Used by",          "used_by.asp?"& Persists_Query_String( Empty ))
-
 
66
        Call GenerateEntry(TRUE, TRUE, imgUsedByIcon,       "Used by (All)",    "used_by_all.asp?"& Persists_Query_String( Empty ))
-
 
67
        Call GenerateEntry(TRUE, TRUE,"",                   "Runtime",          "runtime_dependencies.asp?"& Persists_Query_String( Empty ))
44
                             "Processes@process_dependencies.asp?"& Persists_Query_String( Empty ), _
68
        Call GenerateEntry(TRUE, TRUE,"",                   "Processes",        "process_dependencies.asp?"& Persists_Query_String( Empty ))
45
                             imgPatchesIcon &"Patches@patches.asp?"& Persists_Query_String( Empty ), _
69
        Call GenerateEntry(TRUE, TRUE, imgPatchesIcon,      "Patches",          "patches.asp?"& Persists_Query_String( Empty ))
46
                             imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?"& Persists_Query_String( Empty ), _
70
        Call GenerateEntry(TRUE, TRUE, imgReleaseNotesIcon, "Release Notes",    "fixed_issues.asp?"& Persists_Query_String( Empty ))
47
                             "Documentation@documentation.asp?" & Persists_Query_String( Empty ), _
71
        Call GenerateEntry(TRUE, TRUE, "",                  "Documentation",    "documentation.asp?" & Persists_Query_String( Empty ))
48
                             "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
72
        Call GenerateEntry(TRUE, TRUE, "",                  "Files and Folders","files_and_folders.asp?" & Persists_Query_String( Empty ))
49
                             "Action Log@action_log.asp?"& Persists_Query_String( Empty ), _
73
        Call GenerateEntry(TRUE, TRUE, "",                  "Action Log",       "action_log.asp?"& Persists_Query_String( Empty ))
50
                             "Unit Test@unit_test_log.asp?"& Persists_Query_String( Empty ) , _
74
        Call GenerateEntry(TRUE, TRUE, "",                  "Unit Test",        "unit_test_log.asp?"& Persists_Query_String( Empty ))
51
                             "Notifications@notifications.asp?"& Persists_Query_String( Empty ) )
75
        Call GenerateEntry(TRUE, TRUE, "",                  "Notifications",    "notifications.asp?"& Persists_Query_String( Empty ))
-
 
76
        Call GenerateEntry(canDebug, False, "",             "Debug",            "pvdata.asp?"& Persists_Query_String( Empty ))
52
      End If
77
        TABarray1 = TabArray
53
   Else
78
    Else
54
      ' Tabs for Patches
79
      ' Tabs for Patches
55
      TABarray1 = Array ( imgDependenciesIcon &"Dependencies@dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
80
        TABarray1 = Array ( Array( imgDependenciesIcon, "Dependencies",         "dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
56
                          imgUsedByIcon & "Used by@used_by.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
81
                            Array( imgUsedByIcon,       "Used by",              "used_by.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
57
                          imgReleaseNotesIcon &"Release Notes@fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
82
                            Array( imgReleaseNotesIcon, "Release Notes",        "fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
58
                          "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
83
                            Array( "",                  "Files and Folders",    "files_and_folders.asp?" & Persists_Query_String( Empty )), _
59
                          "Action Log@action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
84
                            Array( "",                  "Action Log",           "action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")))
60
   End If
85
   End If
61
 
-
 
62
    ' Add a debug tab to show internal data
-
 
63
    If (IsEmpty(Application("LiveSystem"))) OR canActionControl("MSMaintainer") Then
-
 
64
        ReDim Preserve TABarray1(UBound(TABarray1) + 1)
-
 
65
        TABarray1(UBound(TABarray1)) = "Debug@pvdata.asp?"& Persists_Query_String( Empty )
-
 
66
    End If
-
 
67
 
-
 
68
End If
86
End If
69
 
87
 
70
' Tabs for Import / Export Dependencies
88
' Tabs for Import / Export Dependencies
71
TABarray2 = Array ( "JATS style@form_update_jats_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
89
TABarray2 = Array ( Array( "","JATS style",     "form_update_jats_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
72
                    "ANT-using style@form_update_ant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
90
                    Array( "","ANT-using style","form_update_ant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")))
73
 
91
 
74
TABarray3 = Array ( "JATS style@form_export_jats_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
92
TABarray3 = Array ( Array( "","JATS style",     "form_export_jats_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
75
                    "ClearCase style@form_export_clearcase_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
93
                    Array( "","ClearCase style","form_export_clearcase_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
76
                    "ANT-using style@form_export_ant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"), _
94
                    Array( "","ANT-using style","form_export_ant_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")), _
77
                    "Simple List@form_export_simple_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
95
                    Array( "","Simple List",    "form_export_simple_dependencies.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id")))
78
 
96
 
79
TABarray4 = Array ( "Details@_wform_issues_details.asp?iss_db="& Request("iss_db") &"&iss_id="& Request("iss_id") &"&iss_db_name="& Request("iss_db_name") &"&iss_id_num="& Request("iss_id_num") , _
97
TABarray4 = Array ( Array( "","Details",        "_wform_issues_details.asp?iss_db="& Request("iss_db") &"&iss_id="& Request("iss_id") &"&iss_db_name="& Request("iss_db_name") &"&iss_id_num="& Request("iss_id_num")) , _
80
                    "Notes@_wform_issues_notes.asp?iss_db="& Request("iss_db") &"&iss_id="& Request("iss_id") &"&iss_db_name="& Request("iss_db_name") &"&iss_id_num="& Request("iss_id_num"), _
98
                    Array( "","Notes",          "_wform_issues_notes.asp?iss_db="& Request("iss_db") &"&iss_id="& Request("iss_id") &"&iss_db_name="& Request("iss_db_name") &"&iss_id_num="& Request("iss_id_num")), _
81
                    "History@_wform_issues_history.asp?iss_db="& Request("iss_db") &"&iss_id="& Request("iss_id") &"&iss_db_name="& Request("iss_db_name") &"&iss_id_num="& Request("iss_id_num") )
99
                    Array( "","History",        "_wform_issues_history.asp?iss_db="& Request("iss_db") &"&iss_id="& Request("iss_id") &"&iss_db_name="& Request("iss_db_name") &"&iss_id_num="& Request("iss_id_num") ))
82
 
100
 
83
' Tabs for History window
101
' Tabs for History window
84
TABarray5 = Array ( imgDependenciesIcon &"Dependencies@_wform_versions_history_dependencies.asp?"& Persists_Query_String( Empty ), _
102
TABarray5 = Array ( Array( imgDependenciesIcon , "Dependencies","_wform_versions_history_dependencies.asp?"& Persists_Query_String( Empty )), _
85
                    "Runtime@_wform_versions_history_runtime.asp?"& Persists_Query_String( Empty ), _
103
                    Array( "",                   "Runtime","_wform_versions_history_runtime.asp?"& Persists_Query_String( Empty )), _
86
                    imgUsedByIcon & "Used by@_wform_versions_history_used_by.asp?"& Persists_Query_String( Empty ), _
104
                    Array( imgUsedByIcon,        "Used by","_wform_versions_history_used_by.asp?"& Persists_Query_String( Empty )), _
87
                    "Patches@_wform_versions_history_patches.asp?" & Persists_Query_String( Empty ), _
105
                    Array( "",                   "Patches","_wform_versions_history_patches.asp?" & Persists_Query_String( Empty )), _
88
                    imgReleaseNotesIcon &"Release Notes@_wform_versions_history_release_notes.asp?" & Persists_Query_String( Empty ), _
106
                    Array( imgReleaseNotesIcon , "Release Notes","_wform_versions_history_release_notes.asp?" & Persists_Query_String( Empty )), _
89
                    "Documentation@_wform_versions_history_documentation.asp?"& Persists_Query_String( Empty ), _
107
                    Array( "",                   "Documentation","_wform_versions_history_documentation.asp?"& Persists_Query_String( Empty )), _
90
                    "Files and Folders@_wform_versions_history_files_and_folders.asp?" & Persists_Query_String( Empty ), _
108
                    Array( "",                   "Files and Folders","_wform_versions_history_files_and_folders.asp?" & Persists_Query_String( Empty )), _
91
                    "Action Log@_wform_versions_history_action_log.asp?"& Persists_Query_String( Empty ) ,_
109
                    Array( "",                   "Action Log","_wform_versions_history_action_log.asp?"& Persists_Query_String( Empty )) ,_
92
                    "Unit Tests@_wform_versions_history_unit_test_log.asp?"& Persists_Query_String( Empty ) )
110
                    Array( "",                   "Unit Tests","_wform_versions_history_unit_test_log.asp?"& Persists_Query_String( Empty )) )
93
 
111
 
94
TABarray5D = Array ( imgDependenciesIcon &"Dependencies@#", _
112
TABarray5D = Array ( Array( imgDependenciesIcon, "Dependencies","#"), _
95
                     "Runtime@#", _
113
                     Array( "",                  "Runtime","#"), _
96
                     "Patches@#", _
114
                     Array( "",                  "Patches","#"), _
97
                     imgReleaseNotesIcon &"Release Notes@#", _
115
                     Array( imgReleaseNotesIcon, "Release Notes","#"), _
98
                     "Documentation@#", _
116
                     Array( "",                  "Documentation","#"), _
99
                     "Action Log@#",_
117
                     Array( "",                  "Action Log","#"),_
100
                     "Unit Tests@#" )
118
                     Array( "",                  "Unit Tests","#" ))
101
 
119
 
102
' Tabs for Unit Test window
120
' Tabs for Unit Test window
103
TABarray6 = Array ( "Unit Test Details@_wform_update_unit_test.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id"), _
121
TABarray6 = Array ( Array( "","Unit Test Details",  "_wform_update_unit_test.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id")), _
104
                    "Acceptance@_wform_update_unit_test_acceptance.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id"))
122
                    Array( "","Acceptance",         "_wform_update_unit_test_acceptance.asp?rtag_id="& Request("rtag_id") &"&pv_id="& Request("pv_id") &"&test_id="& Request("test_id")))
105
 
123
 
106
TABarray6D = Array ( "Unit Test Details@#", _
124
TABarray6D = Array ( Array( "","Unit Test Details", "#"), _
107
                     "Acceptance@#")
125
                     Array( "","Acceptance",        "#"))
108
 
126
 
109
'----------------------------------------------
127
'----------------------------------------------
110
%>
128
%>
111
<script language="JavaScript1.2">
129
<script language="JavaScript1.2">
-
 
130
// Selection Option: OnChange goto new page
-
 
131
function optionRedirect(el) {
-
 
132
    var val = el.value;
-
 
133
     if ( val ) {
-
 
134
         location.href = el.value;
-
 
135
     }
-
 
136
 }
112
 
137
 
113
// ---- Popup menu helper functions----
138
// ---- Popup menu helper functions----
114
function destroyThisRelease()
139
function destroyThisRelease() {
115
{
-
 
116
    vixConfirm('This Release will be permanently destroyed.<p>Are you sure?', {
140
    vixConfirm('This Release will be permanently destroyed.<p>Are you sure?', {
117
            button : 'Destroy Release', 
141
            button : 'Destroy Release', 
118
            title : 'Destroy Release', 
142
            title : 'Destroy Release', 
119
            icon : 'images/i_critical.gif',
143
            icon : 'images/i_critical.gif',
120
            url :  '_destroy_release.asp?rtag_id_list=<%=parRtag_id%>&proj_id=<%=DB_PROJ_ID%>&rfile=rtree.asp'
144
            url :  '_destroy_release.asp?rtag_id_list=<%=parRtag_id%>&proj_id=<%=DB_PROJ_ID%>&rfile=rtree.asp'