Forum OpenACS Development: Re: Re: Re: Howto checkout contacts

I was trying to add person form and i got this error

There was a server error processing your request. We apologize.

Take me back where I was (before the error)
Database operation "0or1row" failed (exception NSDB, "Query was not a statement returning rows.")

ERROR: duplicate key violates unique constraint "ams_lists_package_key_key"
CONTEXT: PL/pgSQL function "ams_list__new" line 25 at SQL statement

SQL:

select ams_list__new(NULL,'contacts','person','1077__1125','1077__1125',NULL,NULL,NULL,'506','201.36.243.36',NULL)

while executing
"ns_pg_bind 0or1row nsdb0 {

select ams_list__new(:list_id,:package_key,:object_type,:list_name,:pretty_name,:description,:description_mime_type,NULL,..."
("uplevel" body line 1)
invoked from within
"uplevel $ulevel [list ns_pg_bind $type $db $sql]"
("postgresql" arm line 2)
invoked from within
"switch $driverkey {
oracle {
return [uplevel $ulevel [list ns_ora $type $db $sql] $args]
}
..."
invoked from within
"db_exec 0or1row $db $full_statement_name $sql"
invoked from within
"if {[regexp -nocase -- {^\s*select} $test_sql match]} {
# ns_log Debug "PLPGSQL: bypassed anon function"
set selection..."
("uplevel" body line 6)
invoked from within
"uplevel 1 $code_block "
invoked from within
"db_with_handle -dbn $dbn db {
# plsql calls that are simple selects bypass the plpgsql
# mechanism for creating anonymous fun..."
(procedure "db_exec_plsql" line 57)
invoked from within
"db_exec_plsql create_object {}"
(procedure "package_instantiate_object" line 113)
invoked from within
"package_instantiate_object -extra_vars $extra_vars ams_list"
(procedure "ams::list::new" line 26)
invoked from within
"ams::list::new -package_key $package_key -object_type $object_type -list_name $list_name -pretty_name $pretty_name -description $description -des..."
invoked from within
"if { [string is false [exists_and_not_null blank_required_attributes]] } {
util_user_message -replace
ams::list::flush -package_key $package_key -ob..."
("uplevel" body line 15)
invoked from within
"uplevel #5 {
set uneditable_attributes [list package_key object_type list_name pretty_name description]
set blank_required_attributes [list]
..."
("uplevel" body line 1)
invoked from within
"uplevel 1 $args"
(procedure "ad_page_contract_eval" line 2)
invoked from within
"ad_page_contract_eval uplevel #$level $new_request"
(procedure "ad_form" line 468)
invoked from within
"ad_form -name list_form -form {
{list_id:key}
{package_key:text(select) {label "[_ ams.Package_Key_1]"} {options $package_options}}
{objec..."
("uplevel" body line 28)
invoked from within
"uplevel {
ad_page_contract {

@author Matthew Geddert mailto:openacs@geddert.com
@creation-date 2004-07-28
@cvs-id $Id: list-add.tcl,v 1.4..."
(procedure "code::tcl::/home/yabtdev/yabtdev/packages/ams/www/list-add" 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 5)
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..."Install locales