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