Subversion Repositories DevTools

Rev

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

Rev 157 Rev 183
Line 15... Line 15...
15
<!--#include file="common/globals.asp"-->
15
<!--#include file="common/globals.asp"-->
16
<!--#include file="common/formating.asp"-->
16
<!--#include file="common/formating.asp"-->
17
<!--#include file="common/qstr.asp"-->
17
<!--#include file="common/qstr.asp"-->
18
<!--#include file="common/common_subs.asp"-->
18
<!--#include file="common/common_subs.asp"-->
19
<!--#include file="common/_rtree_common.asp"-->
19
<!--#include file="common/_rtree_common.asp"-->
-
 
20
<!--#include file="common/daemon_status.asp"-->
20
<%
21
<%
21
' Make sure rtag_id is always present
22
' Make sure rtag_id is always present
22
If Request("proj_id") = "" Then
23
If Request("proj_id") = "" Then
23
   Response.Redirect("index.asp")
24
   Response.Redirect("index.asp")
24
End If
25
End If
Line 35... Line 36...
35
Dim parShowFilter
36
Dim parShowFilter
36
Dim nProjTreeVersion
37
Dim nProjTreeVersion
37
Dim objBtnControl
38
Dim objBtnControl
38
Dim currLevel, lastLevel, lastRow, aVersions, i
39
Dim currLevel, lastLevel, lastRow, aVersions, i
39
Dim dListFilter
40
Dim dListFilter
40
 
41
Dim objDmSts
41
'------------ Constants Declaration -----------
42
'------------ Constants Declaration -----------
42
'Const LIMG_TREE_I_HALF = "<img src='images/spacer.gif' width='5' height='1'><img src='icons/tree_i_half.gif' align='absmiddle'>"
43
'Const LIMG_TREE_I_HALF = "<img src='images/spacer.gif' width='5' height='1'><img src='icons/tree_i_half.gif' align='absmiddle'>"
43
'Const LIMG_TREE_I_FULL = "<img src='images/spacer.gif' width='5' height='1'><img src='icons/tree_i.gif' align='absmiddle'>"
44
'Const LIMG_TREE_I_FULL = "<img src='images/spacer.gif' width='5' height='1'><img src='icons/tree_i.gif' align='absmiddle'>"
44
'Const LIMG_TREE_T = "<img src='images/spacer.gif' width='5' height='1'><img src='icons/tree_t.gif' align='absmiddle'>"
45
'Const LIMG_TREE_T = "<img src='images/spacer.gif' width='5' height='1'><img src='icons/tree_t.gif' align='absmiddle'>"
45
Const LIMG_TREE_I_HALF = "<img src='images/spacer.gif' width='20' height='1'>"
46
Const LIMG_TREE_I_HALF = "<img src='images/spacer.gif' width='20' height='1'>"
Line 73... Line 74...
73
Set dListFilter = CreateObject("Scripting.Dictionary")
74
Set dListFilter = CreateObject("Scripting.Dictionary")
74
 
75
 
75
nProjTreeVersion = GetProjTreeVersion( parProjId )
76
nProjTreeVersion = GetProjTreeVersion( parProjId )
76
Set objBtnControl = New ActionButtonControl
77
Set objBtnControl = New ActionButtonControl
77
objPMod.PersistInQryString("proj_id")
78
objPMod.PersistInQryString("proj_id")
-
 
79
 
78
'----------------------------------------------
80
'----------------------------------------------
79
%>
81
%>
80
<%
82
<%
81
'--------------------------------------------------------------------------------------------------------------------------
83
'--------------------------------------------------------------------------------------------------------------------------
82
' Determines icon that precedes the drop down arrow in the filter box
84
' Determines icon that precedes the drop down arrow in the filter box
Line 335... Line 337...
335
Sub SetViewType ()
337
Sub SetViewType ()
336
   If Request("viewtype") = "" Then Exit Sub    ' Nothing to do
