Skip to content

I
intranet-dynfield
Commit 439ea044 authored by cvs2svn's avatar cvs2svn
Browse files
Options

This commit was manufactured by cvs2svn to create branch 'b4-1-1-patches'. 

Sprout from master 2015-11-19 20:18:58 UTC Frank Bergmann  <frank.bergmann@project-open.com> '- Fixed export_vars brace vs. brackets'
Cherrypick from master 2014-05-21 20:38:36 UTC Frank Bergmann  <frank.bergmann@project-open.com> '- beautified':
    tcl/ams-procs-postgresql.xql
    tcl/ams-procs.tcl
    tcl/ams-widget-procs-postgresql.xql
    tcl/ams-widget-procs.tcl
parent cacaf2dd
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 3387 additions and 0 deletions
tcl/ams-procs-postgresql.xql 0 → 100755
View file @ 439ea044
<?xml version="1.0"?>
<queryset>
<fullquery name="attribute::pretty_name_not_cached.get_pretty_name">
<querytext>
select pretty_name
from acs_attributes
where attribute_id = :attribute_id
</querytext>
</fullquery>
<fullquery name="attribute::pretty_plural_not_cached.get_pretty_plural">
<querytext>
select pretty_plural
from acs_attributes
where attribute_id = :attribute_id
</querytext>
</fullquery>
<fullquery name="attribute::new.create_attribute">
<querytext>
select acs_attribute__create_attribute (
:object_type,
:attribute_name,
:datatype,
:pretty_name,
:pretty_plural,
:table_name,
:column_name,
:default_value,
:min_n_values,
:max_n_values,
:sort_order,
:storage,
:static_p
)
</querytext>
</fullquery>
<fullquery name="attribute::new.update_pretty_names">
<querytext>
update acs_attributes
set pretty_name = :pretty_name,
pretty_plural = :pretty_plural
where attribute_id = :attribute_id
</querytext>
</fullquery>
<fullquery name="attribute::id_not_cached.get_attribute_id">
<querytext>
select attribute_id
from acs_attributes
where object_type in ([ams::object_parents -sql -show_root -object_type $object_type])
and attribute_name = :attribute_name
</querytext>
</fullquery>
<fullquery name="attribute::default_value_not_cached.select_default_value">
<querytext>
select default_value
from ams_attributes
where attribute_id = :attribute_id
</querytext>
</fullquery>
<fullquery name="attribute::default_value_set.update_default_value">
<querytext>
update acs_attributes
set default_value = :default_value
where attribute_id = :attribute_id
</querytext>
</fullquery>
<fullquery name="ams::object_parents.get_supertype">
<querytext>
select supertype
from acs_object_types
where object_type = :object_type
</querytext>
</fullquery>
<fullquery name="ams::object_copy.copy_object">
<querytext>
insert into ams_attribute_values
(object_id,attribute_id,value_id)
( select :to,
attribute_id,
value_id
from ams_attribute_values
where object_id = :from
and attribute_id not in ( select attribute_id from ams_attribute_values where object_id = :to ))
</querytext>
</fullquery>
<fullquery name="ams::object.object_delete.delete_object">
<querytext>
delete from ams_attribute_values
where object_id = :object_id
</querytext>
</fullquery>
<fullquery name="ams::attribute::get.select_attribute_info">
<querytext>
select *
from ams_attributes
where attribute_id = :attribute_id
</querytext>
</fullquery>
<fullquery name="ams::attribute::new.get_existing_ams_attribute_id">
<querytext>
select ams_attribute_id
from ams_attributes
where attribute_id = :attribute_id
</querytext>
</fullquery>
<fullquery name="ams::attribute::value_save.clean_up">
<querytext>
delete from ams_attribute_values
where object_id = :object_id
and attribute_id = :attribute_id
</querytext>
</fullquery>
<fullquery name="ams::attribute::value_save.insert_value">
<querytext>
insert into ams_attribute_values
(object_id,attribute_id,value_id)
values
(:object_id,:attribute_id,:value_id)
</querytext>
</fullquery>
<fullquery name="ams::option::new.get_option_id">
<querytext>
select option_id
from ams_option_types
where option = :option
and attribute_id = :attribute_id
</querytext>
</fullquery>
<fullquery name="ams::option::new.update_pretty_name">
<querytext>
update acs_objects
set title = :pretty_name
where object_id = :option_id
</querytext>
</fullquery>
<fullquery name="ams::option::name.get_option">
<querytext>
select option
from ams_option_types
where option_id = :option_id
</querytext>
</fullquery>
<fullquery name="ams::ad_form::save.select_elements">
<querytext>
select alam.attribute_id,
alam.required_p,
alam.section_heading,
aa.attribute_name,
aa.pretty_name,
aa.widget
from ams_list_attribute_map alam,
ams_attributes aa
where alam.attribute_id = aa.attribute_id
and alam.list_id = :list_id
order by alam.sort_order
</querytext>
</fullquery>
<fullquery name="ams::ad_form::elements.select_elements">
<querytext>
select alam.attribute_id,
alam.required_p,
alam.section_heading,
aa.attribute_name,
aa.pretty_name,
aa.widget,
alam.html_options
from ams_list_attribute_map alam,
ams_attributes aa
where alam.attribute_id = aa.attribute_id
and alam.list_id in ($list_ids)
$orderby_clause
</querytext>
</fullquery>
<fullquery name="ams::elements.select_elements">
<querytext>
select alam.attribute_id,
alam.required_p,
alam.section_heading,
aa.attribute_name,
aa.pretty_name,
aa.widget,
alam.html_options
from ams_list_attribute_map alam,
ams_attributes aa
where alam.attribute_id = aa.attribute_id
and alam.list_id in ($list_ids)
$orderby_clause
</querytext>
</fullquery>
<fullquery name="ams::ad_form::values.select_values">
<querytext>
select aav.*, aa.attribute_name, aa.widget, aa.pretty_name,
ams_attribute_value__value(aav.attribute_id,aav.value_id) as value
from ams_attribute_values aav,
ams_attributes aa
where aav.object_id = :object_id
and aav.attribute_id = aa.attribute_id
and aa.attribute_id in ( select attribute_id from ams_list_attribute_map where list_id = :list_id )
</querytext>
</fullquery>
<fullquery name="ams::values_not_cached.select_values">
<querytext>
select alam.attribute_id,
alam.section_heading,
aa.attribute_name,
aa.pretty_name,
aa.widget
from ams_list_attribute_map alam,
ams_attributes aa
where
alam.attribute_id = aa.attribute_id
and alam.list_id in ($list_ids)
$orderby_clause
</querytext>
</fullquery>
<fullquery name="ams::value_not_cached.select_value">
<querytext>
select ams_attribute_value__value(av.attribute_id,av.value_id) as value, widget,attribute_name,av.attribute_id
from ams_attribute_values av, ams_attributes aa
where object_id = :object_id
and av.attribute_id = aa.attribute_id
$where_clause
</querytext>
</fullquery>
</queryset>
tcl/ams-procs.tcl 0 → 100755
View file @ 439ea044
This diff is collapsed.
tcl/ams-widget-procs-postgresql.xql 0 → 100755
View file @ 439ea044
<?xml version="1.0"?>
<queryset>
<fullquery name="ams::widget_options_not_cached.get_options">
<querytext>
select option,
option_id,
title as pretty_name
from ams_option_types aot, acs_objects ao
where attribute_id = :attribute_id
and aot.option_id = ao.object_id
and not deprecated_p
order by sort_order
</querytext>
</fullquery>
<fullquery name="ams::widgets_init.select_widgets_to_deactivate">
<querytext>
select *
from ams_widgets
where active_p is true
and widget not in ($sql_list_of_valid_procs)
</querytext>
</fullquery>
<fullquery name="ams::widgets_init.save_widget">
<querytext>
select ams_widget__save (
:widget,
:pretty_name,
:value_method,
:active_p
)
</querytext>
</fullquery>
<fullquery name="ams::util::text_save.save_value">
<querytext>
select ams_value__text_save (
:text,
:text_format
)
</querytext>
</fullquery>
<fullquery name="ams::util::time_save.save_value">
<querytext>
select ams_value__time_save (
:time
)
</querytext>
</fullquery>
<fullquery name="ams::util::number_save.save_value">
<querytext>
select ams_value__number_save (
:number
)
</querytext>
</fullquery>
<fullquery name="ams::util::postal_address_save.save_value">
<querytext>
select ams_value__postal_address_save (
:delivery_address,
:municipality,
:region,
:postal_code,
:country_code,
:additional_text,
:postal_type
)
</querytext>
</fullquery>
<fullquery name="ams::util::telecom_number_save.save_value">
<querytext>
select ams_value__telecom_number_save (
:itu_id,
:national_number,
:area_city_code,
:subscriber_number,
:extension,
:sms_enabled_p,
:best_contact_time,
:location,
:phone_type_id
)
</querytext>
</fullquery>
<fullquery name="ams::util::options_save.options_value_id">
<querytext>
select value_id
from ams_option_ids
where ams_value__options(value_id) = :options
</querytext>
</fullquery>
<fullquery name="ams::util::options_save.option_map">
<querytext>
select ams_option__map (
:value_id,
:option_id
)
</querytext>
</fullquery>
</queryset>
tcl/ams-widget-procs.tcl 0 → 100755
View file @ 439ea044
This diff is collapsed.
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment