Index: openacs-4/packages/acs-templating/tcl/head-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/head-procs.tcl,v
diff -u -r1.46 -r1.47
--- openacs-4/packages/acs-templating/tcl/head-procs.tcl 3 Sep 2024 15:37:35 -0000 1.46
+++ openacs-4/packages/acs-templating/tcl/head-procs.tcl 8 Oct 2024 14:20:18 -0000 1.47
@@ -19,10 +19,10 @@
handled by the templating system.
} {
#ns_log notice "----- template::reset_request_vars [ad_conn url]"
- array unset ::template::head::scripts
- array unset ::template::head::links
- array unset ::template::head::metas
- array unset ::template::body_handlers
+ unset -nocomplain ::template::head::scripts
+ unset -nocomplain ::template::head::links
+ unset -nocomplain ::template::head::metas
+ unset -nocomplain ::template::body_handlers
set ::template::body_scripts {}
set ::template::headers {}
@@ -850,7 +850,7 @@
}
}
}
- array unset links
+ unset -nocomplain links
}
# Generate the tag multirow
@@ -867,7 +867,7 @@
$style
}
}
- array unset styles
+ unset -nocomplain styles
}
# Generate the head tag multirow
@@ -900,7 +900,7 @@
}
}
template::multirow sort headscript order
- array unset scripts
+ unset -nocomplain scripts
}
template::prepare_body_script_multirow
}
Index: openacs-4/packages/acs-templating/tcl/list-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/list-procs.tcl,v
diff -u -r1.96 -r1.97
--- openacs-4/packages/acs-templating/tcl/list-procs.tcl 11 Sep 2024 06:15:48 -0000 1.96
+++ openacs-4/packages/acs-templating/tcl/list-procs.tcl 8 Oct 2024 14:20:18 -0000 1.97
@@ -3412,7 +3412,7 @@
set filter_properties(widget) $form_element(widget)
set filter_properties(selected_p) t
- array unset form_element
+ unset -nocomplain form_element
}
}
Index: openacs-4/packages/acs-templating/tcl/query-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/query-procs.tcl,v
diff -u -r1.52 -r1.53
--- openacs-4/packages/acs-templating/tcl/query-procs.tcl 11 Sep 2024 06:15:48 -0000 1.52
+++ openacs-4/packages/acs-templating/tcl/query-procs.tcl 8 Oct 2024 14:20:19 -0000 1.53
@@ -659,7 +659,7 @@
lappend r_list $key $value
}
}
- array unset row
+ unset -nocomplain row
}
incr rowcount -1
return $r_list
Index: openacs-4/packages/caldav/tcl/caldav-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/caldav/tcl/caldav-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/caldav/tcl/caldav-procs.tcl 11 Sep 2024 06:15:49 -0000 1.2
+++ openacs-4/packages/caldav/tcl/caldav-procs.tcl 8 Oct 2024 14:27:41 -0000 1.3
@@ -232,7 +232,7 @@
-location $c(location) \
-summary $c(name) \
-description $c(description)]
- array unset c
+ unset -nocomplain c
append resp [$vevent as_ical_calendar -calendar_name [:calendarName]]
$vevent destroy