338
   If Request("viewtype") = "" Then Exit Sub    ' Nothing to do
337
 
339
 
338
   Response.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("RELEASE_VIEW") = Request("viewtype")
340
   Response.Cookies (COOKIE_RELEASE_MANAGER_MEMORY)("RELEASE_VIEW") = Request("viewtype")
339
End Sub
341
End Sub
-
 
342
 
340
'----------------------------------------------------------------------------------------------------------------------------------------------
343
'----------------------------------------------------------------------------------------------------------------------------------------------
341
%>
344
%>
342
<%
345
<%
343
'------------ RUN BEFORE PAGE RENDER ----------
346
'------------ RUN BEFORE PAGE RENDER ----------
344
If (Request("action") <> "") Then
347
If (Request("action") <> "") Then
Line 510... Line 513...
510
                     <!-- TREE VIEW ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
513
                     <!-- TREE VIEW ++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
511
                     <%If ViewType = LCONST_TREE_VIEW Then%>
514
                     <%If ViewType = LCONST_TREE_VIEW Then%>
512
 
515
 
513
                        <table width="100%"  border="0" cellspacing="1" cellpadding="1">
516
                        <table width="100%"  border="0" cellspacing="1" cellpadding="1">
514
                           <tr>
517
                           <tr>
515
                              <td width="40%" bgcolor="#E4E9EC" class="body_txt">Release Name </td>
518
                              <td width="30%" bgcolor="#E4E9EC" class="body_txt">Release Name </td>
516
 
519
 
517
                              <%If parProjId <> 2 Then %>
520
                              <%If parProjId <> 2 Then %>
518
                                 <td width="15%" bgcolor="#E4E9EC" class="body_txt">Associated MASS_REF </td>
521
                                 <td width="20%" bgcolor="#E4E9EC" class="body_txt">Created</td>
519
                                 <td width="45%" bgcolor="#E4E9EC" class="body_txt">Comments</td>
522
                                 <td width="47%" bgcolor="#E4E9EC" class="body_txt">Comments</td>
-
 
523
                                 <td width="3%" bgcolor="#E4E9EC" class="body_txt">Daemon Status</td>
520
                              <%Else%>
524
                              <%Else%>
-
 
525
                                 <td width="20%" bgcolor="#E4E9EC" class="body_txt">Created</td>
521
                                 <td width="30%" bgcolor="#E4E9EC" class="body_txt">Used By </td>
526
                                 <td width="25%" bgcolor="#E4E9EC" class="body_txt">Used By </td>
522
                                 <td width="30%" bgcolor="#E4E9EC" class="body_txt">Comments</td>
527
                                 <td width="22%" bgcolor="#E4E9EC" class="body_txt">Comments</td>
-
 
528
                                 <td width="3%" bgcolor="#E4E9EC" class="body_txt"">Daemon Status</td>
523
                              <%End If%>
529
                              <%End If%>
524
                           </tr>
530
                           </tr>
525
                           <%
531
                           <%
526
                           'OraDatabase.Parameters.Add "TREE_VERSION",  nProjTreeVersion,    ORAPARM_INPUT, ORATYPE_NUMBER
532
                           'OraDatabase.Parameters.Add "TREE_VERSION",  nProjTreeVersion,    ORAPARM_INPUT, ORATYPE_NUMBER
527
                           OraDatabase.Parameters.Add "PROJ_ID",  parProjId,  ORAPARM_INPUT, ORATYPE_NUMBER
533
                           OraDatabase.Parameters.Add "PROJ_ID",  parProjId,  ORAPARM_INPUT, ORATYPE_NUMBER
Line 534... Line 540...
534
 
540
 
535
                           Dim lastRtagId, parentRtag_id
541
                           Dim lastRtagId, parentRtag_id
536
 
542
 
537
                           If rsQry.RecordCount > 0 Then
543
                           If rsQry.RecordCount > 0 Then
538
 
544
 
-
 
545
                              Set objDmSts = New DaemonStatus
