home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cadre Technologies Inc. 1995
- #
- # File: %W%
- # Author: Challenger
- # Description: Implementation of old Report Writer table Phase
- #
- #---------------------------------------------------------------------------
- # SccsId = %W% %G% Copyright 1995 Cadre Technologies Inc.
-
-
- constructor PhaseRecord {class this configVersion phaseVersion} {
- set this [GCObject::constructor $class $this]
-
- set phase [$phaseVersion phase]
-
- $this project_version [$configVersion versionNumber]
- $this phase_id [$phase identity]
- $this phase_version [$phaseVersion versionNumber]
- $this name [$phase name]
- $this workbench [$phase name]
- $this working [expr {[$phaseVersion status] == "working"}]
- $this status [expr { [$phaseVersion status] == "working"
- ? "Unfrozen" : "Frozen" }]
- $this frz_time [fmtclock [$phaseVersion freezeTime] "%e-%h-%Y %X"]
- $this comment [$phaseVersion comments]
-
- return $this
- }
-