Index: openacs-4/packages/acs-kernel/sql/postgresql/apm-create.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-kernel/sql/postgresql/apm-create.sql,v diff -u -r1.4 -r1.5 --- openacs-4/packages/acs-kernel/sql/postgresql/apm-create.sql 30 Mar 2001 05:44:47 -0000 1.4 +++ openacs-4/packages/acs-kernel/sql/postgresql/apm-create.sql 3 Apr 2001 04:28:59 -0000 1.5 @@ -242,9 +242,8 @@ constraint apm_package_vers_ver_uri_un unique, summary varchar(3000) default '' not null, description_format varchar(100) - constraint apm_package_vers_desc_for_nn not null constraint apm_package_vers_desc_for_ck - check (description_format in ('', 'text/html', 'text/plain')), + check (description_format in ('text/html', 'text/plain')), description text default '' not null, release_date timestamp, vendor varchar(500) default '' not null, @@ -2086,7 +2085,7 @@ new__creation_ip, new__context_id ); - if instance_name is null then + if new__instance_name is null then v_instance_name := new__package_key || '' '' || v_package_id; else v_instance_name := new__instance_name; @@ -2612,7 +2611,7 @@ a_start integer; a_end integer; a_order varchar(1000); - a_char boolean; + a_char char(1); a_seen_letter boolean default ''f''; begin a_start := 1; @@ -2648,7 +2647,7 @@ -- what''s the next character? if a period, just skip it a_char := substr(version_name, a_end, 1); if a_char = ''.'' then - null; + return null; else -- if the next character was a letter, append the appropriate characters if a_char = ''d'' then @@ -2683,7 +2682,9 @@ returns integer as ' declare version_name_one alias for $1; - version_name_two alias for $2; + version_name_two alias for $2; + a_order_a varchar(250); + a_order_b varchar(250); begin a_order_a := apm_package_version__sortable_version_name(version_name_one); a_order_b := apm_package_version__sortable_version_name(version_name_two); Index: openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl,v diff -u -r1.3 -r1.4 --- openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl 30 Mar 2001 05:44:47 -0000 1.3 +++ openacs-4/packages/acs-tcl/tcl/apm-install-procs.tcl 3 Apr 2001 04:28:59 -0000 1.4 @@ -41,6 +41,10 @@ # At this point, we should have a directory that is equivalent to a package_key. if { [apm_package_installed_p $package_key] } { + + # Load up the queries (OpenACS Query Dispatcher - ben) + apm_package_install_queries $package_key + if {$new_p} { continue } @@ -295,6 +299,8 @@ array set version [apm_read_package_info_file $spec_file_path] set package_key $version(package.key) + # Install Queries (OpenACS Query Dispatcher - ben) + apm_package_install_queries $package_key if { $copy_files_p } { if { [empty_string_p $install_path] } { @@ -745,7 +751,7 @@ set files [glob -nocomplain ${path}/www/*.sql] set files [concat $files [glob -nocomplain ${path}/tcl/*.sql]] - ns_log Notice "APM/QD = loading up package query files" + ns_log Notice "APM/QD = loading up package query files for $package_key" foreach file $files { ns_log Notice "APM/QD = one file $file" Index: openacs-4/packages/acs-tcl/tcl/apm-procs.postgresql.sql =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/Attic/apm-procs.postgresql.sql,v diff -u -r1.2 -r1.3 --- openacs-4/packages/acs-tcl/tcl/apm-procs.postgresql.sql 3 Apr 2001 02:41:34 -0000 1.2 +++ openacs-4/packages/acs-tcl/tcl/apm-procs.postgresql.sql 3 Apr 2001 04:28:59 -0000 1.3 @@ -47,4 +47,16 @@ postgresql7.1 + + +select apm_package_version__add_dependency( + :dependency_id, + :version_id, + :dependency_uri, + :dependency_version +) + +postgresql7.1 + +