-
 
546
                              Call objDmSts.GetDaemonStatus(parProjId)
-
 
547
 
539
                              'aVersions = rsQry.GetRows()
548
                              'aVersions = rsQry.GetRows()
540
                              'lastRow = UBound( aVersions, 2 )
549
                              'lastRow = UBound( aVersions, 2 )
541
 
550
 
542
                              'Set objSortHelper = New SortHelper
551
                              'Set objSortHelper = New SortHelper
543
 
552
 
Line 557... Line 566...
557
                                       <input type="checkbox" name="rtag_id_list" value="<%=rsQry("rtag_id")%>" style="vertical-align:middle;">
566
                                       <input type="checkbox" name="rtag_id_list" value="<%=rsQry("rtag_id")%>" style="vertical-align:middle;">
558
                                       <%If rsQry("official") <> "A" Then%>
567
                                       <%If rsQry("official") <> "A" Then%>
559
                                          <a href="dependencies.asp?rtag_id=<%=rsQry("rtag_id")%>" class="body_link" title="<%=HTMLEncode( rsQry("description") ) %>" >
568
                                          <a href="dependencies.asp?rtag_id=<%=rsQry("rtag_id")%>" class="body_link" title="<%=HTMLEncode( rsQry("description") ) %>" >
560
                                       <%End If%>
569
                                       <%End If%>
561
                                       <%=ReleaseIcon( rsQry("official") )%>&nbsp;<%=rsQry("rtag_name")%></a>
570
                                       <%=ReleaseIcon( rsQry("official") )%>&nbsp;<%=rsQry("rtag_name")%></a>
562
 
-
 
-
 
571
                                       <td bgcolor="#F5F5F5" class="body_rowg"><%=rsQry("created_stamp") & " by " & rsQry("creator")%></td>
563
                                       <%
572
                                       <%
564
                                       If parProjId <> 2 Then
573
                                       If parProjId <> 2 Then
565
                                          Dim assocMASSREF, rsQryAssoc, assocMASSREFName, link
574
                                          Dim assocMASSREF, rsQryAssoc, assocMASSREFName, link
566
                                          assocMASSREF =  rsQry("assoc_mass_ref")
575
                                          assocMASSREF =  rsQry("assoc_mass_ref")
567
                                          If assocMASSREF <> "" Then
576
                                          If assocMASSREF <> "" Then
Line 571... Line 580...
571
                                             rsQryAssoc.Close
580
                                             rsQryAssoc.Close
572
                                             Set rsQryAssoc = Nothing
581
                                             Set rsQryAssoc = Nothing
573
                                          Else
582
                                          Else
574
                                             assocMASSREFName = "None."
583
                                             assocMASSREFName = "None."
575
                                          End If
584
                                          End If
576
                                       End If%>
-
 
577
 
-
 
578
                                       <%If parProjId <> 2 Then%>
-
 
579
                                          <%If assocMASSREFName <> "None." Then%>
-
 
580
                                          <td bgcolor="#F5F5F5" class="body_rowg"><a href=<%=link%>><%=assocMASSREFName%></a></td>
-
 
581
                                          <%Else%>
-
 
582
                                          <td bgcolor="#F5F5F5" class="body_rowg"><%=assocMASSREFName%></td>
-
 
583
                                          <%End If%>
-
 
584
                                       <%Else
585
                                       Else
585
                                          Dim UsedBy, rsQryUse, comment, linkB
586
                                          Dim UsedBy, rsQryUse, comment, linkB
586
                                          UsedBy =  rsQry("rtag_id")
587
                                          UsedBy =  rsQry("rtag_id")
587
                                          If UsedBy <> "" Then
588
                                          If UsedBy <> "" Then
588
                                             Set rsQryUse = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_TAGS RT, PROJECTS P WHERE RT.ASSOC_MASS_REF="&rsQry("rtag_id")&" AND RT.PROJ_ID=P.PROJ_ID", ORADYN_DEFAULT)
