Index: openacs-4/packages/wp-slim/www/create-presentation-2-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-presentation-2-oracle.xql,v diff -u -N --- openacs-4/packages/wp-slim/www/create-presentation-2-oracle.xql 7 Sep 2004 23:34:52 -0000 1.3 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,56 +0,0 @@ - - - - oracle8.1.6 - - - - - begin - :1 := wp_presentation.new( - creation_user => :user_id, - creation_ip => :creation_ip, - creation_date => sysdate, - pres_title => :pres_title, - page_signature => :page_signature, - copyright_notice => :copyright_notice, - style => :style, - public_p => :public_p, - show_modified_p => :show_modified_p, - audience => :audience, - background => :background, - parent_id => :package_id, - package_id => :package_id - ); - end; - - - - - - - - - begin - acs_permission.grant_permission(:pres_item_id,:user_id,'wp_admin_presentation'); - acs_permission.grant_permission(:pres_item_id,:user_id,'wp_view_presentation'); - acs_permission.grant_permission(:pres_item_id,:user_id,'wp_edit_presentation'); - acs_permission.grant_permission(:pres_item_id,:user_id,'wp_delete_presentation'); - end; - - - - - - - - - begin - acs_permission.grant_permission(:pres_item_id,acs.magic_object_id('the_public'),'wp_view_presentation'); - end; - - - - - - Index: openacs-4/packages/wp-slim/www/create-presentation-2-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-presentation-2-postgresql.xql,v diff -u -N --- openacs-4/packages/wp-slim/www/create-presentation-2-postgresql.xql 7 Sep 2004 23:34:52 -0000 1.4 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,48 +0,0 @@ - - - - postgresql7.1 - - - - - select wp_presentation__new( - now(), - :user_id, - :creation_ip, - :pres_title, - :page_signature, - :copyright_notice, - :style, - :public_p, - :show_modified_p, - :audience, - :background, - :package_id, - :package_id - ); - - - - - - - begin - perform acs_permission__grant_permission(:pres_item_id,:user_id,'wp_admin_presentation'); - perform acs_permission__grant_permission(:pres_item_id,:user_id,'wp_view_presentation'); - perform acs_permission__grant_permission(:pres_item_id,:user_id,'wp_edit_presentation'); - perform acs_permission__grant_permission(:pres_item_id,:user_id,'wp_delete_presentation'); - return 0; - end; - - - - - - - select acs_permission__grant_permission(:pres_item_id,acs__magic_object_id('the_public'),'wp_view_presentation'); - - - - - Index: openacs-4/packages/wp-slim/www/create-presentation-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-presentation-2.tcl,v diff -u -N --- openacs-4/packages/wp-slim/www/create-presentation-2.tcl 13 Mar 2002 22:50:53 -0000 1.4 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,31 +0,0 @@ -ad_page_contract { - - @author Paul Konigsberg (paul@arsdigita.com) - @creation-date Thu Nov 9 20:44:46 2000 - @cvs-id $Id: create-presentation-2.tcl,v 1.4 2002/03/13 22:50:53 donb Exp $ -} { - { audience:html "" } - { background:html "" } - { page_signature:html "" } - { copyright_notice:html "" } - pres_title:notnull - { style:integer -1 } - show_modified_p:notnull - public_p:notnull -} - -set package_id [ad_conn package_id] - -set user_id [ad_verify_and_get_user_id] -set creation_ip [ad_conn peeraddr] - -set pres_item_id [db_exec_plsql wp_presentation_insert ""] - -db_exec_plsql grant_owner_access "" - -if {$public_p == "t"} { - db_exec_plsql make_wp_presentation_public "" -} - -ad_returnredirect "presentation-top?[export_url_vars pres_item_id]" - Index: openacs-4/packages/wp-slim/www/create-presentation-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-presentation-postgresql.xql,v diff -u -N --- openacs-4/packages/wp-slim/www/create-presentation-postgresql.xql 28 Aug 2003 09:42:00 -0000 1.2 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,19 +0,0 @@ - - - - postgresql7.1 - - - - - select style_id, (case when owner = :user_id then name || ' (yours)' else name end) as name - from wp_styles - where owner = :user_id - or public_p = 't' - order by name - - - - - - Index: openacs-4/packages/wp-slim/www/create-presentation.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-presentation.adp,v diff -u -N --- openacs-4/packages/wp-slim/www/create-presentation.adp 29 Sep 2003 02:41:33 -0000 1.8 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,92 +0,0 @@ - -#wp-slim.Create_Presentation# -@context@ - -
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
-#wp-slim.lt_Give_this_presentatio# -
#wp-slim.Title#
-#wp-slim.lt_If_you_want_a_signatu# -
#wp-slim.Page_Signature#
-#wp-slim.lt_Personally_I_like_to_# - -

