Subversion Repositories DevTools

Rev

Rev 133 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 133 Rev 141
Line 1... Line 1...
1 
<%
 1 
<%
2 
'===================================================================
 2 
'===================================================================
3 
'							Package Common
 3 
'                     Package Common
4 
'===================================================================
 4 
'===================================================================
5 
%>
 5 
%>
6 
<!--#include file="../class/classTemplateManager.asp"-->
 6 
<!--#include file="../class/classTemplateManager.asp"-->
7 
<!--#include file="../class/classTabControl.asp"-->
 7 
<!--#include file="../class/classTabControl.asp"-->
8 
<!--#include file="../class/classActionButtonControl.asp"-->
 8 
<!--#include file="../class/classActionButtonControl.asp"-->
9 
<%
 9 
<%
10 
'------------ VARIABLE DEFINITION -------------
 10 
'------------ VARIABLE DEFINITION -------------
11 
Dim parPv_id
 11 
Dim parPv_id
12 
Dim nEnvTab			' remember environment tab
 12 
Dim nEnvTab         ' remember environment tab
13 
Dim objBtnControl
 13 
Dim objBtnControl
14 
Dim aTabBtnsDef
 14 
Dim aTabBtnsDef
15 
'------------ CONSTANTS DECLARATION -----------
 15 
'------------ CONSTANTS DECLARATION -----------
16 
'------------ VARIABLE INIT -------------------
 16 
'------------ VARIABLE INIT -------------------
17 
parPv_id = Request("pv_id")
 17 
parPv_id = Request("pv_id")
Line 26... Line 26...
26 
If (Request("rtag_id") = "") AND (Request("pv_id") = "") Then Response.Redirect("index.asp")
 26 
If (Request("rtag_id") = "") AND (Request("pv_id") = "") Then Response.Redirect("index.asp")
27 
 
 27 
 
28 
 
 28 
 
29 
'--- Rebuild Environment
 29 
'--- Rebuild Environment
30 
If (Request("rtag_id") <> "") Then
 30 
If (Request("rtag_id") <> "") Then
31 
	Call Rebuild_Environment ( parRtag_id )
 31 
   Call Rebuild_Environment ( parRtag_id )
32 
End If
 32 
End If
33 
 
 33 
 
34 
'--- Persist following parameters between postbacks
 34 
'--- Persist following parameters between postbacks
35 
objPMod.PersistInQryString ( aPersistList(enumPAR_RTAG_ID) )
 35 
objPMod.PersistInQryString ( aPersistList(enumPAR_RTAG_ID) )
36 
objPMod.PersistInQryString ( aPersistList(enumPAR_PV_ID) )
 36 
objPMod.PersistInQryString ( aPersistList(enumPAR_PV_ID) )
Line 41... Line 41...
41 
 
 41 
 
42 
 
 42 
 
43 
'--- Get Package General Information
 43 
'--- Get Package General Information
44 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
 44 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
45 
If Request("pv_id") <> "" Then
 45 
If Request("pv_id") <> "" Then
46 
	Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") )
 46 
   Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") )
47 
 
 47 
 
48 
	' Make sure pv_id exists as it may be removed
 48 
   ' Make sure pv_id exists as it may be removed
49 
	If pkgInfoHash.Item("pv_id") = "" Then Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id"))
 49 
   If pkgInfoHash.Item("pv_id") = "" Then Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id"))
50 
 
 50 
 
51 
Else
 51 
Else
52 
	If (ScriptName <> "dependencies.asp") AND (ScriptName <> "find.asp")Then  Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id"))
 52 
   If (ScriptName <> "dependencies.asp") AND (ScriptName <> "find.asp")Then  Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id"))
53 
End If
 53 
End If
54 
 
 54 
 
55 
 
 55 
 
56 
'----------------------------------------------
 56 
'----------------------------------------------
57 
%>
 57 
%>
58 
<%
 58 
<%
59 
'-----------------------------------------------------------------------------------------------------------------------------
 59 
'-----------------------------------------------------------------------------------------------------------------------------
60 
Sub RenderPackageProperties ()
 60 
Sub RenderPackageProperties ()
61 
%>
 61 
%>
62 
 
 62 
 
63 
  <tr>
 63 
   <tr>
64 
    <td background="images/bg_lght_gray.gif"><IMG height="45" src="images/spacer.gif" width=1></td>
 64 
      <td background="images/bg_lght_gray.gif"><IMG height="45" src="images/spacer.gif" width=1></td>
65 
 
 65 
 
66 
	<td valign="bottom" background="images/bg_lght_gray.gif" nowrap class="body_txt">
 66 
      <td valign="bottom" background="images/bg_lght_gray.gif" nowrap class="body_txt">
67 
	<%
 67 
         <%
68 
	If pkgInfoHash.Item ("is_patch") = "Y" Then
 68 
         If pkgInfoHash.Item ("is_patch") = "Y" Then
