home *** CD-ROM | disk | FTP | other *** search
/ PC World 1997 November / PCWorld_1997-11_cd.bin / software / programy / komix / DATA.Z / documents.tcl < prev    next >
Text File  |  1996-12-11  |  2KB  |  70 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        @(#)documents.tcl    /main/hindenburg/1
  6. #    Author:        Harm Leijendeckers
  7. #    Description:    Report on documents
  8. #    Usage in:    PhaseVersion and higher
  9. #
  10. #---------------------------------------------------------------------------
  11. # SccsId = @(#)documents.tcl    /main/hindenburg/1    11 Dec 1996    Copyright 1995 Cadre Technologies Inc.
  12.  
  13.  
  14. Class ReportDocuments : {ReportBase} {
  15.     constructor
  16.     method phaseReport
  17. }
  18.  
  19.  
  20. constructor ReportDocuments {class this} {
  21.     set this [ReportBase::constructor $class $this]
  22.     $this reportName Documents
  23.     return $this
  24. }
  25.  
  26.  
  27. method ReportDocuments::phaseReport {this} {
  28.     set allDocuments [query "system.type == document" \
  29.     [[$this phaseV] systemVersions]]
  30.     if [lempty $allDocuments] { return 0 }
  31.  
  32.     set report [$this report]
  33.     $report header {
  34.     [$this report] print Document 31
  35.     [$this report] print Version 16
  36.     [$this report] print Status 11
  37.     [$this report] print Link 14
  38.     [$this report] print "Documented System" 31
  39.     [$this report] print "Editor" 11
  40.     [$this report] print Directory 17 line
  41.     [$this report] line
  42.     }
  43.  
  44.     foreach sysV [osort system.name $allDocuments] {
  45.     $report print [[$sysV system] name] 30
  46.     $report space
  47.     $report print [$sysV versionName] 15
  48.     $report space
  49.     $report print [$sysV status] 10
  50.     $report space
  51.     set link [[$this phaseV] findSystemVersionLink -bySystemVersion $sysV]
  52.     $report print [$link status] 13
  53.     $report space
  54.     $report print [query -s value "name == doc_sys" [$sysV properties]] 30
  55.     $report space
  56.     $report print [query -s value "name == editor"  [$sysV properties]] 10
  57.     $report space
  58.     $report print [query -s value "name == directory" [$sysV properties]] 17
  59.     $report line
  60.     }
  61.  
  62.     $report page
  63.     $report remove header
  64.  
  65.     return 0
  66. }
  67.  
  68.  
  69. set executeMe [ReportDocuments new]
  70.