Index: openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl,v diff -u -r1.28 -r1.29 --- openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl 4 Apr 2018 18:51:56 -0000 1.28 +++ openacs-4/packages/acs-content-repository/tcl/content-item-procs.tcl 7 Apr 2018 17:40:02 -0000 1.29 @@ -134,10 +134,10 @@ # since we can't rely on content_item__new to create a # revision we have to pass is_live to content::revision::new # and set the live revision there - if {([info exists title] && $title ne "") - || ([info exists text] && $text ne "") - || ([info exists data] && $data ne "") - || ([info exists tmp_filename] && $tmp_filename ne "") + if {$title ne "" + || $text ne "" + || $data ne "" + || $tmp_filename ne "" || [llength $attributes] } { content::revision::new \ Index: openacs-4/packages/acs-content-repository/tcl/content-template-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-template-procs.tcl,v diff -u -r1.10 -r1.11 --- openacs-4/packages/acs-content-repository/tcl/content-template-procs.tcl 24 Dec 2017 13:03:22 -0000 1.10 +++ openacs-4/packages/acs-content-repository/tcl/content-template-procs.tcl 7 Apr 2018 17:40:02 -0000 1.11 @@ -18,7 +18,7 @@ {-parent_id ""} {-is_live ""} {-template_id ""} - -creation_date + {-creation_date ""} {-creation_user ""} {-creation_ip ""} {-package_id ""} @@ -44,7 +44,7 @@ [list creation_ip $creation_ip ] \ [list package_id $package_id ] \ ] - if {([info exists creation_date] && $creation_date ne "")} { + if {$creation_date ne ""} { lappend arg_list [list creation_date $creation_date ] } return [package_exec_plsql -var_list $arg_list content_template new]