Index: openacs-4/packages/xowiki/tcl/personal-notification-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/Attic/personal-notification-procs.tcl,v
diff -u -r1.1.2.2 -r1.1.2.3
--- openacs-4/packages/xowiki/tcl/personal-notification-procs.tcl 6 Aug 2020 20:05:30 -0000 1.1.2.2
+++ openacs-4/packages/xowiki/tcl/personal-notification-procs.tcl 7 Jun 2021 07:09:29 -0000 1.1.2.3
@@ -66,7 +66,7 @@
personal-notification-messages ad_proc message_add {
{-notification_id:integer}
- {-to_user_id:integer}
+ {-to_user_id:integer,1..n}
{-payload:required}
} {
@@ -78,9 +78,11 @@
# Set the timestamp to [clock microseconds]. It is assumed that we have
# at most one message per microsecond to this user.
#
- nsv_dict set inclass_exam $notification_id $to_user_id \
- [clock microseconds] \
- $payload
+ foreach to_user_id $to_user_id {
+ nsv_dict set inclass_exam $notification_id $to_user_id \
+ [clock microseconds] \
+ $payload
+ }
}
personal-notification-messages ad_proc message_dismiss {
@@ -97,16 +99,25 @@
}
personal-notification-messages ad_proc modal_message_dialog {
- -to_user_id:integer,required
+ -to_user_id:integer,1..n,required
{-title "#xowiki.Send_message_to#"}
{-glyphicon pencil}
} {
Create a bootstrap3 modal dialog
} {
- set id dialog-msg-$to_user_id
- set to_user_name [::xo::get_user_name $to_user_id]
+ if {[llength $to_user_id] == 1} {
+ set id dialog-msg-$to_user_id
+ set to_user_name [::xo::get_user_name $to_user_id]
+ } else {
+ set id dialog-msg-all
+ set to_user_name " [llength $to_user_id] #xowf.Participants#"
+ }
append title " " $to_user_name
+ foreach to_user_id $to_user_id {
+ append input_fields [subst {}]
+ }
+
return [list link [subst {
@@ -135,7 +146,7 @@
-
+ $input_fields