Subversion Repositories DevTools

Rev

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

Rev 5939 Rev 5951
Line 152... Line 152...
152 
 
 152 
 
153 
End Function
 153 
End Function
154 
'-----------------------------------------------------------------------------------------------------------------------------
 154 
'-----------------------------------------------------------------------------------------------------------------------------
155 
Sub Destroy_All_Objects
 155 
Sub Destroy_All_Objects
156 
   On Error Resume Next
 156 
   On Error Resume Next
157 
   set brokenReadyHash = nothing
 - 
 
158 
   set brokenHash = nothing
 - 
 
159 
   set pkgInfoHash = nothing
 157 
   set pkgInfoHash = nothing
160 
   set OraDatabase = nothing
 158 
   set OraDatabase = nothing
161 
   set OraSession = nothing
 159 
   set OraSession = nothing
162 
End Sub
 160 
End Sub
163 
'-----------------------------------------------------------------------------------------------------------------------------
 161 
'-----------------------------------------------------------------------------------------------------------------------------
Line 571... Line 569...
571 
      Then
 569 
      Then
572 
         pkgInfoHash.Item ("can_unofficial") = "true"
 570 
         pkgInfoHash.Item ("can_unofficial") = "true"
573 
      End If
 571 
      End If
574 
 
 572 
 
575 
   Else
 573 
   Else
576 
 
 - 
 
- 
 
 574 
      If pkgInfoHash.Exists ("modified_stamp") Then
- 
 
 575 
          If NOT IsNull(pkgInfoHash.Item ("modified_stamp").Value) Then
577 
      If (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) Then
 576 
              If (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) Then
578 
         ' Must be not older then a day
 577 
                 ' Must be not older then a day
579 
         If (pkgInfoHash.Item ("dlocked") = "A")  OR   NOT IsNull(pkgInfoHash.Item("is_patch")) Then
 578 
                 If (pkgInfoHash.Item ("dlocked") = "A")  OR   NOT IsNull(pkgInfoHash.Item("is_patch")) Then
580 
            pkgInfoHash.Item ("can_unofficial") = "true"
 579 
                    pkgInfoHash.Item ("can_unofficial") = "true"
- 
 
 580 
                 End If
- 
 
 581 
              End If
581 
         End If
 582 
          End If
582 
      End If
 583 
     End If
583 
 
 - 
 
584 
   End If
 584 
   End If
585 
 
 585 
 
586 
   '-- Get Patch Parent
 586 
   '-- Get Patch Parent
587 
   If pkgInfoHash.Item ("is_patch") = "Y" Then
 587 
   If pkgInfoHash.Item ("is_patch") = "Y" Then
588 
      Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PatchParent.sql"), cint(0))
 588 
      Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PatchParent.sql"), cint(0))