Index: openacs-4/packages/dotlrn-mmplayer/dotlrn-mmplayer.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-mmplayer/dotlrn-mmplayer.info,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-mmplayer/dotlrn-mmplayer.info 22 Jun 2006 08:36:11 -0000 1.1 @@ -0,0 +1,25 @@ + + + + + dotLRN MMPlayer Applet + dotLRN MMPlayer Applets + f + t + + + OpenACS + 2006-05-15 + OpenACS + 0 + + + + + + + + + + + Index: openacs-4/packages/dotlrn-mmplayer/catalog/dotlrn-mmplayer.ca_ES.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-mmplayer/catalog/dotlrn-mmplayer.ca_ES.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-mmplayer/catalog/dotlrn-mmplayer.ca_ES.ISO-8859-1.xml 22 Jun 2006 08:36:11 -0000 1.1 @@ -0,0 +1,5 @@ + + + + MMPlayer + Index: openacs-4/packages/dotlrn-mmplayer/catalog/dotlrn-mmplayer.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-mmplayer/catalog/dotlrn-mmplayer.en_US.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-mmplayer/catalog/dotlrn-mmplayer.en_US.ISO-8859-1.xml 22 Jun 2006 08:36:11 -0000 1.1 @@ -0,0 +1,5 @@ + + + + MMPlayer + Index: openacs-4/packages/dotlrn-mmplayer/catalog/dotlrn-mmplayer.es_ES.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-mmplayer/catalog/dotlrn-mmplayer.es_ES.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-mmplayer/catalog/dotlrn-mmplayer.es_ES.ISO-8859-1.xml 22 Jun 2006 08:36:11 -0000 1.1 @@ -0,0 +1,5 @@ + + + + MMPlayer + Index: openacs-4/packages/dotlrn-mmplayer/sql/postgresql/dotlrn-mmplayer-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-mmplayer/sql/postgresql/dotlrn-mmplayer-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-mmplayer/sql/postgresql/dotlrn-mmplayer-create.sql 22 Jun 2006 08:36:11 -0000 1.1 @@ -0,0 +1,131 @@ + +-- create the implementation +select acs_sc_impl__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'dotlrn_mmplayer' +); + +-- add all the hooks + +-- GetPrettyName +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'GetPrettyName', + 'dotlrn_mmplayer::get_pretty_name', + 'TCL' +); + +-- AddApplet +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'AddApplet', + 'dotlrn_mmplayer::add_applet', + 'TCL' +); + +-- RemoveApplet +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'RemoveApplet', + 'dotlrn_mmplayer::remove_applet', + 'TCL' +); + +-- AddAppletToCommunity +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'AddAppletToCommunity', + 'dotlrn_mmplayer::add_applet_to_community', + 'TCL' +); + +-- RemoveAppletFromCommunity +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'RemoveAppletFromCommunity', + 'dotlrn_mmplayer::remove_applet_from_community', + 'TCL' +); + +-- AddUser +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'AddUser', + 'dotlrn_mmplayer::add_user', + 'TCL' +); + +-- RemoveUser +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'RemoveUser', + 'dotlrn_mmplayer::remove_user', + 'TCL' +); + +-- AddUserToCommunity +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'AddUserToCommunity', + 'dotlrn_mmplayer::add_user_to_community', + 'TCL' +); + +-- RemoveUserFromCommunity +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'RemoveUserFromCommunity', + 'dotlrn_mmplayer::remove_user_from_community', + 'TCL' +); + +-- AddPortlet +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'AddPortlet', + 'dotlrn_mmplayer::add_portlet', + 'TCL' + ); + +-- RemovePortlet +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'RemovePortlet', + 'dotlrn_mmplayer::remove_portlet', + 'TCL' +); + +-- Clone +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'Clone', + 'dotlrn_mmplayer::clone', + 'TCL' +); + +select acs_sc_impl_alias__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'ChangeEventHandler', + 'dotlrn_mmplayer::change_event_handler', + 'TCL' +); + +-- Add the binding +select acs_sc_binding__new ( + 'dotlrn_applet', + 'dotlrn_mmplayer' +); Index: openacs-4/packages/dotlrn-mmplayer/sql/postgresql/dotlrn-mmplayer-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-mmplayer/sql/postgresql/dotlrn-mmplayer-drop.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-mmplayer/sql/postgresql/dotlrn-mmplayer-drop.sql 22 Jun 2006 08:36:11 -0000 1.1 @@ -0,0 +1,99 @@ + +select acs_sc_impl__delete( + 'dotlrn_applet', -- impl_contract_name + 'dotlrn_mmplayer' -- impl_name +); + + +-- add all the hooks + +-- GetPrettyName +select acs_sc_impl_alias__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'GetPrettyName' +); + +-- AddApplet +select acs_sc_impl_alias__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'AddApplet' +); + +-- RemoveApplet +select acs_sc_impl_alias__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'RemoveApplet' +); + +-- AddAppletToCommunity +select acs_sc_impl_alias__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'AddAppletToCommunity' +); + +-- RemoveAppletFromCommunity +select acs_sc_impl_alias__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'RemoveAppletFromCommunity' +); + +-- AddUser +select acs_sc_impl_alias__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'AddUser' +); + +-- RemoveUser +select acs_sc_impl_alias__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'RemoveUser' +); + +-- AddUserToCommunity +select acs_sc_impl_alias__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'AddUserToCommunity' +); + +-- RemoveUserFromCommunity +select acs_sc_impl_alias__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'RemoveUserFromCommunity' +); + +-- AddPortlet +select acs_sc_impl_alias__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'AddPortlet' + ); + +-- RemovePortlet +select acs_sc_impl_alias__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'RemovePortlet' +); + +-- Clone +select acs_sc_impl_alias__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer', + 'Clone' +); + + +-- Add the binding +select acs_sc_binding__delete ( + 'dotlrn_applet', + 'dotlrn_mmplayer' +); Index: openacs-4/packages/dotlrn-mmplayer/tcl/dotlrn-mmplayer-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-mmplayer/tcl/dotlrn-mmplayer-procs-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-mmplayer/tcl/dotlrn-mmplayer-procs-postgresql.xql 22 Jun 2006 08:36:11 -0000 1.1 @@ -0,0 +1,16 @@ + + + +postgresql7.1 + + + + select mmplayer__clone ( + :old_package_id, + :new_package_id + ); + + + + + Index: openacs-4/packages/dotlrn-mmplayer/tcl/dotlrn-mmplayer-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-mmplayer/tcl/dotlrn-mmplayer-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/dotlrn-mmplayer/tcl/dotlrn-mmplayer-procs.tcl 22 Jun 2006 08:36:11 -0000 1.1 @@ -0,0 +1,202 @@ + +ad_library { + + Procs to set up the dotLRN mmplayer applet + +} + +namespace eval dotlrn_mmplayer { + + ad_proc -public applet_key { + } { + What's my applet key? + } { + return dotlrn_mmplayer + } + + ad_proc -public package_key { + } { + What package do I deal with? + } { + return mmplayer + } + + ad_proc -public my_package_key { + } { + What package do I deal with? + } { + return "dotlrn-mmplayer" + } + + ad_proc -public get_pretty_name { + } { + returns the pretty name + } { + return "[_ dotlrn-mmplayer.pretty_name]" + } + + ad_proc -public add_applet { + } { + One time init - must be repeatable! + } { + dotlrn_applet::add_applet_to_dotlrn -applet_key [applet_key] -package_key [my_package_key] + } + + ad_proc -public remove_applet { + } { + One time destroy. + } { + dotlrn_applet::remove_applet_from_dotlrn -applet_key [applet_key] + } + + ad_proc -public add_applet_to_community { + community_id + } { + Add the mmplayer applet to a specifc dotlrn community + } { + set portal_id [dotlrn_community::get_portal_id -community_id $community_id] + + # create the mmplayer package instance (all in one, I've mounted it) + set package_id [dotlrn::instantiate_and_mount $community_id [package_key]] + + # set up the admin portal + set admin_portal_id [dotlrn_community::get_admin_portal_id \ + -community_id $community_id + ] + + mmplayer_admin_portlet::add_self_to_page \ + -portal_id $admin_portal_id \ + -package_id $package_id + + set args [ns_set create] + ns_set put $args package_id $package_id + add_portlet_helper $portal_id $args + + return $package_id + } + + ad_proc -public remove_applet_from_community { + community_id + } { + remove the applet from the community + } { + ad_return_complaint 1 "[applet_key] remove_applet_from_community not implimented!" + } + + ad_proc -public add_user { + user_id + } { + one time user-specifuc init + } { + # noop + } + + ad_proc -public remove_user { + user_id + } { + } { + # noop + } + + ad_proc -public add_user_to_community { + community_id + user_id + } { + Add a user to a specifc dotlrn community + } { + set package_id [dotlrn_community::get_applet_package_id -community_id $community_id -applet_key [applet_key]] + set portal_id [dotlrn::get_portal_id -user_id $user_id] + + # use "append" here since we want to aggregate + set args [ns_set create] + ns_set put $args package_id $package_id + ns_set put $args param_action append + add_portlet_helper $portal_id $args + } + + ad_proc -public remove_user_from_community { + community_id + user_id + } { + Remove a user from a community + } { + set package_id [dotlrn_community::get_applet_package_id -community_id $community_id -applet_key [applet_key]] + set portal_id [dotlrn::get_portal_id -user_id $user_id] + + set args [ns_set create] + ns_set put $args package_id $package_id + + remove_portlet $portal_id $args + } + + ad_proc -public add_portlet { + portal_id + } { + A helper proc to add the underlying portlet to the given portal. + + @param portal_id + } { + # simple, no type specific stuff, just set some dummy values + + set args [ns_set create] + ns_set put $args package_id 0 + ns_set put $args param_action overwrite + add_portlet_helper $portal_id $args + } + + ad_proc -public add_portlet_helper { + portal_id + args + } { + A helper proc to add the underlying portlet to the given portal. + + @param portal_id + @param args an ns_set + } { + mmplayer_portlet::add_self_to_page \ + -portal_id $portal_id \ + -package_id [ns_set get $args package_id] \ + -param_action [ns_set get $args param_action] + } + + ad_proc -public remove_portlet { + portal_id + args + } { + A helper proc to remove the underlying portlet from the given portal. + + @param portal_id + @param args A list of key-value pairs (possibly user_id, community_id, and more) + } { + mmplayer_portlet::remove_self_from_page \ + -portal_id $portal_id \ + -package_id [ns_set get $args package_id] + } + + ad_proc -public clone { + old_community_id + new_community_id + } { + Clone this applet's content from the old community to the new one + } { + set new_package_id [add_applet_to_community $new_community_id] + set old_package_id [dotlrn_community::get_applet_package_id \ + -community_id $old_community_id \ + -applet_key [applet_key] + ] + + db_exec_plsql call_mmplayer_clone {} + return $new_package_id + } + + ad_proc -public change_event_handler { + community_id + event + old_value + new_value + } { + listens for the following events: + } { + } + +} Index: openacs-4/packages/mmplayer/mmplayer.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/mmplayer.info,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/mmplayer.info 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,26 @@ + + + + + MMPlayer + MMPlayer + f + f + + + OpenACS + MMPlayer + 2006-05-15 + OpenACS + MMPlayer + 0 + + + + + + + + + + Index: openacs-4/packages/mmplayer/catalog/mmplayer.ca_ES.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/catalog/mmplayer.ca_ES.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/catalog/mmplayer.ca_ES.ISO-8859-1.xml 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,13 @@ + + + + Data d'inici + Comentaris + Habilitat + Data de fi + Alt + Ok + T�tol + Url + Ampl�ria + Index: openacs-4/packages/mmplayer/catalog/mmplayer.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/catalog/mmplayer.en_US.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/catalog/mmplayer.en_US.ISO-8859-1.xml 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,13 @@ + + + + Begin date + Comments + Enabled + End date + Height + Ok + Title + Url + Width + Index: openacs-4/packages/mmplayer/catalog/mmplayer.es_ES.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/catalog/mmplayer.es_ES.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/catalog/mmplayer.es_ES.ISO-8859-1.xml 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,13 @@ + + + + Fecha inicio + Comentarios + Habilitado + Fecha fin + Altura + Ok + T�tulo + Url + Anchura + Index: openacs-4/packages/mmplayer/sql/postgresql/mmplayer-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/sql/postgresql/mmplayer-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/sql/postgresql/mmplayer-create.sql 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,21 @@ + +create table mmplayer_items ( + community_id integer + primary key + not null, + url varchar(1000), + title varchar(200), + comment varchar(500), + enabled_p char(1) + default 't' + not null + check (enabled_p in ('t','f')), + width integer default 320, + height integer default 240, + begin_date timestamptz default current_timestamp not null, + end_date timestamptz default current_timestamp + interval '7 days' not null +); + + +-- +\i mmplayer-sc-create.sql Index: openacs-4/packages/mmplayer/sql/postgresql/mmplayer-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/sql/postgresql/mmplayer-drop.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/sql/postgresql/mmplayer-drop.sql 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,5 @@ +-- + +drop table mmplayer_items; + +\i mmplayer-sc-drop.sql Index: openacs-4/packages/mmplayer/sql/postgresql/mmplayer-sc-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/sql/postgresql/mmplayer-sc-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/sql/postgresql/mmplayer-sc-create.sql 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,2 @@ +-- + Index: openacs-4/packages/mmplayer/sql/postgresql/mmplayer-sc-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/sql/postgresql/mmplayer-sc-drop.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/sql/postgresql/mmplayer-sc-drop.sql 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1 @@ +-- Index: openacs-4/packages/mmplayer/tcl/mmplayer-procs-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/tcl/mmplayer-procs-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/tcl/mmplayer-procs-postgresql.xql 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,6 @@ + + + + postgresql7.1 + + Index: openacs-4/packages/mmplayer/tcl/mmplayer-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/tcl/mmplayer-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/tcl/mmplayer-procs.tcl 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,56 @@ +ad_library { + + Utility functions for MMPlayer Application + +} + +namespace eval mmplayer {} + +ad_proc mmplayer_get_package_id { + -community_id +} { + Get the mmplayer package in the selected community + + @param community_id +} { + + if {[info exist community_id] == 0} { + set community_id [dotlrn_community::get_community_id] + } + db_1row get_mmplayer_package_id {} + + return $package_id +} + +ad_proc -private mmplayer::now_plus_days { -ndays } { +} { + set now [list] + foreach v [clock format [clock seconds] -format "%Y %m %d %H %M %S"] { + lappend now [template::util::leadingTrim $v] + } + + set day [lindex $now 2] + set month [lindex $now 1] + set interval_def [template::util::date::defaultInterval day] + for { set i [lindex $interval_def 0] } { $i <= 15 } { incr i 1 } { + incr day + if { [expr $day + $i] >= [lindex $interval_def 1] } { + incr month 1 + set day 1 + } +} + + # replace the hour and minute values in the now list with new values + set now [lreplace $now 2 2 $day] + set now [lreplace $now 1 1 $month] + + # set default time + set now [lreplace $now 3 3 23] + set now [lreplace $now 4 4 59] + set now [lreplace $now 5 5 59] + + return [eval template::util::date::create $now] +} + + + Index: openacs-4/packages/mmplayer/tcl/mmplayer-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/tcl/mmplayer-procs.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/tcl/mmplayer-procs.xql 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,6 @@ + + + + + + Index: openacs-4/packages/mmplayer/www/add_resource.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/www/add_resource.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/www/add_resource.adp 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,7 @@ + + + @xhtml;noquote@ + + + + Index: openacs-4/packages/mmplayer/www/add_resource.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/www/add_resource.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/www/add_resource.tcl 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,275 @@ + +set user_id [ad_conn user_id] +set community_id [dotlrn_community::get_community_id] + +set URL_PLAYER_FLV "/media/player_flv.swf" +set URL_PLAYER_MP3 "/media/dewplayer.swf" +set URL_LOGO "/media/uvlogo2.jpg" +set apptype "" + +if {[exists_and_not_null community_id]} { + set res [db_0or1row do_select { select *, + (select to_date(begin_date,'YYYY-MM-DD HH24:MI:SS') from dual) as bd, + (select to_date(end_date,'YYYY-MM-DD HH24:MI:SS') from dual) as ed + from mmplayer_items + where community_id = :community_id + and begin_date <= now () + and end_date >= now ()}] + if {$res == 1} { + set ext [string toupper [file extension $url]] + if {[string first "http://www.youtube.com/" $url] == 0} { + #http://www.youtube.com/v/cN7SNjVCOG4 + set ext ".YOUTUBE" + } elseif {[string first "http://video.google.com/" $url] == 0} { + #http://video.google.com/ + set ext ".GOOGLE" + } elseif {[string first "mms://" $url] == 0} { + #mms://147.156.41.66/IN-bib_regla-eng + set ext ".MMS" + } + + if {$enabled_p eq "t"} { + switch -glob $ext { + ".FLV" { + set apptype "application/x-shockwave-flash" + set xhtml "

$title

+ + + + +
$comment
" + } + ".RM" { + set apptype "audio/x-pn-realaudio-plugin" + set xhtml "

$title

+ + + + + + + +
$comment
" + } + ".AAC" - + ".MOV" { + set apptype "" + set xhtml "

$title

+ + + + + + + + + +
$comment
" + } + ".MMS" { + set apptype "application/x-mplayer2" + set xhtml "

$title

+ + + + +
$comment
" + } + ".WMA" - + ".WMV" { + set apptype "application/x-oleobject" + set xhtml "

$title

+ + + + + + + +
$comment
" + } + ".MP3" { + set apptype "application/x-shockwave-flash" + set xhtml "

$title

+ + + +
$comment
" + } + ".AVI" { + set apptype "" + set xhtml "

$title

+ + + + + +
$comment
" + } + ".MPEG" - + ".MPG" { + set apptype "video/mpeg" + set xhtml "

$title

+ + + +
$comment
" + } + ".PDF" { + set apptype "application/pdf" + set xhtml "

$title

+ + + +
$comment
" + } + ".SWF" { + set apptype "application/x-shockwave-flash" + set xhtml "

$title

+ + + + + + + + + + + +
$comment
" + } + ".CLASS" { + set apptype "application/x-java-applet" + set xhtml "

$title

+ + + + This user agent cannot process a java applet. + +
$comment
" + } + ".HTM" - + ".HTML" { + set apptype "text/html" + set xhtml "

$title

+ +
$comment
" + } + ".PNG" - + ".GIF" - + ".JPG" - + ".JPEG" { + set apptype "image/jpeg" + set xhtml "

$title

+ +
$comment
" + } + ".RTF" - + ".DOC" { + set apptype "application/msword" + set xhtml "

$title

+ + + +
$comment
" + } + ".PPT" - + ".PPS" { + set apptype "application/vnd.ms-powerpoint" + set xhtml "

$title

+ + + +
$comment
" + } + ".PS" - + ".EPS" { + set apptype "application/postscript" + set xhtml "

$title

+ + + +
$comment
" + } + ".XLS" { + set apptype "application/vnd.ms-excel" + set xhtml "

$title

+ + + +
$comment
" + } + ".VRML" { + set apptype "model/vrml" + set xhtml "

$title

+ + + +
$comment
" + } + ".YOUTUBE" { + set apptype "application/x-shockwave-flash" + set xhtml "

$title

+ + + + +
$comment
" + } + ".GOOGLE" { + set apptype "application/x-shockwave-flash" + set xhtml "

$title

+ + + + +
$comment
" + } + default { + set apptype "image/jpeg" + set xhtml "

$title

+
Invalid resource to display
+ +
$comment
" + } + } + } else { + #MEDIA NOT ENABLED + set xhtml "" + } + } else { + set xhtml "No media" + } +} else { + #WE MUST SHOW THE RESSUMEN OF ALL CLASSES HERE + set xhtml "RESUMEN" +} + + + + + Index: openacs-4/packages/mmplayer/www/summary.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/www/summary.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/www/summary.adp 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,8 @@ + + + + Index: openacs-4/packages/mmplayer/www/summary.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/www/summary.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/www/summary.tcl 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,4 @@ + +set user_id [ad_conn user_id] +db_multirow communities select_communities { *SQL* } + Index: openacs-4/packages/mmplayer/www/summary.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/www/summary.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/www/summary.xql 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,27 @@ + + + + postgresql7.1 + + + + select dotlrn_communities_all.*, + dotlrn_community__url(dotlrn_communities_all.community_id) as url, + mmp.title as mmptitle, + mmp.comment as comment, + (select to_date(mmp.begin_date,'YYYY-MM-DD HH24:MI:SS') from dual) as bd, + (select to_date(mmp.end_date,'YYYY-MM-DD HH24:MI:SS') from dual) as ed + from dotlrn_communities_all, + dotlrn_member_rels_approved, + mmplayer_items as mmp + where dotlrn_communities_all.community_id = dotlrn_member_rels_approved.community_id + and dotlrn_member_rels_approved.user_id = :user_id + and archived_p = 'f' + and mmp.community_id = dotlrn_communities_all.community_id + and mmp.enabled_p = 't' + and mmp.begin_date <= now () + and mmp.end_date >= now () + + + + Index: openacs-4/packages/mmplayer/www/uvlogo.jpg =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/www/uvlogo.jpg,v diff -u Binary files differ Index: openacs-4/packages/mmplayer/www/uvlogo2.jpg =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/www/uvlogo2.jpg,v diff -u Binary files differ Index: openacs-4/packages/mmplayer/www/admin/setup.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/www/admin/setup.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/www/admin/setup.adp 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,19 @@ + +@title@ +@context@ + + + + + Index: openacs-4/packages/mmplayer/www/admin/setup.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer/www/admin/setup.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer/www/admin/setup.tcl 22 Jun 2006 08:34:42 -0000 1.1 @@ -0,0 +1,58 @@ +ad_page_contract { +} { + {__new_p 0} +} + +set title "#mmplayer-portlet.Manage_MMPlayer#" +set context [list $title] + +set community_id [dotlrn_community::get_community_id] +set url "" +set xtitle "" +set comment "" +set enabled_p "t" +set dcommunity_id [db_string do_select "select community_id from mmplayer_items where community_id = :community_id" -default "-1"] +if {$dcommunity_id == -1} { + db_dml do_insert "insert into mmplayer_items (url, title, comment, enabled_p, community_id) + values (:url, :xtitle, :comment, :enabled_p, :community_id)" +} + +ad_form -name select_item -form { + {url:text,optional {label "#mmplayer.url#"} {html { size 50 maxlength 1000}}} + {xtitle:text,optional {label "#mmplayer.title#"} {html { size 50 maxlength 200}}} + {comment:text,optional {label "#mmplayer.comment#"} {html { size 100 maxlength 500}}} + {enabled_p:boolean(radio),optional {label "#mmplayer.enabled#"} {options {{Si t} {No f}}} {value "t"}} + {width:integer,optional {label "#mmplayer.width#"} {html { size 5 maxlength 5}}} + {height:integer,optional {label "#mmplayer.height#"} {html { size 5 maxlength 5}}} + {begin_date:date,to_sql(linear_date),from_sql(sql_date),optional + {label "[_ mmplayer.begin_date]"} + {format "MONTH DD YYYY HH24 MI SS"} + {help} + } + {end_date:date,to_sql(linear_date),from_sql(sql_date),optional + {label "[_ mmplayer.end_date]"} + {format "MONTH DD YYYY HH24 MI SS"} + {help} + } + {submit:text(submit) {label "[_ mmplayer.ok]"}} +} -on_request { + db_1row do_select { select * from mmplayer_items where community_id = :community_id } + set begin_date [template::util::date::from_ansi $begin_date "YYYY-MM-DD HH24:MI:SS"] + set end_date [template::util::date::from_ansi $end_date "YYYY-MM-DD HH24:MI:SS"] +} -edit_request { + db_1row do_select { select * from mmplayer_items where community_id = :community_id } + set begin_date [template::util::date::from_ansi $begin_date "YYYY-MM-DD HH24:MI:SS"] + set end_date [template::util::date::from_ansi $end_date "YYYY-MM-DD HH24:MI:SS"] +} -new_data { +} -edit_data { + db_dml do_update "update mmplayer_items + set url= :url, title= :xtitle, comment= :comment, enabled_p= :enabled_p, width= :width, height= :height, + begin_date= (select to_date(:begin_date,'YYYY-MM-DD HH24:MI:SS') from dual), + end_date= (select to_date(:end_date,'YYYY-MM-DD HH24:MI:SS') from dual) + where community_id = :community_id" +} -after_submit { + ad_returnredirect "../../one-community-admin" + ad_script_abort +} + + Index: openacs-4/packages/mmplayer-portlet/mmplayer-portlet.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/mmplayer-portlet.info,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/mmplayer-portlet.info 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,26 @@ + + + + + MMPlayer Portlet + MMPlayer Portlets + f + t + + + OpenACS + 2006-05-15 + OpenACS + 0 + + + + + + + + + + + + Index: openacs-4/packages/mmplayer-portlet/catalog/mmplayer-portlet.ca_ES.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/catalog/mmplayer-portlet.ca_ES.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/catalog/mmplayer-portlet.ca_ES.ISO-8859-1.xml 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,8 @@ + + + + Add one resource + Administraci� de MMPlayer + Admin MMPlayer + MMPlayer + Index: openacs-4/packages/mmplayer-portlet/catalog/mmplayer-portlet.en_US.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/catalog/mmplayer-portlet.en_US.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/catalog/mmplayer-portlet.en_US.ISO-8859-1.xml 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,8 @@ + + + + Add one resource + MMPlayer Administration + Admin MMPlayer + MMPlayer + Index: openacs-4/packages/mmplayer-portlet/catalog/mmplayer-portlet.es_ES.ISO-8859-1.xml =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/catalog/mmplayer-portlet.es_ES.ISO-8859-1.xml,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/catalog/mmplayer-portlet.es_ES.ISO-8859-1.xml 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,8 @@ + + + + Agregar un recurso + Administraci�n de MMPlayer + Administrar MMPlayer + MMPlayer + Index: openacs-4/packages/mmplayer-portlet/sql/postgresql/mmplayer-admin-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/sql/postgresql/mmplayer-admin-portlet-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/sql/postgresql/mmplayer-admin-portlet-create.sql 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,158 @@ + +create function inline_0() +returns integer as ' +declare + ds_id portal_datasources.datasource_id%TYPE; +begin + + ds_id = portal_datasource__new( ''mmplayer_admin_portlet'', ''MMPlayer Admin portlet''); + + + -- the standard 4 params + + -- shadeable_p + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''t'', + ''shadeable_p'', + ''f'' +); + + + -- hideable_p + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''t'', + ''hideable_p'', + ''f'' +); + + -- user_editable_p + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''t'', + ''user_editable_p'', + ''f'' +); + + -- shaded_p + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''t'', + ''shaded_p'', + ''f'' +); + + -- link_hideable_p + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''t'', + ''link_hideable_p'', + ''t'' +); + +-- mmplayer_admin-specific params + + -- package_id must be configured + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''f'', + ''package_id'', + '''' +); + + return 0; + +end;' language 'plpgsql'; + +select inline_0(); +drop function inline_0(); + + +create function inline_1() +returns integer as ' +begin + + -- create the implementation + perform acs_sc_impl__new ( + ''portal_datasource'', + ''mmplayer_admin_portlet'', + ''mmplayer_admin_portlet'' + ); + + -- add all the hooks + perform acs_sc_impl_alias__new( + ''portal_datasource'', + ''mmplayer_admin_portlet'', + ''GetMyName'', + ''mmplayer_admin_portlet::get_my_name'', + ''TCL'' + ); + + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_admin_portlet'', + ''GetPrettyName'', + ''mmplayer_admin_portlet::get_pretty_name'', + ''TCL'' + ); + + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_admin_portlet'', + ''Link'', + ''mmplayer_admin_portlet::link'', + ''TCL'' + ); + + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_admin_portlet'', + ''AddSelfToPage'', + ''mmplayer_admin_portlet::add_self_to_page'', + ''TCL'' + ); + + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_admin_portlet'', + ''Show'', + ''mmplayer_admin_portlet::show'', + ''TCL'' + ); + + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_admin_portlet'', + ''Edit'', + ''mmplayer_admin_portlet::edit'', + ''TCL'' + ); + + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_admin_portlet'', + ''RemoveSelfFromPage'', + ''mmplayer_admin_portlet::remove_self_from_page'', + ''TCL'' + ); + + -- Add the binding + perform acs_sc_binding__new ( + ''portal_datasource'', + ''mmplayer_admin_portlet'' + ); + + return 0; +end;' language 'plpgsql'; + +select inline_1(); +drop function inline_1(); + + Index: openacs-4/packages/mmplayer-portlet/sql/postgresql/mmplayer-admin-portlet-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/sql/postgresql/mmplayer-admin-portlet-drop.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/sql/postgresql/mmplayer-admin-portlet-drop.sql 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,83 @@ + +create function inline_0 () +returns integer as ' +declare + ds_id portal_datasources.datasource_id%TYPE; +begin + + select datasource_id into ds_id + from portal_datasources + where name = ''mmplayer_admin_portlet''; + + if not found then + raise exception ''No datasource_id found here '',ds_id ; + ds_id := null; + end if; + + + if ds_id is NOT null then + perform portal_datasource__delete(ds_id); + end if; + +return 0; + +end;' language 'plpgsql'; + +select inline_0 (); + +drop function inline_0 (); + +-- create the implementation +select acs_sc_impl__delete ( + 'portal_datasource', + 'mmplayer_admin_portlet' +); + +-- delete all the hooks +select acs_sc_impl_alias__delete ( + 'portal_datasource', + 'mmplayer_admin_portlet', + 'GetMyName' +); + +select acs_sc_impl_alias__delete ( + 'portal_datasource', + 'mmplayer_admin_portlet', + 'GetPrettyName' +); + +select acs_sc_impl_alias__delete ( + 'portal_datasource', + 'mmplayer_admin_portlet', + 'Link' +); + +select acs_sc_impl_alias__delete ( + 'portal_datasource', + 'mmplayer_admin_portlet', + 'AddSelfToPage' +); + +select acs_sc_impl_alias__delete ( + 'portal_datasource', + 'mmplayer_admin_portlet', + 'Show' +); + +select acs_sc_impl_alias__delete ( + 'portal_datasource', + 'mmplayer_admin_portlet', + 'Edit' +); + +select acs_sc_impl_alias__delete ( + 'portal_datasource', + 'mmplayer_admin_portlet', + 'RemoveSelfFromPage' +); + +-- Add the binding +select acs_sc_binding__delete ( + 'portal_datasource', + 'mmplayer_admin_portlet' +); Index: openacs-4/packages/mmplayer-portlet/sql/postgresql/mmplayer-portlet-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/sql/postgresql/mmplayer-portlet-create.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/sql/postgresql/mmplayer-portlet-create.sql 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,163 @@ + +create function inline_0() +returns integer as ' +declare + ds_id portal_datasources.datasource_id%TYPE; +begin + + ds_id = portal_datasource__new( + ''mmplayer_portlet'', -- Name + ''MMPlayer portlet'' -- description + ); + + -- the standard 4 params + + -- shadeable_p + perform portal_datasource__set_def_param ( + ds_id, -- datasource_id + ''t'', -- config_required_p + ''t'', -- configured_p + ''shadeable_p'', -- key + ''t'' -- value +); + + + -- hideable_p + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''t'', + ''hideable_p'', + ''t'' +); + + -- user_editable_p + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''t'', + ''user_editable_p'', + ''f'' +); + + -- shaded_p + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''t'', + ''shaded_p'', + ''f'' +); + + -- link_hideable_p + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''t'', + ''link_hideable_p'', + ''t'' +); + +-- mmplayer-specific params + + -- community_id must be configured + perform portal_datasource__set_def_param ( + ds_id, + ''t'', + ''f'', + ''package_id'', + '''' +); + + return 0; + +end;' language 'plpgsql'; + +select inline_0(); + +drop function inline_0(); + + +create function inline_1() +returns integer as ' +begin + + -- create the implementation + perform acs_sc_impl__new ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''mmplayer_portlet'' + ); + + -- add all the hooks + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''GetMyName'', + ''mmplayer_portlet::get_my_name'', + ''TCL'' + ); + + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''GetPrettyName'', + ''mmplayer_portlet::get_pretty_name'', + ''TCL'' + ); + + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''Link'', + ''mmplayer_portlet::link'', + ''TCL'' + ); + + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''AddSelfToPage'', + ''mmplayer_portlet::add_self_to_page'', + ''TCL'' + ); + + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''Show'', + ''mmplayer_portlet::show'', + ''TCL'' + ); + + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''Edit'', + ''mmplayer_portlet::edit'', + ''TCL'' + ); + + perform acs_sc_impl_alias__new ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''RemoveSelfFromPage'', + ''mmplayer_portlet::remove_self_from_page'', + ''TCL'' + ); + + -- Add the binding + perform acs_sc_binding__new ( + ''portal_datasource'', + ''mmplayer_portlet'' + ); + + return 0; +end;' language 'plpgsql'; + +select inline_1(); + +drop function inline_1(); + + +\i mmplayer-admin-portlet-create.sql Index: openacs-4/packages/mmplayer-portlet/sql/postgresql/mmplayer-portlet-drop.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/sql/postgresql/mmplayer-portlet-drop.sql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/sql/postgresql/mmplayer-portlet-drop.sql 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,87 @@ + +create function inline_1() +returns integer as ' +declare + ds_id portal_datasources.datasource_id%TYPE; +begin + + select datasource_id into ds_id + from portal_datasources + where name = ''mmplayer_portlet''; + + if not found then + RAISE EXCEPTION '' No datasource id found '', ds_id; + ds_id := null; + end if; + + if ds_id is NOT null then + perform portal_datasource__delete(ds_id); + end if; + + -- drop the hooks + perform acs_sc_impl_alias__delete ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''GetMyName'' + ); + + perform acs_sc_impl_alias__delete ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''GetPrettyName'' + ); + + + perform acs_sc_impl_alias__delete ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''Link'' + ); + + perform acs_sc_impl_alias__delete ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''AddSelfToPage'' + ); + + perform acs_sc_impl_alias__delete ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''Show'' + ); + + perform acs_sc_impl_alias__delete ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''Edit'' + ); + + perform acs_sc_impl_alias__delete ( + ''portal_datasource'', + ''mmplayer_portlet'', + ''RemoveSelfFromPage'' + ); + + -- Drop the binding + perform acs_sc_binding__delete ( + ''portal_datasource'', + ''mmplayer_portlet'' + ); + + -- drop the impl + perform acs_sc_impl__delete ( + ''portal_datasource'', + ''mmplayer_portlet'' + ); + + return 0; +end;' language 'plpgsql'; + +select inline_1(); +drop function inline_1(); + +\i mmplayer-admin-portlet-drop.sql + + + + Index: openacs-4/packages/mmplayer-portlet/tcl/mmplayer-admin-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/tcl/mmplayer-admin-portlet-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/tcl/mmplayer-admin-portlet-procs.tcl 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,71 @@ + +ad_library { + + Procedures to support the mmplayer admin portlet + +} + +namespace eval mmplayer_admin_portlet { + + ad_proc -private get_my_name { + } { + return "mmplayer_admin_portlet" + } + + ad_proc -public get_pretty_name { + } { + return "#mmplayer-portlet.admin_pretty_name#" + } + + ad_proc -private my_package_key { + } { + return "mmplayer-portlet" + } + + ad_proc -public link { + } { + return "" + } + + ad_proc -public add_self_to_page { + {-portal_id:required} + {-page_name ""} + {-package_id:required} + } { + Adds a mmplayer admin PE to the given portal + + @param portal_id The page to add self to + @param package_id The package_id of the mmplayer package + + @return element_id The new element's id + } { + return [portal::add_element_parameters \ + -portal_id $portal_id \ + -portlet_name [get_my_name] \ + -key package_id \ + -value $package_id + ] + } + + ad_proc -public remove_self_from_page { + {-portal_id:required} + } { + Removes a mmplayer admin PE from the given page + } { + portal::remove_element \ + -portal_id $portal_id \ + -portlet_name [get_my_name] + } + + ad_proc -public show { + cf + } { + } { + portal::show_proc_helper \ + -package_key [my_package_key] \ + -config_list $cf \ + -template_src "mmplayer-admin-portlet" + + } + +} Index: openacs-4/packages/mmplayer-portlet/tcl/mmplayer-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/tcl/mmplayer-portlet-procs.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/tcl/mmplayer-portlet-procs.tcl 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,88 @@ + +ad_library { + + Procedures to support the mmplayer portlet + +} + +namespace eval mmplayer_portlet { + + ad_proc -private get_my_name { + } { + return "mmplayer_portlet" + } + + ad_proc -private my_package_key { + } { + return "mmplayer-portlet" + } + + ad_proc -public get_pretty_name { + } { + return "#mmplayer-portlet.pretty_name#" + } + + ad_proc -public get_summary_length { + } { + return [parameter::get_from_package_key \ + -package_key [my_package_key] \ + -parameter mmplayer_portlet_summary_length + ] + } + + ad_proc -public link { + } { + return "" + } + + ad_proc -public add_self_to_page { + {-portal_id:required} + {-package_id:required} + {-param_action:required} + } { + Adds a mmplayer PE to the given portal. + + @param portal_id The page to add self to + @param package_id The community with the folder + + @return element_id The new element's id + } { + return [portal::add_element_parameters \ + -portal_id $portal_id \ + -portlet_name [get_my_name] \ + -value $package_id \ + -force_region [parameter::get_from_package_key \ + -parameter "mmplayer_portlet_force_region" \ + -package_key [my_package_key]] \ + -pretty_name [get_pretty_name] \ + -param_action $param_action + ] + } + + ad_proc -public remove_self_from_page { + {-portal_id:required} + {-package_id:required} + } { + Removes a mmplayer PE from the given page or the package_id of the + mmplayer package from the portlet if there are others remaining + + @param portal_id The page to remove self from + @param package_id + } { + portal::remove_element_parameters \ + -portal_id $portal_id \ + -portlet_name [get_my_name] \ + -value $package_id + } + + ad_proc -public show { + cf + } { + } { + portal::show_proc_helper \ + -package_key [my_package_key] \ + -config_list $cf \ + -template_src "mmplayer-portlet" + } + +} Index: openacs-4/packages/mmplayer-portlet/www/mmplayer-admin-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/www/mmplayer-admin-portlet.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/www/mmplayer-admin-portlet.adp 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,24 @@ +<% + + # + # Copyright (C) 2001, 2002 MIT + # + # This file is part of dotLRN. + # + # dotLRN is free software; you can redistribute it and/or modify it under the + # terms of the GNU General Public License as published by the Free Software + # Foundation; either version 2 of the License, or (at your option) any later + # version. + # + # dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY + # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS + # FOR A PARTICULAR PURPOSE. See the GNU General Public License for more + # details. + # + +%> + + + Index: openacs-4/packages/mmplayer-portlet/www/mmplayer-admin-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/www/mmplayer-admin-portlet.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/www/mmplayer-admin-portlet.tcl 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,41 @@ +# +# Copyright (C) 2001, 2002 MIT +# +# This file is part of dotLRN. +# +# dotLRN is free software; you can redistribute it and/or modify it under the +# terms of the GNU General Public License as published by the Free Software +# Foundation; either version 2 of the License, or (at your option) any later +# version. +# +# dotLRN is distributed in the hope that it will be useful, but WITHOUT ANY +# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS +# FOR A PARTICULAR PURPOSE. See the GNU General Public License for more +# details. +# + +# www/mmplayer-portlet.tcl +ad_page_contract { + The display logic for the mmplayer portlet + + @author Arjun Sanyal (arjun@openforce.net) + @author Ben Adida (ben@openforce) + @cvs_id $Id: mmplayer-admin-portlet.tcl,v 1.1 2006/06/22 08:35:31 darior Exp $ +} -properties { + +} + +array set config $cf +set user_id [ad_conn user_id] +set list_of_package_ids $config(package_id) + +if {[llength $list_of_package_ids] > 1} { + # We have a problem! + return -code error "There should be only one instance of mmplayer for admin purposes" +} + +set package_id [lindex $list_of_package_ids 0] + +set url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0] + +ad_return_template Index: openacs-4/packages/mmplayer-portlet/www/mmplayer-portlet-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/www/mmplayer-portlet-postgresql.xql,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/www/mmplayer-portlet-postgresql.xql 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,6 @@ + + + +postgresql7.1 + + Index: openacs-4/packages/mmplayer-portlet/www/mmplayer-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/www/mmplayer-portlet.adp,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/www/mmplayer-portlet.adp 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,9 @@ + + + + + + + + + Index: openacs-4/packages/mmplayer-portlet/www/mmplayer-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/mmplayer-portlet/www/mmplayer-portlet.tcl,v diff -u --- /dev/null 1 Jan 1970 00:00:00 -0000 +++ openacs-4/packages/mmplayer-portlet/www/mmplayer-portlet.tcl 22 Jun 2006 08:35:31 -0000 1.1 @@ -0,0 +1,24 @@ +ad_page_contract { +} { +} -properties { +} + +array set config $cf +set shaded_p $config(shaded_p) + +set list_of_package_ids $config(package_id) +set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0] + +set mmplayer_url [ad_conn package_url] +set comm_id [dotlrn_community::get_community_id_from_url -url $mmplayer_url] + +if {[exists_and_not_null comm_id]} { + set root_id [ad_conn node_id] + set user_id [ad_conn user_id] + set inside_comm_p 1 +} else { + set inside_comm_p 0 +} + +ad_return_template +