OpenACS

maltes
committed
MAIN:maltes:20051113132413
on 13 Nov 05
More documentation for the tasks include
openacs-4/.../tcl/template-procs.tcl (+10 -2)
509 509
510 510     if { [string equal $sim_template(casting_type) "open"] || [string equal $sim_template(casting_type) "group"] } {
511 511         # Notify users that they are enrolled and can do their casting
512 512
513 513         set subject "You have been enrolled in simulation $sim_template(pretty_name)"
514 514         set package_id [ad_conn package_id]
515 515         set casting_page_url \
516 516             [export_vars -base "[ad_url][apm_package_url_from_id $package_id]simplay/cast" { workflow_id }]
517 517         set body "Dear $user_name,
518 518 This is to notify you that you have been enrolled in simulation $sim_template(pretty_name). You may visit the
519 519 casting page at ${casting_page_url} to choose case or role.
520 520 "
521 521
522 522         acs_mail_lite::send \
523 523             -to_addr $email \
524 524             -from_addr [ad_system_owner] \
525 525             -subject $subject\
526 526             -body $body
527 527     }
528 528
529       # Sign the user up for immediate email notification for received messages in the simulation
  529     # Sign the user up for email notification of received messages
530 530     notification::request::new \
531 531         -type_id [notification::type::get_type_id -short_name [simulation::notification::message::type_short_name]] \
532 532         -user_id $user_id \
533 533         -object_id [ad_conn package_id] \
534 534         -interval_id [notification::get_interval_id -name "instant"] \
535 535         -delivery_method_id [notification::get_delivery_method_id -name "email"]
  536
  537     # Sign up the user for email notification of assigned tasks
  538     notification::request::new \
  539         -type_id [notification::type::get_type_id -short_name "workflow_assignee"] \
  540         -user_id $user_id \
  541         -object_id [ad_conn package_id] \
  542         -interval_id [notification::get_interval_id -name "instant"] \
  543         -delivery_method_id [notification::get_delivery_method_id -name "email"]
536 544 }
537 545
538 546 ad_proc -public simulation::template::enroll_and_invite_users {
539 547      {-workflow_id:required}
540 548 } {
541 549     Enroll users in a simulation and notify them by email if casting
542 550     type is open or group.
543 551
544 552     @author Peter Marklund
545 553 } {
546 554     simulation::template::get -workflow_id $workflow_id -array sim_template
547 555
548 556     set enroll_user_list [list]
549 557     set invite_email_list [list]
550 558     db_foreach select_enrolled_and_invited_users {
551 559             select distinct pamm.member_id as user_id,
552 560                    cu.email,
553 561                    cu.first_names || ' ' || cu.last_name as user_name,
554 562                    spsm.type
555 563             from sim_party_sim_map spsm,