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 ""
- %>
-
-
-
-
-
-
-
- @presentation_name@
- [ Print View ]
-
-
-
- No Presentations Available
-
-
-
-
-
-
-
-
+<%
+# @author Rocael Hernandez (roc@viaro.net)
+%>
+
+
+
+ <%
+ set new_package_id ""
+ set old_package_id ""
+ %>
+
+
+
+
+
+
+
+ @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]
+
+}
+
+
+
+