Subversion Repositories DevTools

Rev

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

Rev 5932 Rev 5952
Line 575... Line 575...
575 
           otherVersions = otherVersions & joiner & rsQry("name")
 575 
           otherVersions = otherVersions & joiner & rsQry("name")
576 
	       joiner = ", "
 576 
	       joiner = ", "
577 
       End If
 577 
       End If
578 
	   rsQry.MoveNext
 578 
	   rsQry.MoveNext
579 
	WEnd
 579 
	WEnd
- 
 
 580 
 
580 
    OraDatabase.Parameters.Remove "PV_ID"
 581 
    OraDatabase.Parameters.Remove "PV_ID"
581 
    rsQry.Close()
 582 
    rsQry.Close()
582 
    Set rsQry = nothing
 583 
    Set rsQry = nothing
583 
 
 584 
 
584 
	If otherVersions <> "" Then
 585 
	If otherVersions <> "" Then
585 
		getLicence = getLicence & ". Other Versions: " & otherVersions
 586 
		getLicence = getLicence & ". Other Versions: " & otherVersions
586 
	End If
 587 
	End If
587 
 
 - 
 
588 
    OraDatabase.Parameters.Remove "PV_ID"
 - 
 
589 
 
 - 
 
590 
End Function
 588 
End Function
591 
'-------------------------------------------------
 589 
'-------------------------------------------------
592 
Function getLinkUrl(pvid)
 590 
Function getLinkUrl(pvid)
593 
     Dim joiner : joiner = "?"
 591 
     Dim joiner : joiner = "?"
594 
 
 592