589
                                             Set rsQryUse = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_TAGS RT, PROJECTS P WHERE RT.ASSOC_MASS_REF="&rsQry("rtag_id")&" AND RT.PROJ_ID=P.PROJ_ID", ORADYN_DEFAULT)
589
 
590
 
Line 605... Line 606...
605
                                          <%Else%>
606
                                          <%Else%>
606
                                             <td bgcolor="#F5F5F5" class="body_rowg">None.</td>
607
                                             <td bgcolor="#F5F5F5" class="body_rowg">None.</td>
607
                                          <%End If%>
608
                                          <%End If%>
608
                                       <%End If%>
609
                                       <%End If%>
609
                                       <td bgcolor="#F5F5F5" class="body_rowg"><%=NewLine_To_BR(rsQry("description"))%></td>
610
                                       <td bgcolor="#F5F5F5" class="body_rowg"><%=NewLine_To_BR(rsQry("description"))%></td>
-
 
611
                                       <td  bgcolor="#F5F5F5" class="body_rowg" valign=top>
-
 
612
                                       <%
-
 
613
                                         ' Get daemon summary bar chart for current release
-
 
614
                                         Call objDmSts.RenderDaemonStatus(rsQry("rtag_id"),16)
-
 
615
                                       %>
-
 
616
                                       </td>
610
 
-
 
611
                                 </tr>
617
                                 </tr>
612
                                 <%
618
                                 <%
613
                                 lastLevel = currLevel
619
                                 lastLevel = currLevel
614
                                 rsQry.MoveNext
620
                                 rsQry.MoveNext
615
                                 comment = ""
621
                                 comment = ""
616
                              WEnd
622
                              WEnd
617
                              'Next
623
                              'Next
-
 
624
                              Set objDmSts = Nothing
618
                           End If
625
                           End If
619
                           rsQry.Close
626
                           rsQry.Close
620
                           Set rsQry = Nothing
627
                           Set rsQry = Nothing
621
                           %>
628
                           %>
622
                        </table>
629
                        </table>
Line 685... Line 692...
685
                           <tr>
692
                           <tr>
686
                              <td width="1" bgcolor="#E4E9EC">&nbsp;</td>
693
                              <td width="1" bgcolor="#E4E9EC">&nbsp;</td>
687
                              <td width="30%" bgcolor="#E4E9EC" class="body_txt">Release Name </td>
694
                              <td width="30%" bgcolor="#E4E9EC" class="body_txt">Release Name </td>
688
 
695
 
689
                              <%If parProjId <> 2 Then %>
696
                              <%If parProjId <> 2 Then %>
690
                                 <td width="1" bgcolor="#E4E9EC">&nbsp;</td>
697
                                 <td width="20%" bgcolor="#E4E9EC" class="body_txt">Created</td>
691
                                 <td width="15%" bgcolor="#E4E9EC" class="body_txt">Associated MASS_REF </td>
698
                                 <td width="47%" bgcolor="#E4E9EC" class="body_txt">Comments</td>
692
                                 <td width="55%" bgcolor="#E4E9EC" class="body_txt">Comments</td>
699
                                 <td width="3%" bgcolor="#E4E9EC" class="body_txt">Daemon Status</td>
693
                              <%Else%>
700
                              <%Else%>
-
 
701
                                 <td width="20%" bgcolor="#E4E9EC" class="body_txt">Created</td>
694
                                 <td width="1" bgcolor="#E4E9EC">&nbsp;</td>
702
                                 <td width="1" bgcolor="#E4E9EC">&nbsp;</td>
695
                                 <td width="30%" bgcolor="#E4E9EC" class="body_txt">Used By </td>
703
                                 <td width="24%" bgcolor="#E4E9EC" class="body_txt">Used By </td>
696
                                 <td width="40%" bgcolor="#E4E9EC" class="body_txt">Comments</td>
704
                                 <td width="22%" bgcolor="#E4E9EC" class="body_txt">Comments</td>
