Subversion Repositories DevTools

Rev

Rev 6682 | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'=====================================================
3 
'					UPDATE JATS
4 
' 				    dependencies
5 
'=====================================================
6 
%>
7 
<!--#include file="_tabs.asp"-->
8 
<%
9 
'------------ Variable Definition -------------
10 
Dim parPv_id
11 
'------------ Constants Declaration -----------
12 
'------------ Variable Init -------------------
13 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
14 
parPv_id = QStrPar("pv_id")
15 
'----------------------------------------------
16 
%>
17 
<%
18 
Function Current_Dependencies ( SSpv_id )
19 
	Dim rsTemp, Query_String
20 
 
21 
	Query_String = _
22 
	" SELECT pkg.pkg_name, pv.pkg_version, dep.build_type, UPPER(pkg.pkg_name) AS name_order"&_
23 
    " FROM package_dependencies dep, PACKAGES pkg, package_versions pv"&_
24 
   	" WHERE pkg.pkg_id = pv.pkg_id"&_
25 
    "   AND pv.pv_id = dep.dpv_id"&_
26 
    "   AND dep.pv_id = "& SSpv_id &_
27 
	"   AND dep.dpv_id <> 0"&_
28 
	" ORDER BY name_order ASC"
29 
 
30 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
31 
 
32 
	While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
33 
		Current_Dependencies = Current_Dependencies & To_JATS( rsTemp.Fields("build_type"), rsTemp.Fields("pkg_name"), rsTemp.Fields("pkg_version") ) & VBNewLine
34 
		rsTemp.MoveNext
35 
	WEnd
36 
 
37 
	rsTemp.Close
38 
	Set rsTemp = nothing
39 
End Function
40 
%>
41 
<%
42 
Call Get_Pkg_Info ( parPv_id, NULL )
43 
%>
44 
<script language="JavaScript" type="text/javascript">
45 
// Verify if submition is in ANT format
46 
<!--
47 
function IsInJATSformat() {
48 
	var val, tempSTR, tempARR, linesARR, rExp, i, maxlimit;
49 
	val = updatedeps.FRdeps.value;
50 
	document.JATSformat_returnValue = true;
51 
	// remove spaces, tabs, return chars, etc.
52 
	rExp = /\s+/gi;
53 
	val = val.replace(rExp, "");
54 
	rExp = /"/gi;
55 
	val = val.replace(rExp, "'");
56 
 
57 
	if (val) {
58 
		// Dependencies submited, hence check format
59 
		linesARR = val.split(";");
60 
		maxlimit = linesARR.length - 1;	//last element is empty
61 
		for(i=0; i<maxlimit; i++) {
62 
			tempARR = linesARR[i].split("'");
63 
			if (tempARR.length!=5) {
5207 dpurdie 64 
				vixAlert('Following line does not look like JATS format.<pre>'+ linesARR[i] +';'+
65 
				'</pre>Make sure package name and version are within quotes(\' or \") and each line is terminted with a semicolon(;).');
119 ghuddy 66 
				document.JATSformat_returnValue = false;
5207 dpurdie 67 
                break;
119 ghuddy 68 
			}
69 
		}
70 
	}
71 
}
72 
//-->
73 
</script>
74 
<table width="650" border="0" cellspacing="0" cellpadding="0">
75 
  <tr>
76 
    <td>
77 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
78 
        <tr>
79 
          <td width="1%">&nbsp;</td>
80 
          <td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td>
81 
          <td width="1%">&nbsp;</td>
82 
        </tr>
83 
        <tr>
84 
          <td width="1%">&nbsp;</td>
85 
          <td>
86 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
87 
              <tr>
88 
                <td nowrap class="form_ttl">IMPORT dependencies</td>
89 
                <td align="right" valign="bottom">
90 
                  <%Call Generate_Tab_Menu ( TABarray2, "JATS style", "blue" )%>
91 
                </td>
92 
              </tr>
93 
            </table>
94 
          </td>
95 
          <td width="1%">&nbsp;</td>
96 
        </tr>
97 
        <tr>
98 
          <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>
99 
          <td background="images/lbox_bg_blue.gif">
100 
		    <!-- Heading -->
101 
		  	<table width="100%" border="0" cellspacing="0" cellpadding="0">
102 
              <tr>
103 
                <td nowrap class="lbox_ttl_w"><%=pkgInfoHash.Item ("pkg_name")%>&nbsp;<%=pkgInfoHash.Item ("pkg_version")%></td>
104 
				<td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="46"></td>
105 
                <td align="right">
106 
				<!-- ACTION BUTTONS ------------------------------------------->
107 
				<!------------------------------------------------------------->
108 
                </td>
109 
              </tr>
110 
            </table>
111 
            <!-- END Heading -->
112 
          </td>
113 
          <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>
114 
        </tr>
115 
        <tr>
116 
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
7288 dpurdie 117 
          <td bgcolor="#FFFFFF" valign="top" style='position:relative'>
119 ghuddy 118 
            <!-- Body -->
7288 dpurdie 119 
			<div id='ProgressBar' class='vixSpinner' style='visibility:hidden;'></div>
119 ghuddy 120 
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
5895 dpurdie 121 
			<form name="updatedeps" method="post" action="form_edit_deps.asp" onSubmit="IsInJATSformat();return document.JATSformat_returnValue;">
119 ghuddy 122 
              <tr>
123 
                <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
124 
                <td width="1%" nowrap class="form_group" valign="bottom">DEPENDENCIES<a href="#" onMouseOver="formTips.show('dependencies')" onMouseOut="formTips.hide()"><img src="images/i_help.gif" width="12" height="12" hspace="2" align="absmiddle" border="0" ></a></td>
125 
                <td nowrap width="100%">&nbsp; </td>
126 
              </tr>
127 
              <tr>
128 
                <td width="1%">&nbsp;</td>
129 
                <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
130 
                <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
6682 dpurdie 131 
                  <textarea name="FRdeps" rows="20" cols="80" wrap="OFF" style="width:100%;height:100%" class="form_item"><%=Current_Dependencies( parPv_id )%></textarea>
119 ghuddy 132 
                  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
133 
				  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
5896 dpurdie 134 
                  <input type="hidden" name="action" value="TextImport">
119 ghuddy 135 
                  <br>
136 
				  <span class="form_txt">
137 
                  <b>EXAMPLE:</b><br>
138 
                  BuildPkgArchive ( 'cs', '1.0.0.cr' );<br>
139 
                  BuildPkgArchive ( "rtswis", "2.0.0.cr" );
140 
				  </span>
141 
				  </td>
142 
              </tr>
143 
              <tr>
144 
                <td width="1%">&nbsp;</td>
7288 dpurdie 145 
                <td width="1%">&nbsp;</td>
119 ghuddy 146 
                <td nowrap width="100%">
147 
                  <input type="submit" name="btn" value="Import" class="form_btn">
6682 dpurdie 148 
                  <input name="btn" type="reset" class="form_btn" value="Cancel" onClick="window.location='dependencies.asp?pv_id=<%=Request("pv_id")%>&rtag_id=<%=Request("rtag_id")%>';">
149 
                  <br><br>
119 ghuddy 150 
                </td>
151 
              </tr>
152 
			</form>
153 
            </table>
154 
            <!-- END Body-->
155 
          </td>
156 
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
157 
        </tr>
158 
        <tr>
159 
          <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
160 
          <td background="images/lbox_bg_blue.gif"></td>
161 
          <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>
162 
        </tr>
163 
      </table>
164 
    </td>
165 
  </tr>
166 
</table>