Index: openacs-4/packages/dotlrn-bm/dotlrn-bm.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/dotlrn-bm.info,v diff -u -N -r1.2 -r1.3 --- openacs-4/packages/dotlrn-bm/dotlrn-bm.info 16 May 2002 04:34:51 -0000 1.2 +++ openacs-4/packages/dotlrn-bm/dotlrn-bm.info 2 Jul 2002 23:01:50 -0000 1.3 @@ -22,8 +22,8 @@ - - + + Index: openacs-4/packages/dotlrn-bm/tcl/dotlrn-bm-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/tcl/dotlrn-bm-procs.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/dotlrn-bm/tcl/dotlrn-bm-procs.tcl 22 Jun 2002 20:11:03 -0000 1.4 +++ openacs-4/packages/dotlrn-bm/tcl/dotlrn-bm-procs.tcl 2 Jul 2002 23:01:51 -0000 1.5 @@ -30,7 +30,7 @@ } { get the applet_key } { - return "dotlrn_bm" + return dotlrn_bm } ad_proc -public my_package_key { @@ -61,13 +61,14 @@ set package_id [dotlrn::mount_package \ -package_key [package_key] \ -url [package_key] \ - -directory_p "t"] + -directory_p t \ + ] dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] dotlrn_applet::mount \ -package_key [my_package_key] \ - -url "bm" \ + -url bm \ -pretty_name [get_pretty_name] } } @@ -76,7 +77,6 @@ } { remove the applet from dotlrn } { - # noop } ad_proc -public add_applet_to_community { @@ -86,6 +86,7 @@ } { set portal_id [dotlrn_community::get_admin_portal_id -community_id $community_id] set package_id [dotlrn::instantiate_and_mount $community_id [package_key]] + bm_portlet::add_self_to_page -portal_id $portal_id -package_id $package_id return $package_id @@ -99,7 +100,7 @@ set portal_id [dotlrn_community::get_admin_portal_id -community_id $community_id] set package_id [dotlrn::get_community_applet_package_id \ -community_id $community_id \ - -package_key [package_key] + -package_key [package_key] \ ] bm_portlet::remove_self_from_page -portal_id $portal_id -package_id $package_id @@ -163,14 +164,9 @@ } { clone this applet's content from the old community to the new one } { - ns_log notice "Cloning [applet_key]" add_applet_to_community $new_community_id } - # - # misc procs - # - ad_proc -public get_package_id { } { returns the package_id of the dotlrn-bm package Index: openacs-4/packages/dotlrn-bm/www/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/www/index.adp,v diff -u -N --- openacs-4/packages/dotlrn-bm/www/index.adp 16 May 2002 04:34:51 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,7 +0,0 @@ - -@title@ -@context_bar@ - -
- @table@ -
Index: openacs-4/packages/dotlrn-bm/www/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/www/Attic/index.tcl,v diff -u -N --- openacs-4/packages/dotlrn-bm/www/index.tcl 22 Jun 2002 20:11:03 -0000 1.2 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,44 +0,0 @@ -ad_page_contract { - - @author yon (yon@openforce.net) - @creation-date 2002-05-13 - @version $Id: index.tcl,v 1.2 2002/06/22 20:11:03 yon Exp $ - -} -query { - {orderby "send_date*,subject"} -} -properties { - title:onevalue - context_bar:onevalue - table:onevalue -} - -set package_id [ad_conn package_id] - -permission::require_permission -object_id $package_id -privilege admin - -set title [bulk_mail::pretty_name] -set context_bar {All} - -set table_def { - {send_date {Send Date} {bulk_mail_messages.send_date $order} {[util_AnsiDatetoPrettyDate $send_date]}} - {from_addr From {bulk_mail_messages.from_addr $order} {$from_addr}} - {subject Subject {bulk_mail_messages.subject $order} {$subject}} - {sent_p {Sent?} {bulk_mail_messages.sent_p $order} {[ad_decode $sent_p t Yes No]}} -} - -set sql " - select bulk_mail_messages.* - from bulk_mail_messages - [ad_order_by_from_sort_spec $orderby $table_def] -" - -set table [ad_table \ - -Tmissing_text {
No bulk mail messages to display.
} \ - -Torderby $orderby \ - -Ttable_extra_html {width="95%"} \ - select_bulk_mail_messages \ - $sql \ - $table_def \ -] - -ad_return_template Index: openacs-4/packages/dotlrn-bm/www/admin/index.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/www/admin/index.adp,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-bm/www/admin/index.adp 2 Jul 2002 23:01:51 -0000 1.1 @@ -0,0 +1,7 @@ + +@title@ +@context_bar@ + +
+ @table@ +
Index: openacs-4/packages/dotlrn-bm/www/admin/index.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-bm/www/admin/index.tcl,v diff -u -N --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-bm/www/admin/index.tcl 2 Jul 2002 23:01:51 -0000 1.1 @@ -0,0 +1,42 @@ +ad_page_contract { + + @author yon (yon@openforce.net) + @creation-date 2002-05-13 + @version $Id: index.tcl,v 1.1 2002/07/02 23:01:51 yon Exp $ + +} -query { + {orderby "send_date*,subject"} +} -properties { + title:onevalue + context_bar:onevalue + table:onevalue +} + +set package_id [ad_conn package_id] + +set title [bulk_mail::pretty_name] +set context_bar {All} + +set table_def { + {send_date {Send Date} {bulk_mail_messages.send_date $order} {[util_AnsiDatetoPrettyDate $send_date]}} + {from_addr From {bulk_mail_messages.from_addr $order} {$from_addr}} + {subject Subject {bulk_mail_messages.subject $order} {$subject}} + {sent_p {Sent?} {bulk_mail_messages.sent_p $order} {[ad_decode $sent_p t Yes No]}} +} + +set sql " + select bulk_mail_messages.* + from bulk_mail_messages + [ad_order_by_from_sort_spec $orderby $table_def] +" + +set table [ad_table \ + -Tmissing_text {
No bulk mail messages to display.
} \ + -Torderby $orderby \ + -Ttable_extra_html {width="95%"} \ + select_bulk_mail_messages \ + $sql \ + $table_def \ +] + +ad_return_template