-
 
705
                                 <td width="3%" bgcolor="#E4E9EC" class="body_txt">Daemon Status</td>
697
                              <%End If%>
706
                              <%End If%>
698
 
707
 
699
                           </tr>
708
                           </tr>
700
                           <%
709
                           <%
701
                           If NOT IsEmpty(parShowFilter) Then
710
                           If NOT IsEmpty(parShowFilter) Then
Line 713... Line 722...
713
                              If rsQry.RecordCount > 0 Then
722
                              If rsQry.RecordCount > 0 Then
714
 
723
 
715
                                 aVersions = rsQry.GetRows()
724
                                 aVersions = rsQry.GetRows()
716
                                 lastRow = UBound( aVersions, 2 )
725
                                 lastRow = UBound( aVersions, 2 )
717
 
726
 
-
 
727
                                 Set objDmSts = New DaemonStatus
-
 
728
                                 Call objDmSts.GetDaemonStatus(parProjId)
-
 
729
 
718
                                 'Set objSortHelper = New SortHelper
730
                                 'Set objSortHelper = New SortHelper
719
 
731
 
720
                                 ' Sort versions
732
                                 ' Sort versions
721
                                 'Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsQry.FieldIndex("version") )
733
                                 'Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsQry.FieldIndex("version") )
722
 
734
 
Line 732... Line 744...
732
                                          <%If aVersions( rsQry.FieldIndex("official"), i ) <> "A" Then%>
744
                                          <%If aVersions( rsQry.FieldIndex("official"), i ) <> "A" Then%>
733
                                             <a href="dependencies.asp?rtag_id=<%=aVersions( rsQry.FieldIndex("rtag_id"), i )%>" class="body_link" title="Open Release...">
745
                                             <a href="dependencies.asp?rtag_id=<%=aVersions( rsQry.FieldIndex("rtag_id"), i )%>" class="body_link" title="Open Release...">
734
                                          <%End If%>
746
                                          <%End If%>
735
                                          <%=ReleaseIcon( aVersions( rsQry.FieldIndex("official"), i ) )%>&nbsp;<%=aVersions( rsQry.FieldIndex("rtag_name"), i )%></a>
747
                                          <%=ReleaseIcon( aVersions( rsQry.FieldIndex("official"), i ) )%>&nbsp;<%=aVersions( rsQry.FieldIndex("rtag_name"), i )%></a>
736
                                       </td>
748
                                       </td>
737
 
-
 
-
 
749
                                       <td bgcolor="#F5F5F5" class="body_rowg"><%=rsQry("created_stamp") & " by " & rsQry("creator")%></td>
738
                                       <%
750
                                       <%
739
                                       If parProjId <> 2 Then
751
                                       If parProjId <> 2 Then
740
                                          assocMASSREF = aVersions( rsQry.FieldIndex("assoc_mass_ref"), i )
752
                                          assocMASSREF = aVersions( rsQry.FieldIndex("assoc_mass_ref"), i )
741
                                          If assocMASSREF <> "" Then
753
                                          If assocMASSREF <> "" Then
742
                                             Set rsQryAssoc = OraDatabase.DbCreateDynaset("SELECT RTAG_NAME, RTAG_ID FROM RELEASE_TAGS WHERE RTAG_ID="&assocMASSREF , ORADYN_DEFAULT)
754
                                             Set rsQryAssoc = OraDatabase.DbCreateDynaset("SELECT RTAG_NAME, RTAG_ID FROM RELEASE_TAGS WHERE RTAG_ID="&assocMASSREF , ORADYN_DEFAULT)
Line 745... Line 757...
745
                                             rsQryAssoc.Close
757
                                             rsQryAssoc.Close
746
                                             Set rsQryAssoc = Nothing
758
                                             Set rsQryAssoc = Nothing
747
                                          Else
759
                                          Else
748
                                             assocMASSREFName = "None."
760
                                             assocMASSREFName = "None."
