xowiki::Package instproc get_parameter_from_parameter_page (public)
<instance of xowiki::Package> get_parameter_from_parameter_page \ [ -parameter_page_name parameter_page_name ] parameter [ default ]
Defined in /var/www/openacs.org/packages/xowiki/tcl/package-procs.tcl
Try to get the parameter from the named parameter_page.
- Switches:
- -parameter_page_name (optional)
- Parameters:
- parameter (required)
- default (optional)
- Returns:
- parameter value or empty
- Testcases:
- xowiki_test_cases
Source code: set value $default if {$parameter_page_name ne ""} { if {![regexp {/?..:} $parameter_page_name]} { ad_log error "Name of parameter page '$parameter_page_name'" "of FormPage [self] must contain a language prefix" } else { set page [::xo::cc cache [list ::${:id} get_page_from_item_ref $parameter_page_name]] if {$page eq ""} { ad_log error "Could not resolve parameter page '$parameter_page_name'" "for package ${:id}." } # # The following block should not be necessary # if {![::nsf::is object $page]} { ad_log warning "We have to refetch parameter page" ::xo::db::CrClass get_instance_from_db -item_id [string trimleft $page :] } if {$page ne "" && [$page exists instance_attributes]} { set __ia [$page set instance_attributes] if {[dict exists $__ia $parameter]} { set value [dict get $__ia $parameter] } } } } return $valueXQL Not present: Generic, PostgreSQL, Oracle