+# Yes, I know that this is already implemented in IRSpy.pm. I suggest that we
+# introduce a toolkit package with such subroutines...
+#
+sub _string2cdata {
+ my ($this, $buffer) = @_;
+ $buffer =~ s/&/&/gs;
+ $buffer =~ s/</</gs;
+ $buffer =~ s/>/>/gs;
+ $buffer =~ s/"/"/gs;
+ $buffer =~ s/'/'/gs;
+
+ return $buffer;
+}
+
+
+sub _isodate {
+ my ($this, $time) = @_;
+ return ZOOM::IRSpy::Test::isodate($time);
+}
+
+