Index: openacs-4/packages/xowiki/xowiki.info =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/xowiki.info,v diff -u -r1.180.2.19 -r1.180.2.20 --- openacs-4/packages/xowiki/xowiki.info 19 Sep 2019 11:44:10 -0000 1.180.2.19 +++ openacs-4/packages/xowiki/xowiki.info 21 Sep 2019 19:03:21 -0000 1.180.2.20 @@ -122,8 +122,7 @@ - + Index: openacs-4/packages/xowiki/tcl/dotlrn-portal-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/dotlrn-portal-procs.tcl,v diff -u -r1.1.2.2 -r1.1.2.3 --- openacs-4/packages/xowiki/tcl/dotlrn-portal-procs.tcl 8 May 2019 19:59:56 -0000 1.1.2.2 +++ openacs-4/packages/xowiki/tcl/dotlrn-portal-procs.tcl 21 Sep 2019 19:03:21 -0000 1.1.2.3 @@ -9,7 +9,7 @@ # # We have no dotlrn installed # - return + return } @@ -33,7 +33,7 @@ {-community_id:integer} }} } - + dotlrn-portlet instproc initialize {} { :get_parameters # @@ -73,7 +73,7 @@ } } } - + if {![info exists :community_id]} { # # we have no community_id, try to get it from site map, case (3) @@ -88,13 +88,13 @@ # set user_id [::xo::cc user_id] set community_ids [db_list get_memberships { - select community_id + select community_id from dotlrn_member_rels_approved where user_id = :user_id }] set :community_id $community_ids } - + if {${:community_id} eq ""} { error "Cannot determine community_id(s);\nmaybe, you are not logged in?\n" } @@ -125,7 +125,10 @@ -parameter { {adp_file "/packages/dotlrn/www/dotlrn-main-portlet"} {title "#dotlrn.dotlrn_main_portlet_pretty_name#"} + } -ad_doc { + Include dotLRN main portlet } + dotlrn-main instproc initialize {} { :cf [list shaded_p [:shaded]] } @@ -136,22 +139,30 @@ {allow_multiple_community_ids false} {adp_file "/packages/dotlrn-portlet/www/dotlrn-portlet"} {title "#dotlrn.subcommunities_pretty_plural#"} + } -ad_doc { + Include dotLRN portlet } + # FORUMS ::xowiki::IncludeletClass create dotlrn-forums -superclass dotlrn-portlet \ -parameter { {package_key "forums"} {adp_file "/packages/forums-portlet/www/forums-portlet"} {title "#forums-portlet.pretty_name#"} + } -ad_doc { + Include dotLRN forums portlet } - + + # FAQ ::xowiki::IncludeletClass create dotlrn-faq -superclass dotlrn-portlet \ -parameter { {package_key "faq"} {adp_file "/packages/faq-portlet/www/faq-portlet"} {title "#faq-portlet.pretty_name#"} + } -ad_doc { + Include dotLRN FAQ portlet } # NEWS @@ -160,6 +171,8 @@ {package_key "news"} {adp_file "/packages/news-portlet/www/news-portlet"} {title "#news-portlet.pretty_name#"} + } -ad_doc { + Include dotLRN NEWS portlet } # CALENDAR @@ -168,6 +181,8 @@ {package_key "calendar"} {adp_file "/packages/calendar-portlet/www/calendar-portlet"} {title "#calendar-portlet.pretty_name#"} + } -ad_doc { + Include dotLRN calendar portlet } dotlrn-calendar instproc initialize {} { ::xo::Page requireCSS "/resources/calendar/calendar.css" @@ -184,13 +199,17 @@ {package_key "calendar"} {adp_file "/packages/calendar-portlet/www/calendar-list-portlet"} {title "#calendar-portlet.Schedule#"} + } -ad_doc { + Include dotLRN calendar list portlet } # Extra includelet (somewhat similar to static info portlet) ::xowiki::IncludeletClass create dotlrn-info -superclass dotlrn-portlet \ -parameter { {allow_multiple_community_ids false} {title} + } -ad_doc { + Include dotLRN info portlet } dotlrn-info instproc initialize {} { next Index: openacs-4/packages/xowiki/tcl/folder-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/folder-procs.tcl,v diff -u -r1.55.2.25 -r1.55.2.26 --- openacs-4/packages/xowiki/tcl/folder-procs.tcl 17 Sep 2019 11:36:38 -0000 1.55.2.25 +++ openacs-4/packages/xowiki/tcl/folder-procs.tcl 21 Sep 2019 19:03:21 -0000 1.55.2.26 @@ -32,6 +32,13 @@ {-context_tree_view false} }} {id "[xowiki::Includelet js_name [self]]"} + } -ad_doc { + + List the folder tree of the current instance + + @param show_full_tree (default false) + @param context_tree_view (default false) + } folders instproc include_head_entries {} { @@ -511,6 +518,20 @@ {-menubar ""} } } + } -ad_doc { + + Include the content of the current folder somewhat similar to explorer. + + @param show_types types of the pages to be included + @param with_subtypes (default false) + @param orderby order entries by the specified attribite (default last_modified,desc) + @param publish_status show content with the provided publishstatuses (can be ored) + @param parent folder (defaults to . (=current page as parent)) + @param columns columns to be displayed + @param hide hide certain columns + @param menubar include menubar optionally + @param regepx SQL reqexp for filtering on content item names + } child-resources instproc types_to_show {} { @@ -636,7 +657,9 @@ set extra_where_clause "true" # TODO: why filter on title and name? - if {[info exists regexp]} {set extra_where_clause "(bt.title ~ '$regexp' OR ci.name ~ '$regexp' )"} + if {[info exists regexp]} { + set extra_where_clause "(bt.title ~ '$regexp' OR ci.name ~ '$regexp' )" + } :log "child-resources of folder_id ${:current_folder_id}" set items [::xowiki::FormPage get_all_children \ Index: openacs-4/packages/xowiki/tcl/includelet-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowiki/tcl/includelet-procs.tcl,v diff -u -r1.239.2.19 -r1.239.2.20 --- openacs-4/packages/xowiki/tcl/includelet-procs.tcl 4 Sep 2019 16:51:02 -0000 1.239.2.19 +++ openacs-4/packages/xowiki/tcl/includelet-procs.tcl 21 Sep 2019 19:03:21 -0000 1.239.2.20 @@ -76,7 +76,12 @@ } } } - append result "}}\n" + append result "}}\n

