OpenACS

miguelm
committed
MAIN:miguelm:20050804170857
on 04 Aug 05
adding file_id's, adding check boxes to recipients
openacs-4/.../tcl/includelet-procs.tcl (+3 -3)
17 17       -superclass ::xotcl::Class \
18 18       -parameter {
19 19         {localized true}
20 20         {personalized true}
21 21         {cacheable false}
22 22         {aggregating false}
23 23       }
24 24
25 25   # The general superclass for includelets
26 26
27 27   Class create ::xowiki::Includelet \
28 28       -superclass ::xo::Context \
29 29       -parameter {
30 30         {name ""}
31 31         {title ""}
32 32         {__decoration "portlet"}
33 33         {parameter_declaration {}}
34 34         {id}
35 35       }
36 36
37     ::xowiki::Includelet proc require_YUI_CSS {{-version 2.6.0} {-ajaxhelper true} path} {
  37   ::xowiki::Includelet proc require_YUI_CSS {{-version 2.7.0} {-ajaxhelper true} path} {
38 38     if {$ajaxhelper} {
39 39       ::xo::Page requireCSS "/resources/ajaxhelper/yui/$path"
40 40     } else {
41 41       ::xo::Page requireCSS "http://yui.yahooapis.com/$version/build/$path"
42 42     }
43 43   }
44 44
45     ::xowiki::Includelet proc require_YUI_JS {{-version 2.6.0} {-ajaxhelper true} path} {
  45   ::xowiki::Includelet proc require_YUI_JS {{-version 2.7.0} {-ajaxhelper true} path} {
46 46     if {$ajaxhelper} {
47 47       ::xo::Page requireJS "/resources/ajaxhelper/yui/$path"
48 48     } else {
49 49       ::xo::Page requireJS "http://yui.yahooapis.com/$version/build/$path"
50 50     }
51 51   }   
52 52    
53 53   ::xowiki::Includelet proc describe_includelets {includelet_classes} {
54 54     my log "--plc=$includelet_classes "
55 55     foreach cl $includelet_classes {
56 56       set result ""
57 57       append result "{{<b>[namespace tail $cl]</b>"
58 58       foreach p [$cl info parameter] {
59 59         if {[llength $p] != 2} continue
60 60         foreach {name value} $p break
61 61         if {$name eq "parameter_declaration"} {
62 62           foreach pp $value {
63 63             #append result ""
64 64             switch [llength $pp] {
65 65               1 {append result " $pp"}