Script to change the status of bug of Quality Center

Function Defects_Bug_FieldCanChange(FieldName, NewValue)
If FieldName = “BG_STATUS” Then
OldValue = Bug_Fields.Field(“BG_STATUS”).Value
If OldValue = “New” And NewValue = “Open” Then
Defects_Bug_FieldCanChange = True
ElseIf OldValue = “Closed” And NewValue = “Open” Then
Defects_Bug_FieldCanChange = True
Else
‘ Any other transition is denied.
Defects_Bug_FieldCanChange = False
End If
Else
Defects_Bug_FieldCanChange = True
End If
End Function