사용자가 레코드를 작성한 경우 Rational® ClearQuest® 소프트웨어는 레코드를 작성하고 해당 필드를 적절한 기본값으로 초기화합니다. 특정 필드에 이와 연관된 기본값 후크가 있으면 후크가 실행되어 필드 값을 설정합니다. 필드와 연관된 후크가 없으면 필드 유형에 적합한 기본값이 지정됩니다. 예를 들어, 정수 필드는 0으로, 문자열 필드는 빈 문자열로, 목록 필드는 빈 목록으로 설정됩니다. 날짜 필드는 기본값으로 초기화되지 않고 항상 날짜 필드에 기본값 후크를 제공해야 합니다.
Sub submit_date_DefaultValue(fieldname) ' fieldname As String ' entityDef = defect call SetFieldValue(fieldname, now) End Sub
# Define a function for the current timestamp sub GetCurrentDate { my ($sec, $min, $hour, $mday, $mon, $year, $wday, $yday, $time) = localtime(); return sprintf("%4d-%2.2d-%2.2d %2.2d:%2.2d:%2.2d", $year + 1900, $mon + 1, $mday, $hour, $min, $sec); } # Define a routine to call the timestamp function sub Submit_Date_DefaultValue { my($fieldname) = @_; # $fieldname as a string scalar and entityDef is Defect $entity->SetFieldValue($fieldname, GetCurrentDate()); }
Sub submitter_DefaultValue(fieldname) ' fieldname As String ' entityDef = swbug SetFieldValue fieldname, GetSession().GetUserLoginName() End Sub
sub Submitter_DefaultValue { my($fieldname) = @_; # $fieldname as a string scalar # entityDef is Defect my $session; my $username; $session=$entity->GetSession(); $username = $session->GetUserLoginName(); $entity->SetFieldValue($fieldname, $username); }