Note that this breaks the upgrade process:
------------------------------------
/web/safe4all-dev/packages/acs-mail/sql/postgresql/upgrade/upgrade-4.6.1-4.6.2.sql...
HTTP/1.0 200 OK
Server: AOLserver/3.3.1+ad13
Content-Type: text/html; charset=iso-8859-1
MIME-Version: 1.0
Date: Tue, 15 Apr 2003 22:39:40 GMT
Content-Length: 3500
Connection: close
Request Error
psql:upgrade-4.6.1-4.6.2.sql:3: ERROR: index named "acs_mail_links_body_id_idx" already exists
psql:upgrade-4.6.1-4.6.2.sql:4: ERROR: index named "acs_mail_bodies_item_id_idx" already exists
psql:upgrade-4.6.1-4.6.2.sql:5: ERROR: index named "acs_mail_bodies_body_from_idx" already exists
psql:upgrade-4.6.1-4.6.2.sql:6: ERROR: index named "acs_mail_bodies_body_reply_idx" already exists
psql:upgrade-4.6.1-4.6.2.sql:7: ERROR: index named "acs_mail_mpp_cr_item_id_idx" already exists
invoked from within
"db_source_sql_file -callback $callback $path/$file_path"
(procedure "apm_package_install_data_model" line 32)
invoked from within
"apm_package_install_data_model -callback $callback -data_model_files $data_model_files $spec_file_path"
(procedure "apm_package_install" line 103)
invoked from within
"apm_package_install -enable=$enable_p -install_path $install_path -callback apm_ns_write_callback -load_data_model -data_model_files $data_model_..."
("foreach" body line 45)
invoked from within
"foreach pkg_info $pkg_install_list {
set spec_file [pkg_info_spec $pkg_info]
if { [catch {
array set version [apm_read_package_info_file $spe..."
("uplevel" body line 36)
invoked from within
"uplevel {
ad_page_contract {
Installs the packages.
@author Bryan Quinn (mailto:bquinn@arsdigita.com)
@creation-date Mon Oct 9 00:22:31..."
(procedure "code::tcl::/web/safe4all-dev/packages/acs-admin/www/apm/pack..." line 2)
invoked from within
"code::tcl::$__adp_stub"
invoked from within
"if { [file exists $__adp_stub.tcl] } {
# ensure that data source preparation procedure exists and is up-to-date
adp_init tcl $__adp_stub
..."
("uplevel" body line 3)
invoked from within
"uplevel {
if { [file exists $__adp_stub.tcl] } {
# ensure that data source preparation procedure exists and is up-to-date
adp_init t..."
(procedure "adp_prepare" line 2)
invoked from within
"adp_prepare "
(procedure "template::adp_parse" line 30)
invoked from within
"template::adp_parse [file root [ad_conn file]] {}"
(procedure "adp_parse_ad_conn_file" line 7)
invoked from within
"$handler"
("uplevel" body line 2)
invoked from within
"uplevel $code"
invoked from within
"ad_try {
$handler
} ad_script_abort val {
# do nothing
}"
invoked from within
"rp_serve_concrete_file [ad_conn file]"
(procedure "rp_serve_abstract_file" line 60)
invoked from within
"rp_serve_abstract_file "$root/$path""
("uplevel" body line 2)
invoked from within
"uplevel $code"
invoked from within
"ad_try {
rp_serve_abstract_file "$root/$path"
set tcl_url2file([ad_conn url]) [ad_conn file]
set tcl_url2path_info([ad_conn url]) [ad_conn path_inf..."