69 
		'--- PATCH ---
 69 
            '--- PATCH ---
70 
		Response.write "<br><a href='patches.asp?pv_id="& pkgInfoHash.Item ("patch_parent_id") &"&rtag_id="& Request("rtag_id") &"' class='txt_linked'><img src='icons/i_caretone.gif' hspace='2' border='0' align='absmiddle'>Back To "& pkgInfoHash.Item ("pkg_name") &"</a><br><br>"
 70 
            Response.write "<br><a href='patches.asp?pv_id="& pkgInfoHash.Item ("patch_parent_id") &"&rtag_id="& Request("rtag_id") &"' class='txt_linked'><img src='icons/i_caretone.gif' hspace='2' border='0' align='absmiddle'>Back To "& pkgInfoHash.Item ("pkg_name") &"</a><br><br>"
71 
 
 71 
 
72 
		If pkgInfoHash.Item ("is_obsolete") = "Y" Then
 72 
            If pkgInfoHash.Item ("is_obsolete") = "Y" Then
73 
			Dim rsTemp
 73 
               Dim rsTemp
74 
			Set rsTemp = OraDatabase.DbCreateDynaset( "select patch_obsoleted_by from package_patches where patch_id ="&pkgInfoHash.Item ("pv_id"), cint(0))
 74 
               Set rsTemp = OraDatabase.DbCreateDynaset( "select patch_obsoleted_by from package_patches where patch_id ="&pkgInfoHash.Item ("pv_id"), cint(0))
75 
 
 75 
 
76 
			If rsTemp("patch_obsoleted_by") <> "" Then
 76 
               If rsTemp("patch_obsoleted_by") <> "" Then
77 
 
 77 
 
78 
				Set rsTemp = OraDatabase.DbCreateDynaset( "select pkg_version from package_versions where pv_id ="&rsTemp("patch_obsoleted_by"), cint(0))
 78 
                  Set rsTemp = OraDatabase.DbCreateDynaset( "select pkg_version from package_versions where pv_id ="&rsTemp("patch_obsoleted_by"), cint(0))
79 
				Call Messenger ( "<SPAN class='err_alert'><b>Patch Is Obsolete!</b></SPAN><br>"& NewLine_To_BR( "<b>Obsoleted by patch "& rsTemp("pkg_version") & ". </b> " ) & NewLine_To_BR( pkgInfoHash.Item ("obsolete_comments") ), 3, "100%" )
 79 
                  Call Messenger ( "<SPAN class='err_alert'><b>Patch Is Obsolete!</b></SPAN><br>"& NewLine_To_BR( "<b>Obsoleted by patch "& rsTemp("pkg_version") & ". </b> " ) & NewLine_To_BR( pkgInfoHash.Item ("obsolete_comments") ), 3, "100%" )
80 
 
 80 
 
81 
				rsTemp.Close()
 81 
                  rsTemp.Close()
82 
				Set rsTemp = nothing
 82 
                  Set rsTemp = nothing
83 
			Else
 83 
               Else
84 
				Call Messenger ( "<SPAN class='err_alert'><b>Patch Is Obsolete!</b></SPAN><br>"& NewLine_To_BR( pkgInfoHash.Item ("obsolete_comments") ), 3, "100%" )
 84 
                  Call Messenger ( "<SPAN class='err_alert'><b>Patch Is Obsolete!</b></SPAN><br>"& NewLine_To_BR( pkgInfoHash.Item ("obsolete_comments") ), 3, "100%" )
85 
			End If
 85 
               End If
86 
			Response.write enum_imgPatchObsolete
 86 
               Response.write enum_imgPatchObsolete
87 
		Else
 87 
            Else
88 
			Response.write enum_imgPatch
 88 
               Response.write enum_imgPatch
89 
		End If
 89 
            End If
90 
 
 90 
 
91 
 
 91 
 
92 
		If pkgInfoHash.Item ("dlocked") = "Y" Then
 92 
            If pkgInfoHash.Item ("dlocked") = "Y" Then
93 
			Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'></SPAN>"
 93 
               Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'></SPAN>"
94 
		Else
 94 
            Else
95 
			Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_version") &"</SPAN>"
 95 
               Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_version") &"</SPAN>"
96 
		End If
 96 
            End If
97 
	Else
 97 
         Else
98 
		'--- PACKAGE ---
 98 
            '--- PACKAGE ---
99 
		If pkgInfoHash.Item ("dlocked") = "Y" Then
 99 
            If pkgInfoHash.Item ("dlocked") = "Y" Then
100 
			If pkgInfoHash.Item ("deprecated_state") = 6 Then
 100 
               If pkgInfoHash.Item ("deprecated_state") = 6 Then
101 
				Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'>"&enum_imgDeprecated&"</SPAN>"
 101 
                  Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'>"&enum_imgDeprecated&"</SPAN>"
102 
			ElseIf pkgInfoHash.Item ("product_state") = 4 Then
 102 
               ElseIf pkgInfoHash.Item ("product_state") = 4 Then
