Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/wps-portlet/catalog/wps-portlet.en_US.ISO-8859-1.xml'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/wps-portlet/catalog/wps-portlet.es_ES.ISO-8859-1.xml'. Fisheye: No comparison available. Pass `N' to diff? Fisheye: Tag 1.1 refers to a dead (removed) revision in file `openacs-4/packages/wps-portlet/catalog/wps-portlet.es_GT.ISO-8859-1.xml'. Fisheye: No comparison available. Pass `N' to diff? Index: openacs-4/packages/wps-portlet/tcl/wps-admin-portlet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wps-portlet/tcl/wps-admin-portlet-procs.tcl,v diff -u -r1.1.1.1 -r1.1.1.1.6.1 --- openacs-4/packages/wps-portlet/tcl/wps-admin-portlet-procs.tcl 25 Sep 2003 16:36:56 -0000 1.1.1.1 +++ openacs-4/packages/wps-portlet/tcl/wps-admin-portlet-procs.tcl 2 Feb 2005 17:33:08 -0000 1.1.1.1.6.1 @@ -33,7 +33,7 @@ ad_proc -public get_pretty_name { } { - return "Wimpy Point Administration" + return "[_ wps-portlet.Administration]" } ad_proc -private my_package_key { Index: openacs-4/packages/wps-portlet/www/wps-admin-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wps-portlet/www/wps-admin-portlet.adp,v diff -u -r1.1.1.1 -r1.1.1.1.6.1 --- openacs-4/packages/wps-portlet/www/wps-admin-portlet.adp 25 Sep 2003 16:36:56 -0000 1.1.1.1 +++ openacs-4/packages/wps-portlet/www/wps-admin-portlet.adp 2 Feb 2005 17:33:08 -0000 1.1.1.1.6.1 @@ -1,19 +1,19 @@ -<% -# @author Rocael Hernandez (roc@viaro.net) -%> - - - - - No Presentations Available - -
- Create a new presentation. +<% +# @author Rocael Hernandez (roc@viaro.net) +%> + + + + + #wps-portlet.lt_No_Presentations_Avai# + +
+ #wps-portlet.lt_Create_a_new_presenta# + Index: openacs-4/packages/wps-portlet/www/wps-admin-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wps-portlet/www/wps-admin-portlet.tcl,v diff -u -r1.1.1.1 -r1.1.1.1.6.1 --- openacs-4/packages/wps-portlet/www/wps-admin-portlet.tcl 25 Sep 2003 16:36:56 -0000 1.1.1.1 +++ openacs-4/packages/wps-portlet/www/wps-admin-portlet.tcl 2 Feb 2005 17:33:08 -0000 1.1.1.1.6.1 @@ -1,42 +1,42 @@ -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 +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/wps-portlet/www/wps-portlet.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wps-portlet/www/wps-portlet.adp,v diff -u -r1.1.1.1 -r1.1.1.1.6.1 --- openacs-4/packages/wps-portlet/www/wps-portlet.adp 25 Sep 2003 16:36:56 -0000 1.1.1.1 +++ openacs-4/packages/wps-portlet/www/wps-portlet.adp 2 Feb 2005 17:33:08 -0000 1.1.1.1.6.1 @@ -1,68 +1,69 @@ -<% -# @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 - -
    -
    - -  - - - +<% +# @author Rocael Hernandez (roc@viaro.net) +%> + + + + <% + set new_package_id "" + set old_package_id "" + %> + + + + + + + + + <% set new_package_id $presentations(package_id) %> + + + + +
  • + @presentations.pres_title@ +  [ #wps-portlet.Print_View# ] +
  • +
    + + + + + + + + + + + + + <% set old_package_id $new_package_id %> + + + + + +
    #wps-portlet.Name##wps-portlet.Group#
    @presentations.pres_title@ +  [ #wps-portlet.Print_View# ] + @presentations.parent_name@
    +
    +
    + + +
  • + @presentation_name@ +  [ #wps-portlet.Print_View# ] +
  • +
    + + #wps-portlet.lt_No_Presentations_Avai# + +
    +
    + +  + + + + Index: openacs-4/packages/wps-portlet/www/wps-portlet.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wps-portlet/www/wps-portlet.tcl,v diff -u -r1.1.1.1 -r1.1.1.1.6.1 --- openacs-4/packages/wps-portlet/www/wps-portlet.tcl 25 Sep 2003 16:36:56 -0000 1.1.1.1 +++ openacs-4/packages/wps-portlet/www/wps-portlet.tcl 2 Feb 2005 17:33:08 -0000 1.1.1.1.6.1 @@ -1,35 +1,35 @@ -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] - -} - - - - +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] + +} + + + +