Subversion Repositories DevTools

Rev

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

Rev 3610 Rev 3844
Line 410... Line 410...
410
 
410
 
411
   rsTemp.Edit
411
   rsTemp.Edit
412
 
412
 
413
   ' Only update build critical sections (label, source path) if allowed
413
   ' Only update build critical sections (label, source path) if allowed
414
   If criticalSectionIsEditable Then
414
   If criticalSectionIsEditable Then
415
 
-
 
416
      If (objFormCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) OR _
-
 
417
         (objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then
-
 
418
        rsTemp.Fields("pkg_label").Value = SSLabel
-
 
419
      ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG) and isWIP Then
-
 
420
        rsTemp.Fields("pkg_label").Value = SSLabel
415
      rsTemp.Fields("pkg_label").Value = SSLabel
421
      Else
-
 
422
        rsTemp.Fields("pkg_label").Value = "N/A"
-
 
423
      End If
-
 
424
 
-
 
425
      rsTemp.Fields("src_path").Value = SSPath
416
      rsTemp.Fields("src_path").Value = SSPath
426
   End If
417
   End If
427
 
418
 
428
   ' Update non-build critical sections
419
   ' Update non-build critical sections
429
   rsTemp.Fields("pv_description").Value = SSdesc
420
   rsTemp.Fields("pv_description").Value = SSdesc