103 
				Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'>"&enum_imgProductRejected&"</SPAN>"
 103 
                  Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'>"&enum_imgProductRejected&"</SPAN>"
104 
			Else
 104 
               Else
105 
				Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'></SPAN>"
 105 
                  Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"<img src='images/i_locked.gif' width='12' height='14' border='0' hspace='5' align='top'></SPAN>"
106 
			End If
 106 
               End If
107 
		Else
 107 
            Else
108 
			Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"</SPAN>"
 108 
               Response.write "<SPAN class='lbox_ttl'>"& pkgInfoHash.Item ("pkg_name") &"&nbsp;"& pkgInfoHash.Item ("pkg_version") &"</SPAN>"
109 
		End If
 109 
            End If
110 
	End If
 110 
         End If
111 
	%>
 111 
         %>
112 
	<br><br>
 112 
         <br><br>
113 
	</td>
 113 
      </td>
114 
 
 114 
 
115 
    <td background="images/bg_lght_gray.gif">&nbsp;</td>
 115 
      <td background="images/bg_lght_gray.gif">&nbsp;</td>
116 
  </tr>
 116 
   </tr>
117 
 
 117 
 
118 
  <tr>
 118 
   <tr>
119 
    <td background="images/bg_lght_gray.gif"></td>
 119 
      <td background="images/bg_lght_gray.gif"></td>
120 
	<td background="images/bg_lght_gray.gif">
 120 
      <td background="images/bg_lght_gray.gif">
121 
	<SPAN id="spanShowDetails" name="spanShowDetails"><a href="javascript:;" class="body_scol" onClick="DisplaySPAN(true);" style="display:block">Show Details...</a></SPAN>
 121 
         <SPAN id="spanShowDetails" name="spanShowDetails"><a href="javascript:;" class="body_scol" onClick="DisplaySPAN(true);" style="display:block">Show Details...</a></SPAN>
122 
	<SPAN id="spanHideDetails" name="spanHideDetails" style="display:none;"><a href="javascript:;" class="body_colb" onClick="DisplaySPAN(false);">Hide Details</a></SPAN>
 122 
         <SPAN id="spanHideDetails" name="spanHideDetails" style="display:none;"><a href="javascript:;" class="body_colb" onClick="DisplaySPAN(false);">Hide Details</a></SPAN>
123 
	<SPAN id="spanPkgInfo" name="spanPkgInfo" style="display:none;">
 123 
         <SPAN id="spanPkgInfo" name="spanPkgInfo" style="display:none;">
124 
	<table width="400" border="0" cellspacing="0" cellpadding="3">
 124 
         <table width="400" border="0" cellspacing="0" cellpadding="3">
125 
	  <tr>
 125 
            <tr>
126 
		<td background="images/bg_form_lightbluedark.gif" nowrap class="body_txt"><%Call Print_Pkg_Info()%></td>
 126 
               <td background="images/bg_form_lightbluedark.gif" nowrap class="body_txt"><%Call Print_Pkg_Info()%></td>
127 
	  </tr>
 127 
            </tr>
128 
	</table>
 128 
         </table>
129 
	</SPAN>
 129 
         </SPAN>
130 
	<br>
 130 
         <br>
131 
	</td>
 131 
      </td>
132 
    <td background="images/bg_lght_gray.gif"></td>
 132 
      <td background="images/bg_lght_gray.gif"></td>
133 
  </tr>
 133 
   </tr>
134 
<%
 134 
<%
135 
End Sub
 135 
End Sub
136 
'-----------------------------------------------------------------------------------------------------------------------------
 136 
'-----------------------------------------------------------------------------------------------------------------------------
137 
Sub RenderPackageState ()
 137 
Sub RenderPackageState ()
138 
	If (pkgInfoHash.Item ("dlocked") = "Y") Then
 138 
   If (pkgInfoHash.Item ("dlocked") = "Y") Then
139 
		Response.write "<b>Status:</b>&nbsp;Released<br>"
 139 
      Response.write "<b>Status:</b>&nbsp;Released<br>"
140 
	Else
 140 
   Else
141 
		Response.write "<b>Status:&nbsp;</b>Not released<br>"
 141 
      Response.write "<b>Status:&nbsp;</b>Not released<br>"
142 
	End If
 142 
   End If
143 
End Sub
 143 
End Sub
144 
'-----------------------------------------------------------------------------------------------------------------------------
 144 
'-----------------------------------------------------------------------------------------------------------------------------
145 
Sub Print_Pkg_Info()
 145 
Sub Print_Pkg_Info()
146 
 
 146 
 
147 
	' Status:
 147 
   ' Status:
- 
 
 148 
   If IsNull(pkgInfoHash.Item ("is_patch")) Then
148 
   Call RenderPackageState ()
 149 
      Call RenderPackageState ()
- 
 
 150 
   Else
