home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / t_project.tcl < prev    next >
Text File  |  1996-06-03  |  1KB  |  36 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        %W%
  6. #    Author:        Challenger
  7. #    Description:    Implementation of old Report Writer table Project
  8. #
  9. #---------------------------------------------------------------------------
  10. # SccsId = %W%    %G%    Copyright 1995 Cadre Technologies Inc.
  11.  
  12.  
  13. constructor ProjectRecord {class this configVersion} {
  14.     set this [GCObject::constructor $class $this]
  15.  
  16.     set project [$configVersion project]
  17.     set corporate [$project corporate]
  18.  
  19.     $this project_id [$project identity]
  20.     $this project_version [$configVersion versionNumber]
  21.     $this name [$project name]
  22.     $this home [$corporate location]
  23.     $this pdb_name [$corporate databaseName]
  24.     $this pdb_host [$corporate databaseServer]
  25.     $this tdb_name "unknown"
  26.     $this tdb_host "unknown"
  27.     $this product "OMT 4.0"
  28.     $this working [expr { [$configVersion status] == "working"}]
  29.     $this status [expr { [$configVersion status] == "working"
  30.     ? "Unfrozen" : "Frozen" }]
  31.     $this frz_time [fmtclock [$configVersion freezeTime] "%e-%h-%Y %X"]
  32.     $this comment [$configVersion comments]
  33.  
  34.     return $this
  35. }
  36.