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