- 
 
 151 
      If  objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch"))  Then
- 
 
 152 
         If (pkgInfoHash.Item ("dlocked") = "Y") Then
- 
 
 153 
            ' Unlock patch.
- 
 
 154 
            Response.write "<a href='_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"' class='body_txt' title='Unlock the patch.'><b>Status:</b><img src='images/i_edit.gif' width='12' height='12' border='0' ></a>&nbsp;Released<br>"
- 
 
 155 
         ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
- 
 
 156 
            ' Lock Patch
- 
 
 157 
            Response.write "<a href='_s_lock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"' class='body_txt' title='Lock the patch. Release requirements are not applied.'><b>Status:</b><img src='images/i_edit.gif' width='12' height='12' border='0'></a>&nbsp;Not Released<br>"
- 
 
 158 
         End If
- 
 
 159 
      Else
- 
 
 160 
         Call RenderPackageState ()
- 
 
 161 
      End If
- 
 
 162 
   End If
149 
 
 163 
 
150 
	' Base View:
 164 
   ' Base View:
151 
	Response.write "<b>Base View:&nbsp;</b>"& Get_Pkg_Base_View ( parPv_id, parRtag_id ) &"<br>"
 165 
   Response.write "<b>Base View:&nbsp;</b>"& Get_Pkg_Base_View ( parPv_id, parRtag_id ) &"<br>"
152 
 
 166 
 
153 
	' Previous Version:
 167 
   ' Previous Version:
154 
	If IsNull(pkgInfoHash.Item ("is_patch")) Then
 168 
   If IsNull(pkgInfoHash.Item ("is_patch")) Then
155 
		If objAccessControl.IsActive("ChangePreviousVersion") Then
 169 
      If objAccessControl.IsActive("ChangePreviousVersion") Then
156 
			If IsNull(pkgInfoHash.Item ("previous_version")) Then
 170 
         If IsNull(pkgInfoHash.Item ("previous_version")) Then
157 
				Response.write "<a href='javascript:;' onClick='MM_openBrWindow(""_wform_change_previous_version.asp?rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &""",""ChangeOwner"",""resizable=yes,width=400,height=200"")' class='body_txt'><b>Previous Version:</b><img src='images/i_edit.gif' width='12' height='12' border='0' alt='Edit'></a>&nbsp;Unknown!<br>"
 171 
            Response.write "<a href='javascript:;' onClick='MM_openBrWindow(""_wform_change_previous_version.asp?rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &""",""ChangeOwner"",""resizable=yes,width=400,height=200"")' class='body_txt'><b>Previous Version:</b><img src='images/i_edit.gif' width='12' height='12' border='0' alt='Edit'></a>&nbsp;Unknown!<br>"
158 
			Else
 172 
         Else
159 
				Response.write "<a href='javascript:;' onClick='MM_openBrWindow(""_wform_change_previous_version.asp?rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &""",""ChangeOwner"",""resizable=yes,width=400,height=200"")' class='body_txt'><b>Previous Version:</b><img src='images/i_edit.gif' width='12' height='12' border='0' alt='Edit'>&nbsp;"& pkgInfoHash.Item ("previous_version") &"</a><br>"
 173 
            Response.write "<a href='javascript:;' onClick='MM_openBrWindow(""_wform_change_previous_version.asp?rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &""",""ChangeOwner"",""resizable=yes,width=400,height=200"")' class='body_txt'><b>Previous Version:</b><img src='images/i_edit.gif' width='12' height='12' border='0' alt='Edit'>&nbsp;"& pkgInfoHash.Item ("previous_version") &"</a><br>"
160 
			End If
 174 
         End If
161 
		Else
 175 
      Else
162 
			If IsNull(pkgInfoHash.Item ("previous_version")) Then
 176 
         If IsNull(pkgInfoHash.Item ("previous_version")) Then
163 
				Response.write "<b>Previous Version:</b><img src='images/i_edit_disable.gif' width='12' height='12' border='0' alt='Edit'></a>&nbsp;Unknown!<br>"
 177 
            Response.write "<b>Previous Version:</b><img src='images/i_edit_disable.gif' width='12' height='12' border='0' alt='Edit'></a>&nbsp;Unknown!<br>"
164 
			Else
 178 
         Else
165 
				Response.write "<b>Previous Version:</b><img src='images/i_edit_disable.gif' width='12' height='12' border='0' alt='Edit'>&nbsp;"& pkgInfoHash.Item ("previous_version") &"</a><br>"
 179 
            Response.write "<b>Previous Version:</b><img src='images/i_edit_disable.gif' width='12' height='12' border='0' alt='Edit'>&nbsp;"& pkgInfoHash.Item ("previous_version") &"</a><br>"
166 
			End If
 180 
         End If
167 
		End If
 181 
      End If
168 
	End If
 182 
   End If
169 
	Response.write "<br>"
 183 
   Response.write "<br>"
