home *** CD-ROM | disk | FTP | other *** search
- #---------------------------------------------------------------------------
- #
- # (c) Cadre Technologies Inc. 1995
- #
- # File: %W%
- # Author: Challenger
- # Description: Implementation of old Report Writer table System
- #
- #---------------------------------------------------------------------------
- # SccsId = %W% %G% Copyright 1995 Cadre Technologies Inc.
-
-
- constructor SystemRecord {class this configVersion phaseVersion systemVersion} {
- set this [GCObject::constructor $class $this]
-
- set system [$systemVersion system]
- set phase [$phaseVersion phase]
-
- $this project_version [$configVersion versionNumber]
- $this phase_id [$phase identity]
- $this phase_version [$phaseVersion versionNumber]
- $this system_id [$system identity]
- $this system_version [$systemVersion versionNumber]
- $this system_type [$system type]
- $this name [$system name]
- $this item_id [[$system item] identity]
- $this product "OMT 4.0"
- $this working [expr {[$systemVersion status] == "working"}]
- $this status [expr { [$systemVersion status] == "working"
- ? "Unfrozen" : "Frozen" }]
- $this frz_time [fmtclock [$systemVersion freezeTime] "%e-%h-%Y %X"]
- $this comment [$systemVersion comments]
- $this tdb_name [$configVersion getPropertyValue tdbname]
- $this tdb_host [$configVersion getPropertyValue tdbhost]
- $this editor [$systemVersion getPropertyValue editor]
- $this extern_path [$systemVersion getPropertyValue externFilePath]
-
- return $this
- }
-