Subversion Repositories DevTools

Rev

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

Rev 123 Rev 125
Line 159... Line 159...
159
         {
159
         {
160
            // Initiate the bulk release by redirecting the browser to the make_bulk_release.asp page
160
            // Initiate the bulk release by redirecting the browser to the make_bulk_release.asp page
161
            // which holds the server side VBScript code that actually carries out the release operations.
161
            // which holds the server side VBScript code that actually carries out the release operations.
162
            // Once complete, that code will redirect the browser back to the dependencies.asp page of which
162
            // Once complete, that code will redirect the browser back to the dependencies.asp page of which
163
            // this _environment.asp file is a part (by direct inclusion)
163
            // this _environment.asp file is a part (by direct inclusion)
164
            <%If parPv_id Then%>
164
            <%If Request("pv_id") Then%>
165
               f.action = "make_bulk_release.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>";
165
               f.action = "make_bulk_release.asp?pv_id=<%=Request("pv_id")%>&rtag_id=<%=parRtag_id%>";
166
            <%Else%>
166
            <%Else%>
167
               f.action = "make_bulk_release.asp?rtag_id=<%=parRtag_id%>";
167
               f.action = "make_bulk_release.asp?rtag_id=<%=parRtag_id%>";
168
            <%End If%>
168
            <%End If%>
169
            f.submit();
169
            f.submit();
170
            // TODO : I would like to show progress? Is that even possible? If so, how?
170
            // TODO : I would like to show progress? Is that even possible? If so, how?
Line 654... Line 654...
654
   Else
654
   Else
655
      GetShowViewList = Request.Cookies(COOKIE_RELMGR_SHOW_VIEW)
655
      GetShowViewList = Request.Cookies(COOKIE_RELMGR_SHOW_VIEW)
656
   End If
656
   End If
657
 
657
 
658
End Function
658
End Function
-
 
659
 
-
 
660
 
-
 
661
 
-
 
662
'------------------------------------------------------------------------------------------------------------------------------------------------
-
 
663
' This function forms a URL to use for refreshing the current dependencies.asp based page using the settings that are in effect at the time.
-
 
664
' Most importantly, it filters out the pv_id parameter if it is null (which otherwise would cause the page to be rendered incorreclty for an
-
 
665
' as yet, unknown reason).
-
 
666
'
-
 
667
Function RefreshedURL(NNdview, NNpview, NNpv_id, NNrtag_id)
-
 
668
   Dim url
-
 
669
 
-
 
670
   url = scriptName & "?Dview=" & NNdview & "&Pview=" & NNpview
-
 
671
 
-
 
672
   If NNpv_id Then
-
 
673
      url = url & "&pv_id=" & NNpv_id
-
 
674
   End If
-
 
675
 
-
 
676
   url = url & "&rtag_id=" & NNrtag_id
-
 
677
 
-
 
678
   RefreshedURL = url
-
 
679
End Function
-
 
680
 
-
 
681
 
659
'------------------------------------------------------------------------------------------------------------------------------------------------
682
'------------------------------------------------------------------------------------------------------------------------------------------------
660
%>
683
%>
661
<%
684
<%
662
 
685
 
663
'------------------------- MAIN LINE ---------------------------
686
'------------------------- MAIN LINE ---------------------------
Line 695... Line 718...
695
                  End If
718
                  End If
696
 
719
 
697
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
720
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
698
                  If objAccessControl.UserLogedIn Then
721
                  If objAccessControl.UserLogedIn Then
699
                     If QStrPar("Pview") = "disable" Then
722
                     If QStrPar("Pview") = "disable" Then
700
                        Response.write "<td width='1'><a href='"& scriptName &"?Pview=&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Personal view disabled. Click to enable.'><img src='images/abtn_base_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
723
                        Response.write "<td width='1'><a href='"& RefreshedURL(QStrPar("Dview"), "", Request("pv_id"), Request("rtag_id")) &"' title='Personal view disabled. Click to enable.'><img src='images/abtn_base_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
701
                     Else
724
                     Else
702
                        Response.write "<td width='1'><a href='"& scriptName &"?Pview=disable&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Personal view enabled. Click for full view.'><img src='images/abtn_personal_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
725
                        Response.write "<td width='1'><a href='"& RefreshedURL(QStrPar("Dview"), "disable", Request("pv_id"), Request("rtag_id")) &"' title='Personal view enabled. Click for full view.'><img src='images/abtn_personal_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
703
                     End If
726
                     End If
704
                  Else
727
                  Else
705
                     Response.write "<td width='1'><img src='images/abtn_personal_view_off.gif' width='26' height='26' hspace='1' border='0'></td>"
728
                     Response.write "<td width='1'><img src='images/abtn_personal_view_off.gif' width='26' height='26' hspace='1' border='0'></td>"
706
                  End If
729
                  End If
707
 
730
 
708
                  If QStrPar("Dview") = "enable" Then
731
                  If QStrPar("Dview") = "enable" Then
709
                     Response.write "<td width='1'><a href='"& scriptName &"?Dview=&Pview="& QStrPar("Pview") &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Click to switch to Release View'><img src='icons/ReleaseView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
732
                     Response.write "<td width='1'><a href='"& RefreshedURL("", QStrPar("Pview"), Request("pv_id"), Request("rtag_id")) &"' title='Click to switch to Release View'><img src='icons/ReleaseView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
710
                  Else
733
                  Else
711
                     Response.write "<td width='1'><a href='"& scriptName &"?Dview=enable&Pview="& QStrPar("Pview") &"&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") &"' title='Click to switch to Deployment View'><img src='icons/DeploymentView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
734
                     Response.write "<td width='1'><a href='"& RefreshedURL("enable", QStrPar("Pview"), Request("pv_id"), Request("rtag_id")) &"' title='Click to switch to Deployment View'><img src='icons/DeploymentView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
712
                  End If
735
                  End If
713
 
736
 
714
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
737
                  Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
715
 
738
 
716
                  Response.write "<td width='1'><a href='javascript:;' title='Reference other releases...' onClick='ToggleDisplay(""DIV_RELEASE_REFERENCES"",""SPAN_RELEASE_REFERENCES"",""SPAN_RELEASE_REFERENCES_ON""); ' ><SPAN name='SPAN_RELEASE_REFERENCES' id='SPAN_RELEASE_REFERENCES' style='display:block;'><img src='images/abtn_link_release.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_RELEASE_REFERENCES_ON' id='SPAN_RELEASE_REFERENCES_ON' style='display:none;'><img src='images/abtn_link_release_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></a></td>"
739
                  Response.write "<td width='1'><a href='javascript:;' title='Reference other releases...' onClick='ToggleDisplay(""DIV_RELEASE_REFERENCES"",""SPAN_RELEASE_REFERENCES"",""SPAN_RELEASE_REFERENCES_ON""); ' ><SPAN name='SPAN_RELEASE_REFERENCES' id='SPAN_RELEASE_REFERENCES' style='display:block;'><img src='images/abtn_link_release.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_RELEASE_REFERENCES_ON' id='SPAN_RELEASE_REFERENCES_ON' style='display:none;'><img src='images/abtn_link_release_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></a></td>"
Line 940... Line 963...
940
   </DIV>
963
   </DIV>
941
<!-- END OF RELEASE REFERENCES  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
964
<!-- END OF RELEASE REFERENCES  ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
942
 
965
 
943
<!-- PACKAGE LIST ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
966
<!-- PACKAGE LIST ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
944
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
967
   <table width="100%" border="0" cellspacing="0" cellpadding="0">
945
      <form id="pending_PVID_List" name="pending_PVID_List" method="post" action="make_bulk_release.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>", onSubmit="makeBulkRelease();">
968
      <form id="pending_PVID_List" name="pending_PVID_List" method="post" action="make_bulk_release.asp?pv_id=<%=Request("pv_id")%>&rtag_id=<%=parRtag_id%>", onSubmit="makeBulkRelease();">
946
         <tr>
969
         <tr>
947
            <td width="1" bgcolor="#999999"><img src="images/spacer.gif" width="10" height="25"></td>
970
            <td width="1" bgcolor="#999999"><img src="images/spacer.gif" width="10" height="25"></td>
948
            <td width="100%" bgcolor="#999999" valign="bottom">
971
            <td width="100%" bgcolor="#999999" valign="bottom">
949
               <!-- TAB CONTROLS ++++++++++++++++++++++ -->
972
               <!-- TAB CONTROLS ++++++++++++++++++++++ -->
950
               <%
973
               <%