Forum OpenACS Q&A: edit-thi-page pkg

I did a html page on publisher. then i grabbed the sourcecode and paste on the edit-this-page -> create new page -> edit content

the final view isn't the same as it was on puclisher or sometimes i get the error:

Server Error
/ home / yabtdev / yabtdev / packages / dotlrn / www / dotlrn-master-kelp
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 "acs_objects_pk"
CONTEXT: PL/pgSQL function "etp__create_new_revision" line 32 at SQL statement

SQL:
select etp__create_new_revision('595', 'index', '486', '199061');

while executing
"ns_pg_bind 0or1row nsdb0 {
select etp__create_new_revision(:package_id, :name, :user_id, :revision_id);
}"
("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_new_revision """
("uplevel" body line 19)
invoked from within
"uplevel #$level $new_data"
("1" arm line 597)
invoked from within
"switch $errno {
0 {
# TCL_OK
}
1 {
# TCL_E..."
(procedure "ad_form" line 611)
invoked from within
"ad_form -name etp_edit -export { name attribute widget} -form $form_list -edit_request {


if { [lsearch -exact {title description content} $attr..."
("uplevel" body line 76)
invoked from within
"uplevel {

ad_page_contract {
@author Luke Pond (mailto:dlpond@museatech.net)
@creation-date 2001-06-10

Presents a form for editing a single pag..."
(procedure "code::tcl::/home/yabtdev/yabtdev/packages/edit-this-page/www..." 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