170 
 
 184 
 
171 
	Response.write "<table width='100' border='0' cellspacing='0' cellpadding='1'>"
 185 
   Response.write "<table width='100' border='0' cellspacing='0' cellpadding='1'>"
172 
 
 186 
 
173 
	' Owner:
 187 
   ' Owner:
174 
	Response.write "<tr>"
 188 
   Response.write "<tr>"
175 
	If objAccessControl.UserLogedIn() Then
 189 
   If objAccessControl.UserLogedIn() Then
176 
		Response.write "<td nowrap><a href='javascript:;' onClick='MM_openBrWindow(""_wform_change_owner.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &""",""ChangeOwner"",""resizable=yes,width=400,height=200"")' class='body_txt'><b>Owner:</b><img src='images/i_edit.gif' width='12' height='12' border='0' alt='Change owner'></a>&nbsp;</td>"
 190 
      Response.write "<td nowrap><a href='javascript:;' onClick='MM_openBrWindow(""_wform_change_owner.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &""",""ChangeOwner"",""resizable=yes,width=400,height=200"")' class='body_txt'><b>Owner:</b><img src='images/i_edit.gif' width='12' height='12' border='0' alt='Change owner'></a>&nbsp;</td>"
177 
	Else
 191 
   Else
178 
		Response.write "<td nowrap class='body_txt'><b>Owner:</b><img src='images/i_edit_disable.gif' width='12' height='12' border='0' alt='Change owner'></td>"
 192 
      Response.write "<td nowrap class='body_txt'><b>Owner:</b><img src='images/i_edit_disable.gif' width='12' height='12' border='0' alt='Change owner'></td>"
179 
	End If
 193 
   End If
180 
	Response.write "<td nowrap class='body_txt'>"& pkgInfoHash.Item ("owner") &"</td>"
 194 
   Response.write "<td nowrap class='body_txt'>"& pkgInfoHash.Item ("owner") &"</td>"
181 
	Response.write "<td><a href='mailto:"& pkgInfoHash.Item ("owner_email") &"' class='txt_linked'><img src='images/bt_send_email.gif' width='36' height='13' hspace='3' border='0' align='absmiddle' alt='"& pkgInfoHash.Item ("owner_email") &"'></a></td>"
 195 
   Response.write "<td><a href='mailto:"& pkgInfoHash.Item ("owner_email") &"' class='txt_linked'><img src='images/bt_send_email.gif' width='36' height='13' hspace='3' border='0' align='absmiddle' alt='"& pkgInfoHash.Item ("owner_email") &"'></a></td>"
182 
	Response.write "</tr>"
 196 
   Response.write "</tr>"
183 
 
 197 
 
184 
	' Created:
 198 
   ' Created:
185 
	Response.write "<tr>"
 199 
   Response.write "<tr>"
186 
	Response.write "<td nowrap class='body_txt'><b>Created:&nbsp;</b></td>"
 200 
   Response.write "<td nowrap class='body_txt'><b>Created:&nbsp;</b></td>"
187 
	Response.write "<td nowrap class='body_txt'>"& EuroDate(pkgInfoHash.Item ("created_stamp")) &" by "& pkgInfoHash.Item ("creator") &"</td>"
 201 
   Response.write "<td nowrap class='body_txt'>"& EuroDate(pkgInfoHash.Item ("created_stamp")) &" by "& pkgInfoHash.Item ("creator") &"</td>"
188 
	Response.write "<td><a href='mailto:"& pkgInfoHash.Item ("creator_email") &"' class='txt_linked'><img src='images/bt_send_email.gif' width='36' height='13' hspace='3' border='0' align='absmiddle' alt='"& pkgInfoHash.Item ("creator_email") &"'></a></td>"
 202 
   Response.write "<td><a href='mailto:"& pkgInfoHash.Item ("creator_email") &"' class='txt_linked'><img src='images/bt_send_email.gif' width='36' height='13' hspace='3' border='0' align='absmiddle' alt='"& pkgInfoHash.Item ("creator_email") &"'></a></td>"
189 
	Response.write "</tr>"
 203 
   Response.write "</tr>"
190 
 
 204 
 
191 
	' Last Modified:
 205 
   ' Last Modified:
192 
	Response.write "<tr>"
 206 
   Response.write "<tr>"
193 
	Response.write "<td nowrap class='body_txt'><b>Last Modified:&nbsp;</b></td>"
 207 
   Response.write "<td nowrap class='body_txt'><b>Last Modified:&nbsp;</b></td>"
194 
	Response.write "<td nowrap class='body_txt'>"& EuroDateTime(pkgInfoHash.Item ("modified_stamp")) &" by "& pkgInfoHash.Item ("modifier") &"</td>"
 208 
   Response.write "<td nowrap class='body_txt'>"& EuroDateTime(pkgInfoHash.Item ("modified_stamp")) &" by "& pkgInfoHash.Item ("modifier") &"</td>"
