Index: openacs-4/packages/dotlrn-wps/www/wps-admin-portlet-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-wps/www/Attic/wps-admin-portlet-oracle.xql,v diff -u -N --- openacs-4/packages/dotlrn-wps/www/wps-admin-portlet-oracle.xql 25 Sep 2003 16:35:43 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,23 +0,0 @@ - - - - oracle8.1.6 - - - - - select i.item_id as pres_item_id, - p.pres_title as title, - acs_permission.permission_p(i.item_id, :user_id, 'admin') as admin_p, - to_char(ao.creation_date, 'Month DD, YYYY') as creation_date - from cr_items i, cr_wp_presentations p, acs_objects ao - where i.live_revision = p.presentation_id - and ao.object_id = i.item_id - and ao.creation_user = :user_id - and ao.context_id = :package_id - - - - - - Index: openacs-4/packages/dotlrn-wps/www/wps-admin-portlet-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-wps/www/Attic/wps-admin-portlet-postgresql.xql,v diff -u -N --- openacs-4/packages/dotlrn-wps/www/wps-admin-portlet-postgresql.xql 25 Sep 2003 16:35:43 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,23 +0,0 @@ - - - - postgresql7.1 - - - - - select i.item_id as pres_item_id, - p.pres_title as title, - acs_permission__permission_p(i.item_id, :user_id, 'admin') as admin_p, - to_char(ao.creation_date, 'Month DD, YYYY') as creation_date - from cr_items i, cr_wp_presentations p, acs_objects ao - where i.live_revision = p.presentation_id - and ao.object_id = i.item_id - and ao.creation_user = :user_id - and ao.context_id = :package_id - - - - - - Index: openacs-4/packages/dotlrn-wps/www/wps-admin-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-wps/www/Attic/wps-admin-portlet.adp,v diff -u -N --- openacs-4/packages/dotlrn-wps/www/wps-admin-portlet.adp 25 Sep 2003 16:35:43 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,19 +0,0 @@ -<% -# @author Rocael Hernandez (roc@viaro.net) -%> - - - - - No Presentations Available - -
- Create a new presentation. Index: openacs-4/packages/dotlrn-wps/www/wps-admin-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-wps/www/Attic/wps-admin-portlet.tcl,v diff -u -N --- openacs-4/packages/dotlrn-wps/www/wps-admin-portlet.tcl 25 Sep 2003 16:35:43 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,42 +0,0 @@ -ad_page_contract { - @author Rocael Hernandez (roc@viaro.net) - @creation-date 2003-05-24 - -} -properties { - -} - -# Configuration -array set config $cf - -# Should be a list already! -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 Wimpy Point for admin purposes" -} - -set package_id [lindex $list_of_package_ids 0] - - -set user_id [ad_verify_and_get_user_id] - - -db_multirow presentations select_presentations { - - select i.item_id as pres_item_id, - p.pres_title as title, - acs_permission__permission_p(i.item_id, :user_id, 'admin') as admin_p, - to_char(ao.creation_date, 'Month DD, YYYY') as creation_date - from cr_items i, cr_wp_presentations p, acs_objects ao - where i.live_revision = p.presentation_id - and ao.object_id = i.item_id - and ao.creation_user = :user_id - and ao.context_id = :package_id - -} - -set url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0] - -ad_return_template Index: openacs-4/packages/dotlrn-wps/www/wps-portlet-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-wps/www/Attic/wps-portlet-oracle.xql,v diff -u -N --- openacs-4/packages/dotlrn-wps/www/wps-portlet-oracle.xql 25 Sep 2003 16:35:43 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,22 +0,0 @@ - - - - oracle8.1.6 - - - - select o.context_id as package_id, i.item_id as pres_item_id, - acs_object.name(apm_package.parent_id(o.context_id)) as parent_name, - p.pres_title, (select site_node.url(site_nodes.node_id) from site_nodes where site_nodes.object_id = o.context_id) as url - from cr_items i, cr_wp_presentations p , acs_objects o - where o.context_id in ( [join $list_of_package_ids ", "] ) - and p.presentation_id = i.live_revision - and i.item_id = o.object_id - and p.public_p = 't' - order by i.item_id desc, pres_title - - - - - - Index: openacs-4/packages/dotlrn-wps/www/wps-portlet-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-wps/www/Attic/wps-portlet-postgresql.xql,v diff -u -N --- openacs-4/packages/dotlrn-wps/www/wps-portlet-postgresql.xql 25 Sep 2003 16:35:43 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,22 +0,0 @@ - - - - postgresql7.1 - - - - select o.context_id as package_id, i.item_id as pres_item_id, - acs_object__name(apm_package__parent_id(o.context_id)) as parent_name, - p.pres_title, (select site_node__url(site_nodes.node_id) from site_nodes where site_nodes.object_id = o.context_id) as url - from cr_items i, cr_wp_presentations p , acs_objects o - where o.context_id in ( [join $list_of_package_ids ", "] ) - and p.presentation_id = i.live_revision - and i.item_id = o.object_id - and p.public_p = 't' - order by i.item_id desc, pres_title - - - - - - Index: openacs-4/packages/dotlrn-wps/www/wps-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-wps/www/Attic/wps-portlet.adp,v diff -u -N --- openacs-4/packages/dotlrn-wps/www/wps-portlet.adp 25 Sep 2003 16:35:43 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,68 +0,0 @@ -<% -# @author Rocael Hernandez (roc@viaro.net) -%> - - - - <% - set new_package_id "" - set old_package_id "" - %> - - - - - - - - - <% set new_package_id $presentations(package_id) %> - - - - -
  • - @presentations.pres_title@ -  [ Print View ] -
    • -     - - - - - - - - - - - - - <% set old_package_id $new_package_id %> - - - - - -
    NameGroup
    @presentations.pres_title@ -  [ Print View ] - @presentations.parent_name@
    -     -     - - -
  • - @presentation_name@ -  [ Print View ] -
    • -     - - No Presentations Available - -     -     - -  - - - Index: openacs-4/packages/dotlrn-wps/www/wps-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/dotlrn-wps/www/Attic/wps-portlet.tcl,v diff -u -N --- openacs-4/packages/dotlrn-wps/www/wps-portlet.tcl 25 Sep 2003 16:35:43 -0000 1.1 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,35 +0,0 @@ -ad_page_contract { - @author Rocael Hernandez (roc@viaro.net) - @creation-date 2003-05-24 - -} -properties { - -} - -array set config $cf - -set shaded_p $config(shaded_p) -set list_of_package_ids $config(package_id) -set package_id [lindex $list_of_package_ids 0] -set one_instance_p [ad_decode [llength $list_of_package_ids] 1 1 0] -set user_id [ad_verify_and_get_user_id] - -set counter 0 -db_multirow presentations select_presentations { *SQL* } { - incr counter - # we don't want to fill the users portlet with 1000 presentations! roc@viaro.net - # specially true in users portal page, we do it this way because the lack of oracle - # on limiting the amount of rows returned - if {$counter > 25} {break} -} - -if {${presentations:rowcount} == 1} { - set presentation_name [lindex [array get {presentations:1} pres_title] 1] - set presentation_url [lindex [array get {presentations:1} url] 1] - set presentation_id [lindex [array get {presentations:1} pres_item_id] 1] - -} - - - -