Index: openacs-4/packages/xowf/tcl/atjob-procs.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/xowf/tcl/atjob-procs.tcl,v diff -u -r1.8.2.8 -r1.8.2.9 --- openacs-4/packages/xowf/tcl/atjob-procs.tcl 8 Dec 2020 15:36:54 -0000 1.8.2.8 +++ openacs-4/packages/xowf/tcl/atjob-procs.tcl 10 Dec 2020 15:09:06 -0000 1.8.2.9 @@ -122,12 +122,10 @@ } set cmd [dict get $__ia cmd] - if {[dict exists $__ia url]} { - set url [dict get $__ia url] - if {$url eq ""} { - set url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0] - ns_log warning "--at providing best effort url, since no valid URL was provided by caller (cmd $cmd)" - } + set url [expr {[dict exists $__ia url] ? [dict get $__ia url] : ""}] + if {$url eq ""} { + set url [lindex [site_node::get_url_from_object_id -object_id $package_id] 0] + ns_log warning "--at providing best effort url, since no valid URL was provided by caller (cmd $cmd)" } #