749
                                          End If
761
                                          End If
750
                                       End If%>
-
 
751
                                       <%If parProjId <> 2 Then%>
-
 
752
                                          <%If assocMASSREFName <> "None." Then%>
-
 
753
                                             <td bgcolor="#F5F5F5" class="body_txt" valign="top">
-
 
754
                                                <input type="checkbox" name="rtag_id_list" value="<%=link%>">
-
 
755
                                             </td>
-
 
756
                                             <td bgcolor="#F5F5F5" class="body_rowg"><a href=dependencies.asp?rtag_id=<%=link%>><%=assocMASSREFName%></a></td>
-
 
757
                                          <%Else%>
-
 
758
                                             <td width="1" bgcolor="#E4E9EC">&nbsp;</td>
-
 
759
                                             <td bgcolor="#F5F5F5" class="body_rowg"><%=assocMASSREFName%></td>
-
 
760
                                          <%End If%>
-
 
761
                                       <%Else
762
                                       Else
762
 
-
 
763
                                          UsedBy = aVersions( rsQry.FieldIndex("rtag_id"), i )
763
                                          UsedBy = aVersions( rsQry.FieldIndex("rtag_id"), i )
764
                                          If UsedBy <> "" Then
764
                                          If UsedBy <> "" Then
765
                                          Set rsQryUse = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_TAGS RT, PROJECTS P WHERE RT.ASSOC_MASS_REF="&aVersions( rsQry.FieldIndex("rtag_id"), i )&" AND RT.PROJ_ID=P.PROJ_ID", ORADYN_DEFAULT)
765
                                          Set rsQryUse = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_TAGS RT, PROJECTS P WHERE RT.ASSOC_MASS_REF="&aVersions( rsQry.FieldIndex("rtag_id"), i )&" AND RT.PROJ_ID=P.PROJ_ID", ORADYN_DEFAULT)
766
 
766
 
767
                                             While ((NOT rsQryUse.BOF) AND (NOT rsQryUse.EOF))
767
                                             While ((NOT rsQryUse.BOF) AND (NOT rsQryUse.EOF))
Line 786... Line 786...
786
                                             <td width="1" bgcolor="#E4E9EC">&nbsp;</td>
786
                                             <td width="1" bgcolor="#E4E9EC">&nbsp;</td>
787
                                             <td bgcolor="#F5F5F5" class="body_rowg">None.</td>
787
                                             <td bgcolor="#F5F5F5" class="body_rowg">None.</td>
788
                                          <%End If%>
788
                                          <%End If%>
789
                                       <%End If%>
789
                                       <%End If%>
790
                                       <td bgcolor="#F5F5F5" class="body_rowg"><%=NewLine_To_BR(  aVersions( rsQry.FieldIndex("description"), i )   )%></td>
790
                                       <td bgcolor="#F5F5F5" class="body_rowg"><%=NewLine_To_BR(  aVersions( rsQry.FieldIndex("description"), i )   )%></td>
-
 
791
                                       <td  bgcolor="#F5F5F5" class="body_rowg" valign=top>
-
 
792
                                       <%
-
 
793
                                         ' Get daemon summary bar chart for current release
-
 
794
                                         Call objDmSts.RenderDaemonStatus(aVersions( rsQry.FieldIndex("rtag_id"), i ),16)
-
 
795
                                       %>
-
 
796
                                       </td>
791
                                    </tr>
797
                                    </tr>
792
                                    <%
798
                                    <%
793
                                    'lastLevel = currLevel
799
                                    'lastLevel = currLevel
794
                                    comment = ""
800
                                    comment = ""
795
                                 Next
801
                                 Next
-
 
802
                                 Set objDmSts = Nothing
796
                              End If
803
                              End If
797
 
804
 
798
                              rsQry.Close
805
                              rsQry.Close
799
                              Set rsQry = Nothing
806
                              Set rsQry = Nothing
800
                           End If
807
                           End If