OpenACS

gustafn
committed
MAIN:gustafn:20180410065627
on 10 Apr 18
prefer XOTcl2 idioms
openacs-4/.../news-aggregator/www/subscriptions.tcl (+65 -66)
51 51     ad_returnredirect -message $message "${package_url}$aggregator_id"
52 52     ad_script_abort
53 53 }
54 54
55 55 set aggregator_count [db_string count_aggregators {}]
56 56
57 57 set bulk_actions {
58 58     Unsubscribe subscriptions Unsubscribe
59 59 }
60 60
61 61 if { $aggregator_count > 1 } {
62 62     # user has more than 1 aggregator, let's present our fancy move and copy features
63 63     if { $aggregator_count > 2 } {
64 64         set title "another aggregator"
65 65     } else {
66 66         set title [db_string select_name {}]
67 67     }
68 68     lappend bulk_actions \
69 69         Copy subscription-copy "Copy selected subscriptions to $title" \
70 70         Move subscription-move "Move selected subscriptions to $title"
71  
72 71 }
73 72
74 73 list::create \
75 74     -name sources \
76 75     -multirow sources \
77 76     -key source_id \
78 77     -row_pretty_plural "subscriptions" \
79 78     -actions {
80 79         "Export Subscriptions" "opml" "Export your subscriptions as an OPML file"
81 80 } -bulk_actions $bulk_actions -elements {
82 81     title {
83 82         label "Name"
84 83         link_url_eval $link
85 84     }
86 85     last_scanned {
87 86         label "Last Scan"
88 87     }
89 88     last_modified {
90 89         label "Last Update"
91 90     }