home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / t_system.tcl < prev    next >
Text File  |  1996-06-03  |  2KB  |  40 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        %W%
  6. #    Author:        Challenger
  7. #    Description:    Implementation of old Report Writer table System
  8. #
  9. #---------------------------------------------------------------------------
  10. # SccsId = %W%    %G%    Copyright 1995 Cadre Technologies Inc.
  11.  
  12.  
  13. constructor SystemRecord {class this configVersion phaseVersion systemVersion} {
  14.     set this [GCObject::constructor $class $this]
  15.  
  16.     set system [$systemVersion system]
  17.     set phase [$phaseVersion phase]
  18.  
  19.     $this project_version [$configVersion versionNumber]
  20.     $this phase_id [$phase identity]
  21.     $this phase_version [$phaseVersion versionNumber]
  22.     $this system_id [$system identity]
  23.     $this system_version [$systemVersion versionNumber]
  24.     $this system_type [$system type]
  25.     $this name [$system name]
  26.     $this item_id [[$system item] identity]
  27.     $this product "OMT 4.0"
  28.     $this working [expr {[$systemVersion status] == "working"}]
  29.     $this status [expr { [$systemVersion status] == "working"
  30.     ? "Unfrozen" : "Frozen" }]
  31.     $this frz_time [fmtclock [$systemVersion freezeTime] "%e-%h-%Y %X"]
  32.     $this comment [$systemVersion comments]
  33.     $this tdb_name [$configVersion getPropertyValue tdbname]
  34.     $this tdb_host [$configVersion getPropertyValue tdbhost]
  35.     $this editor [$systemVersion getPropertyValue editor]
  36.     $this extern_path [$systemVersion getPropertyValue externFilePath]
  37.  
  38.     return $this
  39. }
  40.