195 
	Response.write "<td><a href='mailto:"& pkgInfoHash.Item ("modifier_email") &"' class='txt_linked'><img src='images/bt_send_email.gif' width='36' height='13' hspace='3' border='0' align='absmiddle' alt='"& pkgInfoHash.Item ("modifier_email") &"'></a></td>"
 209 
   Response.write "<td><a href='mailto:"& pkgInfoHash.Item ("modifier_email") &"' class='txt_linked'><img src='images/bt_send_email.gif' width='36' height='13' hspace='3' border='0' align='absmiddle' alt='"& pkgInfoHash.Item ("modifier_email") &"'></a></td>"
196 
	Response.write "</tr>"
 210 
   Response.write "</tr>"
197 
	If IsNull(pkgInfoHash.Item ("is_patch"))  AND  (Request("rtag_id") <> "") Then
 211 
   If IsNull(pkgInfoHash.Item ("is_patch"))  AND  (Request("rtag_id") <> "") Then
198 
		Response.write "<tr>"
 212 
      Response.write "<tr>"
199 
		If pkgInfoHash.Item ("insertor") <> "" Then
 213 
      If pkgInfoHash.Item ("insertor") <> "" Then
200 
			Response.write "<td nowrap class='body_txt'><b>Added to Release:&nbsp;</b></td>"
 214 
         Response.write "<td nowrap class='body_txt'><b>Added to Release:&nbsp;</b></td>"
201 
			Response.write "<td nowrap class='body_txt'>"& EuroDate(pkgInfoHash.Item ("insert_stamp")) &" by "& pkgInfoHash.Item ("insertor") &"</td>"
 215 
         Response.write "<td nowrap class='body_txt'>"& EuroDate(pkgInfoHash.Item ("insert_stamp")) &" by "& pkgInfoHash.Item ("insertor") &"</td>"
202 
			Response.write "<td><a href='mailto:"& pkgInfoHash.Item ("insertor_email") &"' class='txt_linked'><img src='images/bt_send_email.gif' width='36' height='13' hspace='3' border='0' align='absmiddle' alt='"& pkgInfoHash.Item ("insertor_email") &"'></a></td>"
 216 
         Response.write "<td><a href='mailto:"& pkgInfoHash.Item ("insertor_email") &"' class='txt_linked'><img src='images/bt_send_email.gif' width='36' height='13' hspace='3' border='0' align='absmiddle' alt='"& pkgInfoHash.Item ("insertor_email") &"'></a></td>"
203 
		End If
 217 
      End If
204 
		Response.write "</tr>"
 218 
      Response.write "</tr>"
205 
	End If
 219 
   End If
206 
 
 220 
 
207 
	' Config Specs:
 221 
   ' Config Specs:
208 
	Call Config_Spec (Request("rtag_id"), Request("pv_id"))
 222 
   Call Config_Spec (Request("rtag_id"), Request("pv_id"))
209 
	Call Config_Spec_Template (pkgInfoHash.Item("dlocked"), rsQry("config_spec_branch"), rsQry("pkg_label"), rsQry("src_path"))
 223 
   Call Config_Spec_Template (pkgInfoHash.Item("dlocked"), rsQry("config_spec_branch"), rsQry("pkg_label"), rsQry("src_path"))
210 
 
 224 
 
211 
	' Jats commands
 225 
   ' Jats commands
212 
	Call Jats_Commands (pkgInfoHash.Item("dlocked"), rsQry("config_spec_branch"), rsQry("pkg_label"), rsQry("src_path"))
 226 
   Call Jats_Commands (pkgInfoHash.Item("dlocked"), rsQry("config_spec_branch"), rsQry("pkg_label"), rsQry("src_path"))
213 
 
 227 
 
214 
	rsQry.Close()
 228 
   rsQry.Close()
215 
	Set rsQry = nothing
 229 
   Set rsQry = nothing
216 
	Response.write "</table>"
 230 
   Response.write "</table>"
217 
 
 231 
 
218 
End Sub
 232 
End Sub
219 
'---------------------------------------------------------------
 233 
'---------------------------------------------------------------
220 
Sub Config_Spec (NNRtag_id, NNPv_id)
 234 
Sub Config_Spec (NNRtag_id, NNPv_id)
221 
	OraDatabase.Parameters.Add "RTAG_ID", NNRtag_id,	ORAPARM_INPUT, ORATYPE_NUMBER
 235 
   OraDatabase.Parameters.Add "RTAG_ID", NNRtag_id,   ORAPARM_INPUT, ORATYPE_NUMBER
222 
	OraDatabase.Parameters.Add "PV_ID", NNPv_id,	ORAPARM_INPUT, ORATYPE_NUMBER
 236 
   OraDatabase.Parameters.Add "PV_ID", NNPv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
223 
 
 237 
 
224 
 
 238 
 
225 
 
 239 
 
