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