Index: openacs-4/packages/news/www/admin/revision-add-3.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/news/www/admin/revision-add-3.tcl,v diff -u -r1.1 -r1.2 --- openacs-4/packages/news/www/admin/revision-add-3.tcl 20 Apr 2001 20:51:14 -0000 1.1 +++ openacs-4/packages/news/www/admin/revision-add-3.tcl 15 Oct 2001 13:41:03 -0000 1.2 @@ -64,22 +64,24 @@ creation_user => :creation_user, make_active_revision_p => :active_revision_p); end;"] - - db_dml content_add " - update cr_revisions - set content = empty_blob() - where revision_id = :revision_id - returning content into :1" -blobs [list $publish_body] + + if {![string match [db_type] "postgresql"]} { + db_dml content_add " + update cr_revisions + set content = empty_blob() + where revision_id = :revision_id + returning content into :1" -blobs [list $publish_body] + } - } errmsg ] { +} errmsg ] { - set complaint " The database did not accept your input. - See details for the error message below\n\n\t
$errmsg" - ad_return_error "Database Error" "$complaint" - return -code return + set complaint " The database did not accept your input. + See details for the error message below\n\n\t
$errmsg" + ad_return_error "Database Error" "$complaint" + return -code return - } else { +} else { - ad_returnredirect "item?item_id=$item_id" + ad_returnredirect "item?item_id=$item_id" - } +}