Subversion Repositories DevTools

Rev

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

Rev 5933 Rev 6480
Line 394... Line 394...
394 
                    End If
 394 
                    End If
395
395
396 
                    ' Set destroy package action
 396 
                    ' Set destroy package action
397 
                    If CanDestroyPackage Then
 397 
                    If CanDestroyPackage Then
398 
                        DestroyPackage = "<a class='nogo' href='javascript:;'"&_
 398 
                        DestroyPackage = "<a class='nogo' href='javascript:;'"&_
399 
                                         " title='Destroy this package from the database.' "&_
 399 
                                         " title='Destroy this version of the package.' "&_
400 
                                         " onClick=DestroyVersion("& aVersions( rsVB.FieldIndex("pv_id"), i ) &"," & idx  &")>" &_
 400 
                                         " onClick=DestroyVersion("& aVersions( rsVB.FieldIndex("pv_id"), i ) &"," & idx  &")>" &_
401 
                                         " <img src='icons/i_destroy_package_sml.gif' width='15' height='15' border='0' ><a>"
 401 
                                         " <img src='icons/i_destroy_package_sml.gif' width='15' height='15' border='0' ><a>"
402 
                    Else
 402 
                    Else
403 
                        DestroyPackage = ""
 403 
                        DestroyPackage = ""
404 
                    End If
 404 
                    End If