Subversion Repositories DevTools

Rev

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

Rev 129 Rev 139
Line 205... Line 205...
205
 
205
 
206
   If IsNull(rsQry("is_patch")) Then
206
   If IsNull(rsQry("is_patch")) Then
207
      ' For Package
207
      ' For Package
208
      If vcstag = enum_VCS_UNCONTROLLED_TAG Then
208
      If vcstag = enum_VCS_UNCONTROLLED_TAG Then
209
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_UC.sql" ) )
209
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_UC.sql" ) )
210
      ElseIf vcstag = enum_VCS_CLEARCASE_TAG Then
210
      ElseIf vcstag = enum_VCS_CLEARCASE_TAG OR vcstag = enum_VCS_CVS_TAG Then
211
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_CC.sql" ) )
211
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_CC.sql" ) )
212
      ElseIf vcstag = enum_VCS_SUBVERSION_TAG Then
212
      ElseIf vcstag = enum_VCS_SUBVERSION_TAG Then
213
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_SVN.sql" ) )
213
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_SVN.sql" ) )
214
      End If
214
      End If
215
   Else
215
   Else
216
      ' For Patch
216
      ' For Patch
217
      If vcstag = enum_VCS_UNCONTROLLED_TAG Then
217
      If vcstag = enum_VCS_UNCONTROLLED_TAG Then
218
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch_UC.sql" ) )
218
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch_UC.sql" ) )
219
      ElseIf vcstag = enum_VCS_CLEARCASE_TAG Then
219
      ElseIf vcstag = enum_VCS_CLEARCASE_TAG OR vcstag = enum_VCS_CVS_TAG Then
220
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch_CC.sql" ) )
220
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch_CC.sql" ) )
221
      ElseIf vcstag = enum_VCS_SUBVERSION_TAG Then
221
      ElseIf vcstag = enum_VCS_SUBVERSION_TAG Then
222
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch_SVN.sql" ) )
222
         Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_official_patch_SVN.sql" ) )
223
      End If
223
      End If
224
   End If
224
   End If
Line 232... Line 232...
232
   Dim vcstag
232
   Dim vcstag
233
 
233
 
234
   vcstag = get_vcs_tag( nPv_id )
234
   vcstag = get_vcs_tag( nPv_id )
235
   If vcstag = enum_VCS_UNCONTROLLED_TAG Then
235
   If vcstag = enum_VCS_UNCONTROLLED_TAG Then
236
      Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending_UC.sql" ) )
236
      Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending_UC.sql" ) )
237
   ElseIf vcstag = enum_VCS_CLEARCASE_TAG Then
237
   ElseIf vcstag = enum_VCS_CLEARCASE_TAG OR vcstag = enum_VCS_CVS_TAG Then
238
      Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending_CC.sql" ) )
238
      Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending_CC.sql" ) )
239
   ElseIf vcstag = enum_VCS_SUBVERSION_TAG Then
239
   ElseIf vcstag = enum_VCS_SUBVERSION_TAG Then
240
      Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending_SVN.sql" ) )
240
      Call CheckRequirements ( nPv_id, nRtag_id, nPkgType, returnERRmsg, returnALRTmsg, returnParameters, ReadFile( rootPath & "queries\req_make_pending_SVN.sql" ) )
241
   End If
241
   End If
242
End Sub
242
End Sub