Index: openacs-4/packages/acs-tcl/tcl/defs-procs.xql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/defs-procs.xql,v diff -u -r1.1 -r1.1.4.1 --- openacs-4/packages/acs-tcl/tcl/defs-procs.xql 24 Apr 2001 06:02:27 -0000 1.1 +++ openacs-4/packages/acs-tcl/tcl/defs-procs.xql 9 Oct 2002 00:18:16 -0000 1.1.4.1 @@ -1,27 +1,31 @@ - - - - select first_names, last_name, email - from persons, parties - where person_id = :user_id - and person_id = party_id - - - + + + select first_names, last_name, email + from persons, parties + where person_id = :user_id + and person_id = party_id + + - - - - - select v.package_id, p.parameter_name, v.attr_value - from apm_parameters p, apm_parameter_values v - where p.parameter_id = v.parameter_id - - - + + + select apm_parameter_values.attr_value + from apm_parameters, apm_parameter_values + where apm_parameter_values.package_id = :package_id + and apm_parameter_values.parameter_id = apm_parameters.parameter_id + and apm_parameters.parameter_name = :parameter_name + + - + + + select v.package_id, p.parameter_name, v.attr_value + from apm_parameters p, apm_parameter_values v + where p.parameter_id = v.parameter_id + + +