226 
	If NNRtag_id <> "" Then
 240 
   If NNRtag_id <> "" Then
227 
		If pkgInfoHash.Item ("dlocked") <> "Y" Then
 241 
      If pkgInfoHash.Item ("dlocked") <> "Y" Then
228 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("config_spec.sql"), cint(0))
 242 
         Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("config_spec.sql"), cint(0))
229 
		Else
 243 
      Else
230 
			Set rsQry = OraDatabase.DbCreateDynaset( Replace(GetQuery("config_spec.sql"), "PV.LAST_PV_ID", "PV.PV_ID"), cint(0))
 244 
         Set rsQry = OraDatabase.DbCreateDynaset( Replace(GetQuery("config_spec.sql"), "PV.LAST_PV_ID", "PV.PV_ID"), cint(0))
231 
		End If
 245 
      End If
232 
	Else
 246 
   Else
233 
		If pkgInfoHash.Item ("dlocked") <> "Y" Then
 247 
      If pkgInfoHash.Item ("dlocked") <> "Y" Then
234 
			Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("config_spec_nortag.sql"), cint(0))
 248 
         Set rsQry = OraDatabase.DbCreateDynaset( GetQuery("config_spec_nortag.sql"), cint(0))
235 
		Else
 249 
      Else
236 
			Set rsQry = OraDatabase.DbCreateDynaset( Replace(GetQuery("config_spec_nortag.sql"), "PV.LAST_PV_ID", "PV.PV_ID"), cint(0))
 250 
         Set rsQry = OraDatabase.DbCreateDynaset( Replace(GetQuery("config_spec_nortag.sql"), "PV.LAST_PV_ID", "PV.PV_ID"), cint(0))
237 
		End If
 251 
      End If
238 
	End If
 252 
   End If
239 
 
 253 
 
240 
	OraDatabase.Parameters.Remove "RTAG_ID"
 254 
   OraDatabase.Parameters.Remove "RTAG_ID"
241 
	OraDatabase.Parameters.Remove "PV_ID"
 255 
   OraDatabase.Parameters.Remove "PV_ID"
242 
 
 256 
 
243 
End Sub
 257 
End Sub
244 
 
 258 
 
245 
'---------------------------------------------------------------
 259 
'---------------------------------------------------------------
246 
' Function: Config_Spec_Template
 260 
' Function: Config_Spec_Template
Line 254... Line 268...
254 
'            src_path      : The source path for the package
 268 
'            src_path      : The source path for the package
255 
' Notes:
 269 
' Notes:
256 
'
 270 
'
257 
Sub Config_Spec_Template (dlocked, config_branch, pkg_label, src_path)
 271 
Sub Config_Spec_Template (dlocked, config_branch, pkg_label, src_path)
258 
 
 272 
 
259 
	Dim Template
 273 
   Dim Template
260 
 
 274 
 
261 
	If (pkg_label <> "" AND src_path <> "") Then
 275 
   If (pkg_label <> "" AND src_path <> "") Then
262 
		If (dlocked <> "Y" AND NOT IsNull(config_branch) AND config_branch <> "" ) Then
 276 
      If (dlocked <> "Y" AND NOT IsNull(config_branch) AND config_branch <> "" ) Then
263 
			Template = "element * CHECKEDOUT <br>" & _
 277 
         Template = "element * CHECKEDOUT <br>" & _
264 
			"element .../lost+found -none <br>" & _
 278 
         "element .../lost+found -none <br>" & _
265 
			"element * .../" & config_branch & "/LATEST <br>" & _
 279 
         "element * .../" & config_branch & "/LATEST <br>" & _
266 
			"element * " & pkg_label & " -mkbranch " & config_branch & "<br>" & _
 280 
         "element * " & pkg_label & " -mkbranch " & config_branch & "<br>" & _
267 
			"element * /main/0 -mkbranch " & config_branch & "<br>"  & _
 281 
         "element * /main/0 -mkbranch " & config_branch & "<br>"  & _
268 
			"load " & chr(34) & src_path & chr(34)
 282 
         "load " & chr(34) & src_path & chr(34)
269 
		Else
 283 
      Else
270 
			Template = "element * CHECKEDOUT <br>" & _
 284 
         Template = "element * CHECKEDOUT <br>" & _
271 
			"element .../lost+found -none <br>" & _
 285 
         "element .../lost+found -none <br>" & _
272 
			"element * " & pkg_label &"<br>" & _
 286 
         "element * " & pkg_label &"<br>" & _
273 
			"load " & chr(34) & src_path & chr(34)
 287 
         "load " & chr(34) & src_path & chr(34)
274 
		End If
 288 
      End If
275 
	Else
 289 
   Else
276 
		Template = "UNAVAILABLE - missing label and/or source path"
 290 
      Template = "UNAVAILABLE - missing label and/or source path"
277 
	End If
 291 
   End If
278 
 
 292 
 
279 
	Response.write "<tr>"
 293 
   Response.write "<tr>"
