Rev 119 | Blame | Compare with Previous | Last modification | View Log | RSS feed
<%@LANGUAGE="VBSCRIPT"%><%'====================================================='| |'| EXPORT ClearCase |'| DEPENDENCIES |'| |'=====================================================%><%Option explicit' Good idea to set when using redirectResponse.Expires = 0 ' always load the page, dont store%><!--#include file="common/conf.asp"--><!--#include file="common/globals.asp"--><!--#include file="common/formating.asp"--><!--#include file="common/qstr.asp"--><!--#include file="common/common_subs.asp"--><!--#include file="_tabs.asp"--><%' Make sure rtag_id is always presentIf Request("pv_id") = "" ThenResponse.Redirect("index.asp")End If%><%'------------ ACCESS CONTROL ------------------%><!--#include file="_access_control_general.asp"--><%'------------ Variable Definition -------------Dim parPv_idDim blankLabel'------------ Constants Declaration -----------'------------ Variable Init -------------------Set pkgInfoHash = CreateObject("Scripting.Dictionary")parPv_id = QStrPar("pv_id")'----------------------------------------------%><%Function Dependency_List ( NNpv_id, BBblankLabel )Dim rsTemp, Query_String, tempSTRtempSTR = ""BBblankLabel = FALSEQuery_String = _" SELECT pkg.pkg_name, pv.pkg_version, pv.pkg_label, usr.full_name, usr.user_email"&_" FROM packages pkg,"&_" package_versions pv,"&_" package_dependencies dep,"&_" users usr"&_" WHERE pv.pkg_id = pkg.pkg_id"&_" AND dep.dpv_id = pv.pv_id"&_" AND dep.pv_id = "& NNpv_id &_" AND pv.owner_id = usr.user_id"&_" ORDER BY pv.modified_stamp DESC"Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))If (IsNull(rsTemp("pkg_label")) OR (rsTemp("pkg_label") = "")) ThentempSTR = tempSTR & "#### MISSING LABEL - "& rsTemp("pkg_name") &" "& rsTemp("pkg_version") &" - OWNER: "& rsTemp("full_name") &" "& rsTemp("user_email") &" ####" & VBNewLine'tempSTR = tempSTR & To_ClearCase( rsTemp("pkg_label") ) & VBNewLineBBblankLabel = TRUEElsetempSTR = tempSTR & To_ClearCase( rsTemp("pkg_label") ) & VBNewLineEnd IfrsTemp.MoveNextWEndDependency_List = tempSTRrsTemp.CloseSet rsTemp = nothingEnd Function%><%Call Get_Pkg_Info ( parPv_id, NULL )Response.Cookies("RELEASEMANAGER_MEMORY")("devl_environment") = "clearcase"%><html><head><title>Release Manager</title><meta HTTP-EQUIV="Pragma" CONTENT="no-cache"><meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"><link rel="stylesheet" href="images/release_manager_style.css" type="text/css"><link rel="stylesheet" href="images/navigation.css" type="text/css"><script language="JavaScript" src="images/common.js"></script><!-- TIPS --><script language="JavaScript" src="images/tipster.js"></script><script language="JavaScript" src="images/_help_tips.js"></script><!-- DROPDOWN MENUS --><!--#include file="_menu_def.asp"--><script language="JavaScript1.2" src="images/popup_menu.js"></script></head><body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" ><!-- MENU LAYERS --------------------------------------><div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)"></div><!-- TIPS LAYERS --------------------------------------><div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10"> </div><!-----------------------------------------------------><!-- HEADER --><!--#include file="_header.asp"--><!-- BODY ----><table width="100%" height="80%" border="0" cellpadding="0" cellspacing="0"><tr><td align="center" valign="top" background="images/bg_lght_gray.gif"><!-- MIDDLE --><table width="650" border="0" cellspacing="0" cellpadding="0"><tr><td><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td width="1%"> </td><td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td><td width="1%"> </td></tr><tr><td width="1%"> </td><td><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td nowrap class="form_ttl">EXPORT dependencies</td><td align="right" valign="bottom"><%Call Generate_Tab_Menu ( TABarray3, "ClearCase style", "blue" )%></td></tr></table></td><td width="1%"> </td></tr><tr><td align="left" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td><td background="images/lbox_bg_blue.gif"><!-- Heading --><table width="100%" border="0" cellspacing="0" cellpadding="0"><tr><td nowrap class="lbox_ttl_w"><%=pkgInfoHash.Item ("pkg_name")%> <%=pkgInfoHash.Item ("pkg_version")%></td><td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="46"></td><td align="right"><!-- ACTION BUTTONS -------------------------------------------><!-------------------------------------------------------------></td></tr></table><!-- END Heading --></td><td align="right" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td></tr><tr><td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td><td bgcolor="#FFFFFF" valign="top"><!-- Body --><table width="100%" border="0" cellspacing="1" cellpadding="2"><form name="close" method="post" action="dependencies.asp?done=done&hidenv=<%=QSTR_All%>"><tr><td nowrap width="100%"> </td></tr><tr><td nowrap width="100%"><span class="form_txt">Copy this dependency export list into your build file to build this package.</span><br><br><textarea name="FRdeps" rows="25" cols="100" wrap="OFF" class="form_item" onFocus="this.select()"><%=Dependency_List( parPv_id, blankLabel )%></textarea><br><%If blankLabel Then Call DisplayInfo ( "BLANK_LABEL_WARNING", "300" )%><br><input type="submit" name="btn" value=" Close " class="form_btn"><br><br></td></tr></form></table><!-- END Body--></td><td width="1%" background="images/lbox_bgside_white.gif"> </td></tr><tr><td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td><td background="images/lbox_bg_blue.gif"></td><td width="1%" background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td></tr></table></td></tr></table></td></tr><tr><td valign="bottom" background="images/bg_lght_gray.gif"><!-- FOOTER --><!--#include file="_footer.asp"--></td></tr></table></body></html><%Call Destroy_All_Objects%>