#wp-slim.lt_If_you_want_a_copyrig# -

#wp-slim.Copyright_Notice#
-#wp-slim.lt_WimpyPoint_keeps_trac# -
#wp-slim.lt_Show_Modification_Dat# - #wp-slim.Yes# - #wp-slim.No# -
-#wp-slim.lt_If_you_want_to_hide_t# -
#wp-slim.Available_to_Public# - #wp-slim.Yes# - #wp-slim.No# -
-#wp-slim.lt_Suggestion_if_you_hav# - - -
#wp-slim.Style#@available_styles;noquote@ -
-

#wp-slim.lt_Finally_if_youre_plan# -


#wp-slim.Audience#

#wp-slim.Background#
-
-
- Index: openacs-4/packages/wp-slim/www/create-presentation.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-presentation.tcl,v diff -u -N --- openacs-4/packages/wp-slim/www/create-presentation.tcl 22 Sep 2003 18:41:27 -0000 1.5 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,35 +0,0 @@ -# /packages/wimpy-point/www/presentation-create.tcl -ad_page_contract { - - # This file displays the form for creating a new presentation. - @author Paul Konigsberg (paul@arsdigita.com) - @creation-date Thu Nov 9 10:04:22 2000 - @cvs-id $Id: create-presentation.tcl,v 1.5 2003/09/22 18:41:27 rocaelh Exp $ -} { -} -properties { - title:onevalue - context:onevalue -} - -set package_id [ad_conn package_id] -set user_id [ad_verify_and_get_user_id] -permission::require_permission -party_id $user_id -object_id $package_id -privilege wp_create_presentation - -set items [db_list_of_lists wp_styles { *SQL* }] - - set names [list] - set values [list] - foreach image $items { - lappend names [lindex $image 1] - lappend values [lindex $image 0] - } - - lappend names "none" - lappend values -1 - - set available_styles "\n" - -set title "[_ wp-slim.Create_Presentation]" -set context [list $title] - Index: openacs-4/packages/wp-slim/www/create-presentation.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-presentation.xql,v diff -u -N --- openacs-4/packages/wp-slim/www/create-presentation.xql 28 Aug 2003 09:42:00 -0000 1.2 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,17 +0,0 @@ - - - - - - - - select style_id, (case when owner = :user_id then name || ' (yours)' else name end) as name - from wp_styles - where owner = :user_id - or public_p = 't' - order by name - - - - - Index: openacs-4/packages/wp-slim/www/create-slide-2-oracle.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-slide-2-oracle.xql,v diff -u -N --- openacs-4/packages/wp-slim/www/create-slide-2-oracle.xql 7 Sep 2004 23:34:52 -0000 1.2 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,29 +0,0 @@ - - - - oracle8.1.6 - - - - - begin - :1 := wp_slide.new( - pres_item_id => :pres_item_id, - creation_user => :user_id, - creation_ip => :creation_ip, - creation_date => sysdate, - slide_title => :slide_title, - original_slide_id => -100, - sort_key => :sort_key, - preamble => :preamble, - postamble => :postamble, - bullet_items => :bullet_list, - package_id => :package_id - ); - end; - - - - - - Index: openacs-4/packages/wp-slim/www/create-slide-2-postgresql.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-slide-2-postgresql.xql,v diff -u -N --- openacs-4/packages/wp-slim/www/create-slide-2-postgresql.xql 7 Sep 2004 23:34:52 -0000 1.2 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,31 +0,0 @@ - - - - postgresql7.1 - - - - - select wp_slide__new( - :pres_item_id, - now(), - :user_id, - :creation_ip, - :slide_title, - '-1', - '-100', - :sort_key, - :preamble, - :bullet_list, - :postamble, - 't', - 'f', - NULL, - :package_id - ); - - - - - - Index: openacs-4/packages/wp-slim/www/create-slide-2.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-slide-2.tcl,v diff -u -N --- openacs-4/packages/wp-slim/www/create-slide-2.tcl 7 Sep 2004 23:34:52 -0000 1.4 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,33 +0,0 @@ -# /packages/wp/www/create-slide-2.tcl -ad_page_contract { - - @author Paul Konigsberg (paul@arsdigita.com) - @creation-date Tue Nov 21 10:41:42 2000 - @cvs-id $Id: create-slide-2.tcl,v 1.4 2004/09/07 23:34:52 donb Exp $ -} { - pres_item_id:naturalnum,notnull - slide_title:notnull - sort_key:naturalnum - preamble:html - array_max:integer - bullet:array,html - postamble:html -} - -set package_id [ad_conn package_id] - - -set user_id [ad_verify_and_get_user_id] -set creation_ip [ad_conn peeraddr] - -set bullet_list [list] -for {set i 1} {$i <= $array_max} {incr i} { - if {![empty_string_p $bullet($i)]} { - lappend bullet_list $bullet($i) - } -} - -#insert the slide -db_exec_plsql wp_slide_insert {} - -ad_returnredirect "presentation-top?[export_url_vars pres_item_id]" Index: openacs-4/packages/wp-slim/www/create-slide.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-slide.adp,v diff -u -N --- openacs-4/packages/wp-slim/www/create-slide.adp 22 Sep 2003 18:41:27 -0000 1.5 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,63 +0,0 @@ - -#wp-slim.Create_A_Slide# -@context@ - - -
- - - - - - - - - - - - - - - - - - - - - - - -
#wp-slim.Slide_Titlenbsp#