280 
	Response.write "<td nowrap class='body_txt'><b>Config Specs:&nbsp;</b></td>"
 294 
   Response.write "<td nowrap class='body_txt'><b>Config Specs:&nbsp;</b></td>"
281 
	Response.write "<td nowrap class='body_txt'>"& Template &"</td>"
 295 
   Response.write "<td nowrap class='body_txt'>"& Template &"</td>"
282 
	Response.write "<td nowrap class='body_txt'></td>"
 296 
   Response.write "<td nowrap class='body_txt'></td>"
283 
	Response.write "</tr>"
 297 
   Response.write "</tr>"
284 
 
 298 
 
285 
End Sub
 299 
End Sub
286 
 
 300 
 
287 
'---------------------------------------------------------------
 301 
'---------------------------------------------------------------
288 
' Function: Jats_Commands
 302 
' Function: Jats_Commands
Line 297... Line 311...
297 
'            src_path      : The source path for the package
 311 
'            src_path      : The source path for the package
298 
' Notes:
 312 
' Notes:
299 
'
 313 
'
300 
Sub Jats_Commands (dlocked, config_branch, pkg_label, src_path)
 314 
Sub Jats_Commands (dlocked, config_branch, pkg_label, src_path)
301 
 
 315 
 
302 
	Dim Template1, Template2
 316 
   Dim Template1, Template2
303 
 
 317 
 
304 
	If (pkg_label <> "" AND src_path <> "") Then
 318 
   If (pkg_label <> "" AND src_path <> "") Then
305 
		If (dlocked <> "Y" AND NOT IsNull(config_branch) AND config_branch <> "" ) Then
 319 
      If (dlocked <> "Y" AND NOT IsNull(config_branch) AND config_branch <> "" ) Then
306 
			Template1 = "jats release -extract " & pkg_label & " -path " & chr(34) & Replace(src_path, "\", "/") & chr(34) &" -branch "& config_branch
 320 
         Template1 = "jats release -extract " & pkg_label & " -path " & chr(34) & Replace(src_path, "\", "/") & chr(34) &" -branch "& config_branch
307 
		Else
 321 
      Else
308 
			Template1 = "jats release -extract " & pkg_label & " -path " & chr(34) & Replace(src_path, "\", "/") & chr(34)
 322 
         Template1 = "jats release -extract " & pkg_label & " -path " & chr(34) & Replace(src_path, "\", "/") & chr(34)
309 
		End If
 323 
      End If
310 
		Template2 = "jats release -test " & pkgInfoHash.Item("pkg_label") & " -path " & chr(34) & Replace(src_path, "\", "/") & chr(34)
 324 
      Template2 = "jats release -test " & pkgInfoHash.Item("pkg_label") & " -path " & chr(34) & Replace(src_path, "\", "/") & chr(34)
311 
	Else
 325 
   Else
312 
		Template1 = "UNAVAILABLE - missing label and/or source path"
 326 
      Template1 = "UNAVAILABLE - missing label and/or source path"
313 
		Template2 = "UNAVAILABLE - missing label and/or source path"
 327 
      Template2 = "UNAVAILABLE - missing label and/or source path"
314 
	End If
 328 
   End If
315 
 
 329 
 
316 
	Response.write "<tr>"
 330 
   Response.write "<tr>"
317 
	Response.write "<td nowrap class='body_txt'><b>JATS Extract:&nbsp;</b></td>"
 331 
   Response.write "<td nowrap class='body_txt'><b>JATS Extract:&nbsp;</b></td>"
318 
	Response.write "<td nowrap class='body_txt'>" & Template1 & "</td>"
 332 
   Response.write "<td nowrap class='body_txt'>" & Template1 & "</td>"
319 
	Response.write "<td nowrap class='body_txt'></td>"
 333 
   Response.write "<td nowrap class='body_txt'></td>"
320 
	Response.write "</tr>"
 334 
   Response.write "</tr>"
321 
	Response.write "<tr>"
 335 
   Response.write "<tr>"
322 
	Response.write "<td nowrap class='body_txt'><b>JATS Test:&nbsp;</b></td>"
 336 
   Response.write "<td nowrap class='body_txt'><b>JATS Test:&nbsp;</b></td>"
323 
	Response.write "<td nowrap class='body_txt'>" & Template2 & "</td>"
 337 
   Response.write "<td nowrap class='body_txt'>" & Template2 & "</td>"
324 
	Response.write "<td nowrap class='body_txt'></td>"
 338 
   Response.write "<td nowrap class='body_txt'></td>"
325 
	Response.write "</tr>"
 339 
   Response.write "</tr>"
326 
 
 340 
 
327 
End Sub
 341 
End Sub
328 
 
 342 
 
329 
'-----------------------------------------------------------------------------------------------------------------------------
 343 
'-----------------------------------------------------------------------------------------------------------------------------
330 
%>
 344 
%>