Subversion Repositories DevTools

Rev

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

Rev 119 Rev 133
Line 143... Line 143...
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
 - 
 
149 
		If  objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPackage"))  Then
 - 
 
150 
			If (pkgInfoHash.Item ("dlocked") = "Y") OR (pkgInfoHash.Item ("dlocked") = "A")Then
 - 
 
151 
				' Unlock package.
 - 
 
152 
				Response.write "<a href='_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"' class='body_txt' title='Unlock the package.'><b>Status:</b><img src='images/i_edit.gif' width='12' height='12' border='0' ></a>&nbsp;Released<br>"
 - 
 
153 
			Else
 - 
 
154 
				' Lock Package
 - 
 
155 
				Response.write "<a href='_s_lock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"' class='body_txt' title='Lock the package. 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>"
 - 
 
156 
			End If
 - 
 
157 
		Else
 - 
 
158 
			Call RenderPackageState ()
 148 
   Call RenderPackageState ()
159 
		End If
 - 
 
160 
	Else
 - 
 
161 
		If  objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch"))  Then
 - 
 
162 
			If (pkgInfoHash.Item ("dlocked") = "Y") OR (pkgInfoHash.Item ("dlocked") = "A")Then
 - 
 
163 
				' Unlock package.
 - 
 
164 
				Response.write "<a href='_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"' class='body_txt' title='Unlock the package.'><b>Status:</b><img src='images/i_edit.gif' width='12' height='12' border='0' ></a>&nbsp;Released<br>"
 - 
 
165 
			Else
 - 
 
166 
				' Lock Package
 - 
 
167 
				Response.write "<a href='_s_lock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"' class='body_txt' title='Lock the package. 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>"
 - 
 
168 
			End If
 - 
 
169 
		Else
 - 
 
170 
			Call RenderPackageState ()
 - 
 
171 
		End If
 - 
 
172 
	End If
 - 
 
173 
 
 149 
 
174 
	' Base View:
 150 
	' Base View:
175 
	Response.write "<b>Base View:&nbsp;</b>"& Get_Pkg_Base_View ( parPv_id, parRtag_id ) &"<br>"
 151 
	Response.write "<b>Base View:&nbsp;</b>"& Get_Pkg_Base_View ( parPv_id, parRtag_id ) &"<br>"
176 
 
 152 
 
177 
	' Previous Version:
 153 
	' Previous Version: