home *** CD-ROM | disk | FTP | other *** search
/ PC World 1998 October / PCWorld_1998-10_cd.bin / software / prehled / komix / DATA.Z / svdgrp.tcl < prev    next >
Text File  |  1997-06-19  |  3KB  |  97 lines
  1. #---------------------------------------------------------------------------
  2. #
  3. #    (c) Cadre Technologies Inc. 1995
  4. #
  5. #    File:        @(#)svdgrp.tcl    /main/titanic/2
  6. #    Author:        Harm Leijendeckers
  7. #    Description:    Report on saved groups
  8. #    Usage in:    SystemVersion
  9. #
  10. #---------------------------------------------------------------------------
  11. # SccsId = @(#)svdgrp.tcl    /main/titanic/2    19 Jun 1997    Copyright 1995 Cadre Technologies Inc.
  12.  
  13.  
  14. Class ReportSavedGroups : {ReportBase} {
  15.     constructor
  16.     method systemReport
  17. }
  18.  
  19.  
  20. constructor ReportSavedGroups {class this} {
  21.     set this [ReportBase::constructor $class $this]
  22.     $this reportName "Saved Groups"
  23.     return $this
  24. }
  25.  
  26.  
  27. method ReportSavedGroups::systemReport {this} {
  28.     set allSavedGroups [[[$this systemV] system] savedGroups]
  29.     if [lempty $allSavedGroups] { return 0 }
  30.  
  31.     set first 1
  32.     foreach sg [osort name $allSavedGroups] {
  33.     if !$first {
  34.         [$this report] line
  35.         [$this report] line
  36.     } else {
  37.         set first 0
  38.     }
  39.  
  40.     [$this report] print "Saved Group: " 17 right
  41.     [$this report] print [$sg name] line
  42.     [$this report] print "Corporate Group: "
  43.     if { ![[$sg corporateGroup] isNil] } {
  44.         [$this report] print [[$sg corporateGroup] name]
  45.     } else {
  46.         [$this report] print -
  47.     }
  48.     [$this report] line
  49.     [$this report] line
  50.     [$this report] print Version 15 right
  51.     [$this report] separator " | "
  52.     [$this report] print Creator 15
  53.     [$this report] separator " | "
  54.     [$this report] print "Create Time" 14 center
  55.     [$this report] separator " | "
  56.     [$this report] print "Corporate" 9
  57.     [$this report] separator " | "
  58.     [$this report] print "Comments" 30
  59.     [$this report] separator " | "
  60.     [$this report] print "Contents" line
  61.     [$this report] print - 131 fill line
  62.  
  63.     foreach version [osort versionNumber [$sg savedGroupVersions]] {
  64.         [$this report] print [$version versionNumber] 15 right
  65.         [$this report] separator " | "
  66.         [$this report] print [$version creator] 15
  67.         [$this report] separator " | "
  68.         [$this report] print [clock format [$version createTime] \
  69.                     -format "%R %D"] 14
  70.         [$this report] separator " | "
  71.         if { ![[$version corporateGroupVersion] isNil] } {
  72.         [$this report] print yes 9 center
  73.         } else {
  74.         [$this report] print no 9 center
  75.         }
  76.         [$this report] separator " | "
  77.         [$this report] print [$version comments] 30
  78.         [$this report] separator " | "
  79.  
  80.         set contents ""
  81.         foreach fileV [osort file.type file.name [$version fileVersions]] {
  82.         set file [$fileV file]
  83.         set contents [format "%s%-33s" $contents \
  84.             "[$file name].[$file type].[$fileV versionNumber]"]
  85.         }
  86.         [$this report] print $contents 33 line
  87.     }
  88.     }
  89.  
  90.     [$this report] page
  91.  
  92.     return 0
  93. }
  94.  
  95.  
  96. set executeMe [ReportSavedGroups new]
  97.