#wp-slim.Preamble#		 -
- #wp-slim.lt_optional_random_text_# -
#wp-slim.Bullet_Items# -
    - -
  •   -
  •   -
  •   -
  •   -
  •   - -
    #wp-slim.lt_You_can_add_additiona# -
-

#wp-slim.Postamble#		 -
- #wp-slim.lt_optional_random_text__1# -
- -

- -
-
- - Index: openacs-4/packages/wp-slim/www/create-slide.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-slide.tcl,v diff -u -N --- openacs-4/packages/wp-slim/www/create-slide.tcl 29 Sep 2003 02:41:33 -0000 1.4 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,42 +0,0 @@ -# /packages/wp/www/create-slide.tcl -ad_page_contract { - - # This file presents the form for users to create a slide. - @author Paul Konigsberg (paul@arsdigita.com) - @creation-date Mon Nov 20 12:07:24 2000 - @cvs-id $Id: create-slide.tcl,v 1.4 2003/09/29 02:41:33 marka Exp $ -} { - pres_item_id:naturalnum,notnull - {sort_key:naturalnum,optional ""} -} -properties { - context - pres_item_id - sort_key - pres_title -} - -set package_id [ad_conn package_id] - - -db_1row get_presentation { -select pres_title -from cr_wp_presentations p, - cr_items i -where i.item_id = :pres_item_id -and i.live_revision = p.presentation_id -} - -set context [list [list "presentation-top?[export_url_vars pres_item_id]" "$pres_title"] "[_ wp-slim.New_Slide]"] - -if {[empty_string_p $sort_key]} { - set sort_key [db_string get_sort_key { - select 1+max(sort_key) - from cr_wp_slides s, - cr_items i, - cr_revisions r - where i.parent_id = :pres_item_id - and s.slide_id = i.live_revision - }] -} - -ad_return_template Index: openacs-4/packages/wp-slim/www/create-slide.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/wp-slim/www/Attic/create-slide.xql,v diff -u -N --- openacs-4/packages/wp-slim/www/create-slide.xql 29 Sep 2003 02:41:33 -0000 1.2 +++ /dev/null 1 Jan 1970 00:00:00 -0000 @@ -1,31 +0,0 @@ - - - - - - -select pres_title -from cr_wp_presentations p, - cr_items i -where i.item_id = :pres_item_id -and i.live_revision = p.presentation_id - - - - - - - - - select 1+max(sort_key) - from cr_wp_slides s, - cr_items i, - cr_revisions r - where i.parent_id = :pres_item_id - and s.slide_id = i.live_revision - - - - - -