" + set index [::xo::api object_index "" $cl] + if {[nsv_exists api_library_doc $index]} { + set doc_elements [nsv_get api_library_doc $index] + append result [lindex [dict get $doc_elements main] 0] + } set :html([namespace tail $cl]) $result :describe_includelets [$cl info subclass] } @@ -377,6 +382,8 @@ -superclass ::xowiki::Includelet \ -parameter { {title "The following includelets can be used in a page"} + } -ad_doc { + List the available includelets of this installation. } available-includelets instproc render {} { @@ -504,6 +511,11 @@ {-form_variable} {-source ""} }} + } -ad_doc { + + Get an instance variable from the current or from a different + page. + } -instproc render {} { :get_parameters if {![info exists variable] && ![info exists form_variable]} { @@ -534,6 +546,11 @@ {-source ""} {-format "%m-%d-%Y"} }} + } -ad_doc { + + Include the creation date of the current + or specified page in the provided format. + } -instproc render {} { :get_parameters set page [:resolve_page_name $source] @@ -556,6 +573,10 @@ {-entries_of} {-title} }} + } -ad_doc { + + Include an RSS button referring to pages of the specified time span. + } rss-button instproc render {} { @@ -577,6 +598,11 @@ {-siteurl ""} {-label ""} }} + } -ad_doc { + + Include bookmarklet button that makes it easy to add the + current page as a bookmark in the browser of the client. + } bookmarklet-button instproc render {} { @@ -606,8 +632,15 @@ # ::xowiki::IncludeletClass create set-parameter \ -superclass ::xowiki::Includelet \ - -parameter {{__decoration none}} + -parameter {{__decoration none}} \ + -ad_doc { + Set a parameter accessible to the current page (for certain + tailorings), accessible in the page via e.g. the query + parameter interface. + + } + set-parameter instproc render {} { :get_parameters set pl ${:__caller_parameters} @@ -623,7 +656,7 @@ namespace eval ::xowiki::includelet { ############################################################################# - # valid parameters for he categories includelet are + # valid parameters for the categories includelet are # tree_name: match pattern, if specified displays only the trees # with matching names # no_tree_name: if specified, tree names are not displayed @@ -650,6 +683,22 @@ {-allow_edit false} {-ordered_composite} }} + } \ + -ad_doc { + + List the specified category tree. + + @param tree_name match pattern, if specified displays only the + trees with matching names + + @param no_tree_name if specified, tree names are not displayed + + @param open_page name (e.g. en:iMacs) of the page to be opened + initially + + @param tree_style boolean, default: true, rnder category tree + based on mktree + } categories instproc initialize {} { @@ -874,7 +923,6 @@ ############################################################################# # # display recent entries by categories - # -gustaf neumann # # valid parameters from the include are # tree_name: match pattern, if specified displays only the trees with matching names @@ -891,6 +939,17 @@ {-locale ""} {-pretty_age "off"} }} + } -ad_doc { + + Display recent entries by categories. + + @param tree_name match pattern, if specified displays only the + trees with matching names + + @param max_entries show given number of new entries + @param locale use the specified locale + @param pretty_age boolean, use pretty age or not + } categories-recent instproc initialize {} { @@ -982,6 +1041,15 @@ {-allow_delete:boolean false} {-pretty_age off} }} + } -ad_doc { + + Display recent modified entries. + + @param max_entries show given number of new entries + @param allow_edit boolean to optionally offer an edit button + @param allow_delete boolean to optionally offer an delete button + @param pretty_age boolean, use pretty age or not + } recent instproc render {} { @@ -1082,8 +1150,14 @@ {parameter_declaration { {-max_entries:integer 20} }} + } -ad_doc { + + Display last visited pages. + + @param max_entries show given number of entries } + last-visited instproc render {} { :get_parameters ::xo::Page requireCSS "/resources/acs-templating/lists.css" @@ -1126,8 +1200,16 @@ {-max_entries:integer "10"} {-interval} }} + } -ad_doc { + + Display most popular pages of this wiki instance. + + @param max_entries show given number of entries + @param interval specified optionally the time interval since when pages are listed + } + most-popular instproc render {} { :get_parameters ::xo::Page requireCSS "/resources/acs-templating/lists.css" @@ -1192,7 +1274,7 @@ namespace eval ::xowiki::includelet { ############################################################################# # - # list the most frequent visitors + # include RSS content # ::xowiki::IncludeletClass create rss-client \ @@ -1203,8 +1285,16 @@ {-url:required} {-max_entries:integer "15"} }} + } -ad_doc { + + Include RSS content + + @param max_entries show given number of entries + @param url source for the RSS feed + } + rss-client instproc initialize {} { :get_parameters set :feed [::xowiki::RSS-client new -url $url -destroy_on_cleanup] @@ -1238,7 +1328,7 @@ namespace eval ::xowiki::includelet { ############################################################################# # - # list the most frequent visitors + # List the most frequent visitors. # ::xowiki::IncludeletClass create most-frequent-visitors \ @@ -1248,6 +1338,12 @@ {parameter_declaration { {-max_entries:integer "15"} }} + } -ad_doc { + + List the most frequent visitors. + + @param max_entries show given number of entries + } most-frequent-visitors instproc render {} { @@ -1295,6 +1391,12 @@ {parameter_declaration { {-max_entries:integer 20} }} + } -ad_doc { + + List unread items. + + @param max_entries show given number of entries + } unread-items instproc render {} { @@ -1361,6 +1463,15 @@ {-popular:boolean 0} {-page} }} + } -ad_doc { + + Display specified tags. + + @param limit maximum number of new entries + @param summary boolean to optionally provide summary + @param popular boolean to optionally list popular tags + @param page provide alternate weblog listing page + } tags instproc render {} { @@ -1386,7 +1497,9 @@ } set entries [list] - if {![info exists page]} {set page [::$package_id get_parameter weblog_page]} + if {![info exists page]} { + set page [::$package_id get_parameter weblog_page] + } set href [::$package_id package_url]tag/ ::xo::dc foreach get_tag_counts $sql { @@ -1410,6 +1523,12 @@ {-summary 1} }} id + } \ + -ad_doc { + List the tags associated with the + current page. + + @param summary when specified, tag points to a summarized listing } my-tags instproc render {} { @@ -1465,6 +1584,12 @@ {parameter_declaration { {-summary 1} }} + } \ + -ad_doc { + List the categories associated with the + current page. + + @param summary when specified, the category points to a summarized listing } my-categories instproc render {} { @@ -1514,7 +1639,11 @@ ::xowiki::IncludeletClass create my-general-comments \ -superclass ::xowiki::Includelet \ - -parameter {{__decoration none}} + -parameter {{__decoration none}} \ + -ad_doc { + List the general comments available for the + current page. + } my-general-comments instproc render {} { :get_parameters @@ -1549,8 +1678,13 @@ {-description ""} {-url} }} + } -ad_doc { + Add a button to submit article to digg. + @param description + @param url } + digg instproc render {} { :get_parameters set digg_link [export_vars -base "http://digg.com/submit" { @@ -1571,6 +1705,11 @@ {-tags ""} {-url} }} + } -ad_doc { + Add a button to submit article to delicious. + @param description + @param url + @param tags } delicious instproc render {} { @@ -1601,6 +1740,13 @@ {-publisher ""} {-rssurl} }} + } \ + -ad_doc { + Name of the publisher, when posting URLs to my yahoo (use in + connection with with_yahoo_publisher). + + @param publisher + @param rssurl } my-yahoo-publisher instproc render {} { @@ -1621,7 +1767,11 @@ # ::xowiki::IncludeletClass create my-references \ -superclass ::xowiki::Includelet \ - -parameter {{__decoration none}} + -parameter {{__decoration none}} \ + -ad_doc { + List the pages which are referring to the + current page. + } my-references instproc render {} { :get_parameters @@ -1669,7 +1819,11 @@ # ::xowiki::IncludeletClass create my-refers \ -superclass ::xowiki::Includelet \ - -parameter {{__decoration none}} + -parameter {{__decoration none}} \ + -ad_doc { + List the pages which are referred to the + current page. + } my-refers instproc render {} { :get_parameters @@ -1714,8 +1868,13 @@ # ::xowiki::IncludeletClass create unresolved-references \ -superclass ::xowiki::Includelet \ - -parameter {{__decoration none}} + -parameter {{__decoration none}} \ + -ad_doc { + List the pages with unresolved references in the current + xowiki/xowf package. This is intended for use by admins. + } + unresolved-references instproc render {} { :get_parameters @@ -1785,6 +1944,20 @@ {-show_anonymous "summary"} {-page} }} + } -ad_doc { + + Show users actively in the wiki. + + @param interval list users when active in the wiki in the + specified interval (default: 10 minutes) + + @param max_users maximum number of users to list + + @param show_anonymous specify, whether users not logged in + should get a result from this includelet. Possible values + "nothing", "all", "summary" + + @param page restrict listing to changes on a certain page. } # TODO make display style -decoration @@ -1951,6 +2124,27 @@ {-include_in_foldertree "true"} }} id + } -ad_doc { + + Show table of contents of the current wiki. + The "toc" includelet renders the page titles of the current files + based on the value of the "page_order" attributes. Only those + pages are rendered that have a non-empty "page_order" field. + + @param style + @param renderer + @param open_page + @param folder_mode + @param ajax + @param expand_all + @param remove_levels + @param category_id + @param locale + @param source + @param range + @param allow_reorder + @param include_in_foldertree + } #"select page_id, page_order, name, title, \ @@ -2438,6 +2632,17 @@ {-menu_buttons edit} {-range ""} }} + } -ad_doc { + + Provide a selection of pages + + @param edit_link provide an edit link, boolean. + @param pages pages of the selection + @param ordered_pages set of already ordered pages + @param source take "pages" or "ordered_pages" from the provided page + @param menu_buttons list of buttons for the entries + @param range (sub)range of the pages (based on page_order attribute) + } selection instproc render {} { @@ -2522,6 +2727,14 @@ {-pages ""} {-ordered_pages} }} + } -ad_doc { + + Create a form from the selection + + @param edit_links provide an edit link, boolean. + @param pages pages of the selection + @param ordered_pages set of already ordered pages + } composite-form instproc render {} { @@ -2583,6 +2796,17 @@ {-allow_reorder ""} {-with_footer "false"} }} + } -ad_doc { + + Show contents in book mode. + + @param category_id + @param menu_buttons default: edit + @param folder_mode boolean, default false + @param locale for the content + @param range page range + @param allow_reorder allow optional page_reorder based on drag and drop + @param with_footer boolean, default: false } @@ -2781,7 +3005,10 @@ # display a sequence of pages via W3C slidy # ::xowiki::IncludeletClass create slidy \ - -superclass ::xowiki::includelet::book + -superclass ::xowiki::includelet::book \ + -ad_doc { + Display a sequence of pages via W3C slidy, based on book includelet + } slidy instproc render_items { -pages:required @@ -2821,8 +3048,13 @@ # display a sequence of pages via jQuery Carousel # ::xowiki::IncludeletClass create jquery-carousel \ - -superclass ::xowiki::includelet::book + -superclass ::xowiki::includelet::book \ + -ad_doc { + Display a sequence of pages via jquery-carousel, based on book + includelet. + } + jquery-carousel instproc render_items { -pages:required {-cnames ""} @@ -2874,7 +3106,11 @@ # infiniteCarousel/jquery.infinitecarousel2.min.js # ::xowiki::IncludeletClass create jquery-infinite-carousel \ - -superclass ::xowiki::includelet::book + -superclass ::xowiki::includelet::book \ + -ad_doc { + Display a sequence of pages via jquery-infinite-carousel, based on book + includelet. + } jquery-infinite-carousel instproc render_items { -pages:required @@ -2933,7 +3169,11 @@ # ::xowiki::IncludeletClass create jquery-cloud-carousel \ - -superclass ::xowiki::includelet::book + -superclass ::xowiki::includelet::book \ + -ad_doc { + Display a sequence of pages via jquery-cloud-carousel, based on book + includelet. + } jquery-cloud-carousel instproc render_items { -pages:required @@ -3010,7 +3250,11 @@ # your needs. ::xowiki::IncludeletClass create jquery-spacegallery \ - -superclass ::xowiki::includelet::book + -superclass ::xowiki::includelet::book \ + -ad_doc { + Display a sequence of pages via jquery-spacegalleryl, based on book + includelet. + } jquery-spacegallery instproc render_items { -pages:required @@ -3061,6 +3305,14 @@ :return_url [::${:package_id} url] } } + item-button instproc get_page {varname} { + :upvar $varname page_id + if {[info exists page_id]} { + set page [::xo::db::CrClass get_instance_from_db -item_id $page_id] + } else { + set page ${:__including_page} + } + } item-button instproc render_button { -page @@ -3099,7 +3351,8 @@ return $html } - ::xowiki::IncludeletClass create edit-item-button -superclass ::xowiki::includelet::item-button \ + ::xowiki::IncludeletClass create edit-item-button \ + -superclass ::xowiki::includelet::item-button \ -parameter { {parameter_declaration { {-page_id} @@ -3109,11 +3362,15 @@ {-link ""} {-target ""} }} + } -ad_doc { + Button to edit the current or a different page + + @param page_id optional item_id of the referred page } edit-item-button instproc render {} { :get_parameters - set page [expr {[info exists page_id] ? $page_id : ${:__including_page}}] + set page [:get_page page_id] if {[$page istype ::xowiki::FormPage]} { set template [$page page_template] #set title "$title [$template title] [$page name]" @@ -3137,11 +3394,15 @@ {-alt "delete"} {-book_mode false} }} + } -ad_doc { + Button to delete the current or a different page + + @param page_id optional item_id of the referred page } delete-item-button instproc render {} { :get_parameters - set page [expr {[info exists page_id] ? $page_id : ${:__including_page}}] + set page [:get_page page_id] return [:render_button \ -page $page -method delete -package_id $package_id \ -title $title -alt $alt \ @@ -3159,11 +3420,15 @@ {-link ""} {-book_mode false} }} + } -ad_doc { + Button to view the current or a different page + + @param page_id optional item_id of the referred page } view-item-button instproc render {} { :get_parameters - set page [expr {[info exists page_id] ? $page_id : ${:__including_page}}] + set page [:get_page page_id] return [:render_button \ -page $page -method view -package_id $package_id \ -link $link -title $title -alt $alt \ @@ -3180,11 +3445,15 @@ {-alt "new"} {-book_mode false} }} + } -ad_doc { + Button to create a new page based on the current one + + @param page_id optional item_id of the referred page } create-item-button instproc render {} { :get_parameters - set page [expr {[info exists page_id] ? $page_id : ${:__including_page}}] + set page [:get_page page_id] set page_order [::xowiki::utility incr_page_order [$page page_order]] if {[$page istype ::xowiki::FormPage]} { set template [$page page_template] @@ -3204,19 +3473,24 @@ } } - ::xowiki::IncludeletClass create copy-item-button -superclass ::xowiki::includelet::item-button \ + ::xowiki::IncludeletClass create copy-item-button \ + -superclass ::xowiki::includelet::item-button \ -parameter { {__decoration none} {parameter_declaration { {-page_id} {-alt "copy"} {-book_mode false} }} + } -ad_doc { + Button to copy a page + + @param page_id optional item_id of the referred page } copy-item-button instproc render {} { :get_parameters - set page [expr {[info exists page_id] ? $page_id : ${:__including_page}}] + set page [:get_page page_id] if {[$page istype ::xowiki::FormPage]} { set template [$page page_template] @@ -3317,6 +3591,8 @@ {-show_anonymous "message"} -user_id }} + } -ad_doc { + Include a collaboration graph } collab-graph instproc render {} { @@ -3399,6 +3675,8 @@ {-max_activities:integer 100} {-show_anonymous "message"} }} + } -ad_doc { + Include an activity graph } @@ -3489,8 +3767,11 @@ {-interval1 DAY} {-interval2 MONTH} }} + } -ad_doc { + Include a timeline of changes (based on yahoo timeline API) } + timeline instproc render {} { :get_parameters @@ -3562,6 +3843,9 @@ {-interval1 DAY} {-interval2 MONTH} }} + } -ad_doc { + Include a timeline of changes of the current or specified user + (based on yahoo timeline API) } user-timeline instproc render {} { @@ -3640,6 +3924,8 @@ {-button_objs} {-return_url} }} + } -ad_doc { + Include a form menu for the specified Form } form-menu instproc render {} { @@ -3712,6 +3998,8 @@ {-renderer "table"} }} + } -ad_doc { + Include form statistics for the specofied Form page. } form-stats instproc render {} { @@ -3878,6 +4166,8 @@ {-buttons "edit delete"} {-renderer ""} }} + } -ad_doc { + Show usages of the specified form. } # {-renderer "YUIDataTableRenderer"} @@ -4389,8 +4679,16 @@ {-width "100%"} {-height "500px"} }} + } -ad_doc { + Include an iframe contining the specified URL + + @param title + @param url + @param width + @param height } + iframe instproc render {} { :get_parameters @@ -4421,6 +4719,12 @@ {-glob ""} {-form ""} }} + } -ad_doc { + Include YUI carousel showing the pages of the specified or + current folder. + + @param folder + @param glob optional matching patter for page names } yui-carousel instproc images {-package_id -parent_id {-glob ""} {-width ""} {-height ""}} { @@ -4601,6 +4905,11 @@ {-email:required} {-size 80} }} + } -ad_doc { + Include gravatar picture for the specified email + + @param email + @param size in pixel, default 80 } gravatar proc url {-email {-size 80} {-default mp}} { @@ -4634,6 +4943,12 @@ {-publish_status "ready"} {-expires 600} }} + } -ad_doc { + Include random form page (instance of the specified form) + + @param form + @param publish_status (default ready) + @param expires (default 600 secs) } random-form-page proc page_names {package_id form publish_status} { @@ -4699,6 +5014,10 @@ {parameter_declaration { -mp4:required }} + } -ad_doc { + Include an mp4 image using flowplayer + + @param mp4 } flowplayer instproc include_head_entries {} { @@ -4747,8 +5066,15 @@ {-levels 0} {-file:required} }} + } -ad_doc { + Include the specified HTML file + + @param file file to be included + @param title + @param extra_css } + # # The two methods "href" and "page_number" are copied from "toc" # @@ -4805,7 +5131,20 @@ -avatar_p -timewindow }} + } -ad_doc { + Include a chat in the current page + + @param mode + @param path + @param skin + @param title + @param chat_id + @param avatar_p + @param login_messages_p + @param logout_messages_p + @param timewindow } + chat instproc render {} { :get_parameters if {$chat_id eq ""} { @@ -4844,6 +5183,13 @@ {-text ""} {-url ""} }} + } -ad_doc { + Include a link to the community including the current page. + This includelet is designed to work with dotlrn. + + @param text text to be displayed in community link + @param url optional path relative to community + } -instproc render {} { :get_parameters if {[info commands ::dotlrn_community::get_community_id] ne ""} { @@ -4869,6 +5215,14 @@ {-text ""} {-url ""} }} + } -ad_doc { + + Insert a link with extra return URL pointing the current + object. This is particularly useful in cases, where a + return URL must be created for a page that does not yet + exist at time of definition (e.g. for link pointing to + concrete workflow instances) + } -instproc render {} { :get_parameters #set return_url [ad_return_url]