Package enabled." } -proc_doc -public apm_version_disable { {-callback apm_dummy_callback} version_id } { +ad_proc -public apm_version_disable { {-callback apm_dummy_callback} version_id } { Disables a version of a package. Index: openacs-4/packages/acs-tcl/tcl/document-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/document-procs.tcl,v diff -u -N -r1.4 -r1.5 --- openacs-4/packages/acs-tcl/tcl/document-procs.tcl 10 Jan 2007 21:22:12 -0000 1.4 +++ openacs-4/packages/acs-tcl/tcl/document-procs.tcl 13 Feb 2009 20:28:08 -0000 1.5 @@ -85,54 +85,54 @@ -proc_doc doc_init {} { Initializes the global environment for document handling. } { +ad_proc doc_init {} { Initializes the global environment for document handling. } { global doc_properties if { [info exists doc_properties] } { unset doc_properties } array set doc_properties {} } -proc_doc doc_set_property { name value } { Sets a document property. } { +ad_proc doc_set_property { name value } { Sets a document property. } { global doc_properties set doc_properties($name) $value } -proc_doc doc_property_exists_p { name } { Return 1 if a property exists, or 0 if not. } { +ad_proc doc_property_exists_p { name } { Return 1 if a property exists, or 0 if not. } { global doc_properties return [info exists doc_properties($name)] } -proc_doc doc_get_property { name } { Returns a property (or an empty string if no such property exists). } { +ad_proc doc_get_property { name } { Returns a property (or an empty string if no such property exists). } { global doc_properties if { [info exists doc_properties($name)] } { return $doc_properties($name) } return "" } -proc_doc doc_body_append { str } { Appends $str to the body property. } { +ad_proc doc_body_append { str } { Appends $str to the body property. } { global doc_properties append doc_properties(body) $str } -proc_doc doc_set_mime_type { mime_type } { Sets the mime-type property. } { +ad_proc doc_set_mime_type { mime_type } { Sets the mime-type property. } { doc_set_property mime_type $mime_type } -proc_doc doc_exists_p {} { Returns 1 if there is a document in the global environment. } { +ad_proc doc_exists_p {} { Returns 1 if there is a document in the global environment. } { global doc_properties if { [array size doc_properties] > 0 } { return 1 } return 0 } -proc_doc doc_body_flush {} { Flushes the body (if possible). } { +ad_proc doc_body_flush {} { Flushes the body (if possible). } { # Currently a no-op. } -proc_doc doc_find_template { filename } { Finds a master.adp file which can be used as a master template, looking in the directory containing $filename and working our way down the directory tree. } { +ad_proc doc_find_template { filename } { Finds a master.adp file which can be used as a master template, looking in the directory containing $filename and working our way down the directory tree. } { set path_root [acs_root_dir] set start [clock clicks -milliseconds] @@ -154,7 +154,7 @@ return "" } -proc_doc doc_serve_template { __template_path } { Serves the document in the environment using a particular template. } { +ad_proc doc_serve_template { __template_path } { Serves the document in the environment using a particular template. } { upvar #0 doc_properties __doc_properties foreach __name [array names __doc_properties] { set $__name $__doc_properties($__name) @@ -168,7 +168,7 @@ doc_return 200 $content_type $adp } -proc_doc doc_serve_document {} { Serves the document currently in the environment. } { +ad_proc doc_serve_document {} { Serves the document currently in the environment. } { if { ![doc_exists_p] } { error "No document has been built." } Index: openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl,v diff -u -N -r1.7 -r1.8 --- openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl 23 Dec 2008 12:23:00 -0000 1.7 +++ openacs-4/packages/acs-tcl/tcl/server-cluster-procs.tcl 13 Feb 2009 20:28:08 -0000 1.8 @@ -6,18 +6,18 @@ @creation-date 7 Mar 2000 } -proc_doc server_cluster_enabled_p {} { Returns true if clustering is enabled. } { +ad_proc server_cluster_enabled_p {} { Returns true if clustering is enabled. } { return [parameter::get -package_id [ad_acs_kernel_id] -parameter ClusterEnabledP -default 0] } -proc_doc server_cluster_all_hosts {} { Returns a list of all hosts, possibly including this host, in the server cluster. } { +ad_proc server_cluster_all_hosts {} { Returns a list of all hosts, possibly including this host, in the server cluster. } { if { ![server_cluster_enabled_p] } { return [list] } return [parameter::get -package_id [ad_acs_kernel_id] -parameter ClusterPeerIP] } -proc_doc server_cluster_peer_hosts {} { Returns a list of all hosts, excluding this host, in the server cluster. } { +ad_proc server_cluster_peer_hosts {} { Returns a list of all hosts, excluding this host, in the server cluster. } { set peer_hosts [list] set my_ip [ns_config ns/server/[ns_info server]/module/nssock Address] @@ -35,7 +35,7 @@ return $peer_hosts } -proc_doc server_cluster_authorized_p { ip } { Can a request coming from $ip be a valid cluster request, i.e., matches some value in ClusterIPMask or is 127.0.0.1? } { +ad_proc server_cluster_authorized_p { ip } { Can a request coming from $ip be a valid cluster request, i.e., matches some value in ClusterIPMask or is 127.0.0.1? } { if { ![server_cluster_enabled_p] } { return 0 } Index: openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/table-display-procs.tcl,v diff -u -N -r1.19 -r1.20 --- openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl 12 Feb 2009 15:38:41 -0000 1.19 +++ openacs-4/packages/acs-tcl/tcl/table-display-procs.tcl 13 Feb 2009 20:28:08 -0000 1.20 @@ -6,7 +6,7 @@ # Dimensional selection bars. # -proc_doc ad_dimensional {option_list {url {}} {options_set ""} {optionstype url}} { +ad_proc ad_dimensional {option_list {url {}} {options_set ""} {optionstype url}} { Generate an option bar as in the ticket system;
Given what clause we are asking for and the joiner this returns @@ -146,7 +146,7 @@ return $out } -proc_doc ad_dimensional_set_variables {option_list {options_set ""}} { +ad_proc ad_dimensional_set_variables {option_list {options_set ""}} { set the variables defined in option_list from the form provided (form defaults to ad_conn form) or to default value from option_list if not in the form data. @@ -547,7 +547,7 @@ return $column_list } -proc_doc ad_sort_primary_key orderby { +ad_proc ad_sort_primary_key orderby { return the primary (first) key of an order spec used by } { @@ -557,7 +557,7 @@ return $orderby } -proc_doc ad_table_same varname { +ad_proc ad_table_same varname { Called from inside ad_table. returns true if the variable has same value as @@ -572,14 +572,14 @@ } } -proc_doc ad_table_span {str {td_html "align=\"left\""}} { +ad_proc ad_table_span {str {td_html "align=\"left\""}} { given string the function generates a row which spans the whole table. } { return "
columns is a list of the currently selected columns. @@ -681,7 +681,7 @@ return $html } -proc_doc ad_table_sort_form {datadef {type select} {return_url {}} {item_group {}} {item {}} {sort_spec {}} {allowed {}}} { +ad_proc ad_table_sort_form {datadef {type select} {return_url {}} {item_group {}} {item {}} {sort_spec {}} {allowed {}}} { builds a form for setting up custom sorts.