Subversion Repositories DevTools

Rev

Rev 6508 | Rev 6579 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6508 Rev 6576
Line 33... Line 33...
33
Dim parShowFilter
33
Dim parShowFilter
34
Dim objBtnControl
34
Dim objBtnControl
35
Dim currLevel, lastLevel
35
Dim currLevel, lastLevel
36
Dim dListFilter
36
Dim dListFilter
37
Dim objDmSts
37
Dim objDmSts
38
Dim hoverTitle, createdBy, comment
38
Dim hoverTitle, createdBy, comment, lastMod
39
Dim bCanMove
39
Dim bCanMove
40
Dim bCanDestroy
40
Dim bCanDestroy
41
Dim bCanClone
41
Dim bCanClone
42
Dim bCanUnarchive
42
Dim bCanUnarchive
43
Dim bCanCloseArchive
43
Dim bCanCloseArchive
Line 715... Line 715...
715
                              Set objDmSts = New DaemonStatus
715
                              Set objDmSts = New DaemonStatus
716
                              Call objDmSts.GetDaemonStatus(parProjId)
716
                              Call objDmSts.GetDaemonStatus(parProjId)
717
 
717
 
718
                              While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
718
                              While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
719
                                 currLevel = CInt(rsQry("hierarchy"))
719
                                 currLevel = CInt(rsQry("hierarchy"))
720
                                 hoverTitle = "Last change: "& rsQry("OFFICIAL_STAMP") & " by " & rsQry("modifier")
720
                                 createdBy = rsQry("created_stamp") & " by " & rsQry("creator")
721
                                 createdBy = rsQry("created_stamp") & " by " & rsQry("creator") 
721
                                 lastMod = rsQry("lastModified") 
-
 
722
                                 hoverTitle = "State Last Change : "& rsQry("OFFICIAL_STAMP") & " by " & rsQry("modifier") & ". " & rsQry("OFFICIAL_STAMP_DAYS")& " Days ago" &_
-
 
723
                                         "
Content Last Modified: " & lastMod & ". " & rsQry("LastModified_DAYS")& " Days ago" 
-
 
724
                                  
722
                                 If rsQry("userCanDelete") = 1 Then
725
                                 If rsQry("userCanDelete") = 1 Then
723
                                     createdBy = createdBy & "<br>Creator can delete"
726
                                     createdBy = createdBy & "<br>Creator can delete"
724
                                 End If
727
                                 End If
725
                                 
728
                                 
726
                                 %>
729
                                 %>
727
                                 <tr class="body_rowg2">
730
                                 <tr class="body_rowg2">
728
                                    <td nowrap>
731
                                    <td nowrap>
729
                                       <%Call RenderIndent( lastLevel, currLevel )%>
732
                                       <%Call RenderIndent( lastLevel, currLevel )%>
730
                                       <%Call RenderActions(rsQry("rtag_id"),rsQry("official"),rsQry("userCanDelete"))%>
733
                                       <%Call RenderActions(rsQry("rtag_id"),rsQry("official"),rsQry("userCanDelete"))%>
731
                                       <a href="dependencies.asp?rtag_id=<%=rsQry("rtag_id")%>" class="body_link" title="<%=hoverTitle%>" >
734
                                       <a href="dependencies.asp?rtag_id=<%=rsQry("rtag_id")%>" class="body_link" >
732
                                       <%=ReleaseIcon( rsQry("official") )%>&nbsp;<%=rsQry("rtag_name")%></a>
735
                                       <%=ReleaseIcon( rsQry("official") )%>&nbsp;<%=rsQry("rtag_name")%></a>
733
                                    </td>
736
                                    </td>
734
                                    <td nowrap valign=top"><%=createdBy%></td>
737
                                    <td nowrap  valign=top title="<%=hoverTitle%>"><img src="icons/s_note.gif" height="10" width="10" >&nbsp;</img><%=createdBy%>
735
                                    <%
738
                                    <%
736
                                    If parProjId = 2 Then
739
                                    If parProjId = 2 Then
737
                                       comment = GetMassRefComments(rsQry("rtag_id"))
740
                                       comment = GetMassRefComments(rsQry("rtag_id"))
738
                                       If comment = "" Then comment = "None."
741
                                       If comment = "" Then comment = "None."
739
                                       %>
742
                                       %>
Line 786... Line 789...
786
 
789
 
787
                                 Set objDmSts = New DaemonStatus
790
                                 Set objDmSts = New DaemonStatus
788
                                 Call objDmSts.GetDaemonStatus(parProjId)
791
                                 Call objDmSts.GetDaemonStatus(parProjId)
789
 
792
 
790
                                 While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
793
                                 While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
791
                                    hoverTitle = "Last change: "& rsQry("OFFICIAL_STAMP") & " by " & rsQry("modifier") & ". " & rsQry("OFFICIAL_STAMP_DAYS")& " Days ago"
-
 
792
                                    createdBy = rsQry("created_stamp") & " by " & rsQry("creator")
794
                                    createdBy = rsQry("created_stamp") & " by " & rsQry("creator")
-
 
795
                                    lastMod = rsQry("LastModified")
-
 
796
                                    hoverTitle = "State Last Change : "& rsQry("OFFICIAL_STAMP") & " by " & rsQry("modifier") & ". " & rsQry("OFFICIAL_STAMP_DAYS")& " Days ago" &_
-
 
797
                                            "&#10;Content Last Modified: " & lastMod & ". " & rsQry("LastModified_DAYS")& " Days ago" 
793
                                    If rsQry("userCanDelete") = 1 Then
798
                                    If rsQry("userCanDelete") = 1 Then
794
                                        createdBy = createdBy & "<br>Creator can delete"
799
                                        createdBy = createdBy & "<br>Creator can delete"
795
                                    End If
800
                                    End If
796
 
801
 
797
                                    %>
802
                                    %>
798
                                    <tr class="body_rowg2">
803
                                    <tr class="body_rowg2">
799
                                       <td valign="top">
804
                                       <td valign="top">
800
                                          <%Call RenderActions(rsQry("rtag_id"),rsQry("official"),rsQry("userCanDelete"))%>
805
                                          <%Call RenderActions(rsQry("rtag_id"),rsQry("official"),rsQry("userCanDelete"))%>
801
                                       </td>
806
                                       </td>
802
                                       <td nowrap valign="top">
807
                                       <td nowrap valign="top">
803
                                          <a href="dependencies.asp?rtag_id=<%=rsQry("rtag_id")%>" class="body_link" title="<%=hoverTitle%>">
808
                                          <a href="dependencies.asp?rtag_id=<%=rsQry("rtag_id")%>" class="body_link" >
804
                                          <%=ReleaseIcon( rsQry("official"))%>&nbsp;<%=rsQry("rtag_name")%></a>
809
                                          <%=ReleaseIcon( rsQry("official"))%>&nbsp;<%=rsQry("rtag_name")%></a>
805
                                       </td>
810
                                       </td>
806
                                       <td nowrap  valign=top><%=createdBy%></td>
811
                                       <td nowrap  valign=top title="<%=hoverTitle%>"><img src="icons/s_note.gif" height="10" width="10" >&nbsp;</img><%=createdBy%>
807
                                       <%
812
                                       <%
808
                                       If parProjId = 2 Then
813
                                       If parProjId = 2 Then
809
                                          comment = GetMassRefComments(rsQry("rtag_id"))
814
                                          comment = GetMassRefComments(rsQry("rtag_id"))
810
                                          If comment = "" Then comment = "None."
815
                                          If comment = "" Then comment = "None."
811
                                          %>
816
                                          %>