Subversion Repositories DevTools

Rev

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

Rev 4237 Rev 4981
Line 460... Line 460...
460
</script>
460
</script>
461
<%
461
<%
462
'------------------------------------------------------------------------------------------------------------------------------------
462
'------------------------------------------------------------------------------------------------------------------------------------
463
Function GetDefaultProjectKey(artag_id)
463
Function GetDefaultProjectKey(artag_id)
464
   Dim rsProjId
464
   Dim rsProjId
-
 
465
   If artag_id <> "" Then
-
 
466
       Set rsProjId = OraDatabase.DbCreateDynaset( _
465
   Set rsProjId = OraDatabase.DbCreateDynaset("SELECT PRJ.JIRA_KEY FROM RELEASE_TAGS RLT, PROJECTS PRJ WHERE RLT.RTAG_ID ="& artag_id &" AND RLT.PROJ_ID = PRJ.PROJ_ID", cint(0))
467
            "SELECT PRJ.JIRA_KEY FROM RELEASE_TAGS RLT, PROJECTS PRJ WHERE RLT.RTAG_ID ="& artag_id &" AND RLT.PROJ_ID = PRJ.PROJ_ID", cint(0))
466
   GetDefaultProjectKey = rsProjId("jira_key")
468
       GetDefaultProjectKey = rsProjId("jira_key")
467
   Set rsProjId = Nothing
469
       Set rsProjId = Nothing
-
 
470
   Else
-
 
471
        GetDefaultProjectKey = ""
-
 
472
   End If
-
 
473
 
468
End Function
474
End Function
469
'------------------------------------------------------------------------------------------------------------------------------------
475
'------------------------------------------------------------------------------------------------------------------------------------
470
%>
476
%>
471
<%
477
<%
472
'-------------- Main Line ---------------
478
'-------------- Main Line ---------------