+ @page_title;noquote@
+ @context;noquote@
+
+
+
+You can update the title and content of this page below.
+Clicking on "OK" will make a new revision which will appear first in the
+list of revisions for this content includelet. Afterwards, you can review the
+changes made by clicking on "View". Clicking on "Publish" will then make
+the currently viewed version of the content "live".
+
+
+ |
+
+ Live Version |
+
+ internal version id: @live_revision@ |
+ view |
+ unpublish
+ |
+
+ Create a new revision from the live revision:
+
+ |
+
+
+
+ There is no live version - create a new revision:
+
+ |
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+@revisions.revision_id@
+
+ |
+Title: @revisions.title@
+Description: @revisions.description@
+Published: @revisions.publish_date@
+Author: @revisions.author@
+ |
+
+
+view |
+edit |
+
+delete |
+publish
+
+
+unpublish
+
+
+ |
+
+
+
+
+
+
Index: openacs-4/packages/content-includelet/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-includelet/www/admin/index.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-includelet/www/admin/index.tcl 11 Jul 2008 16:38:55 -0000 1.1
@@ -0,0 +1,30 @@
+ad_page_contract {
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2007-01-14
+
+ Displays all options for editing a content includelet's content.
+
+} {
+ item_id:integer,notnull
+ element_id:integer,notnull
+} -properties {
+}
+
+set package_id [ad_conn package_id]
+set live_revision [content::item::get_live_revision -item_id $item_id]
+set context [list Administer]
+
+set page_title "Manage Content"
+set name "Content Name"
+
+db_multirow -extend {author_url} revisions revisions {
+ select r.*, p.first_names || ' ' || p.last_name as author,
+ p.person_id as user_id
+ from cr_revisions r, persons p, acs_objects o
+ where r.item_id = :item_id
+ and o.object_id = r.revision_id
+ and p.person_id = o.creation_user
+ order by r.revision_id desc
+} {
+ set author_url [export_vars -base /shared/community-member {user_id}]
+}
Index: openacs-4/packages/content-includelet/www/admin/publish.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-includelet/www/admin/publish.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-includelet/www/admin/publish.tcl 11 Jul 2008 16:38:55 -0000 1.1
@@ -0,0 +1,14 @@
+ad_page_contract {
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2007-01-14
+
+ Set this revision to be live
+
+} {
+ item_id:integer,notnull
+ revision_id:integer,notnull
+}
+
+content::item::set_live_revision -revision_id $revision_id
+
+ad_returnredirect index?[ad_conn query]
Index: openacs-4/packages/content-includelet/www/admin/unpublish.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-includelet/www/admin/unpublish.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-includelet/www/admin/unpublish.tcl 11 Jul 2008 16:38:55 -0000 1.1
@@ -0,0 +1,14 @@
+ad_page_contract {
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @creation-date 2007-01-14
+
+ Unpublish this item
+
+} {
+ item_id:integer,notnull
+}
+
+db_dml q {update cr_items set live_revision = null where item_id = :item_id}
+
+ad_returnredirect index?[ad_conn query]
Index: openacs-4/packages/content-includelet/www/admin/view.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-includelet/www/admin/view.adp,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-includelet/www/admin/view.adp 11 Jul 2008 16:38:55 -0000 1.1
@@ -0,0 +1,9 @@
+
+ View Content
+ @context@
+
+
+The portlet appears as it would be rendered in a page with a single column.
+
+
+
Index: openacs-4/packages/content-includelet/www/admin/view.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/content-includelet/www/admin/view.tcl,v
diff -u
--- /dev/null 1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/content-includelet/www/admin/view.tcl 11 Jul 2008 16:38:55 -0000 1.1
@@ -0,0 +1,11 @@
+ad_page_contract {
+ View a revision of the content portlet's content.
+
+ @author Don Baccus (dhogaza@pacifier.com)
+ @cvs_id $Id: view.tcl,v 1.1 2008/07/11 16:38:55 donb Exp $
+} {
+ revision_id:integer,notnull
+ element_id:integer,notnull
+}
+
+set context View