Index: openacs-4/packages/acs-admin/www/apm/version-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/version-edit.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-admin/www/apm/version-edit.tcl	19 Jun 2015 09:09:51 -0000	1.12
+++ openacs-4/packages/acs-admin/www/apm/version-edit.tcl	7 Aug 2017 23:47:45 -0000	1.13
@@ -38,20 +38,17 @@
     set version_uri_suffix [string range $version_uri $version_name_index+[string length $version_name] end]
 
     append body [subst {
-<script type="text/javascript">
+<script type="text/javascript" nonce='$::__csp_nonce'>
 function updateVersionURL() {
     var form = document.forms\[0\];
     form.version_uri.value = "$version_uri_prefix" + form.version_name.value + "$version_uri_suffix";
 }
-</script>
-}]
-    set version_name_on_change "onChange=\"updateVersionURL()\""
-} else {
-    set version_name_on_change ""
+</script>}]
+    template::add_event_listener -CSSclass "update-version-url" -event change -script {updateVersionURL();}
 }
 
 append body [subst {
-<script type="text/javascript">
+<script type="text/javascript" nonce='$::__csp_nonce'>
 function checkMailto(element) {
     // If it looks like an email address without a mailto: (contains an @ but
     // no colon) then prepend 'mailto:'.
@@ -112,7 +109,7 @@
 
 <tr>
   <th style="text-align:right; white-space: nowrap">Version:</th>
-  <td><input name="version_name" size="10" value="$version_name" $version_name_on_change>
+  <td><input name="version_name" size="10" value="$version_name" class="update-version-url">
 </td>
 </tr>
 
@@ -194,7 +191,7 @@
 </tr>
 <tr>
   <th style="text-align:right; white-space: nowrap">$prompt URL:</th>
-  <td><input name="owner_uri" size="30" value="$owner_uri" onChange="checkMailto(this)"></td>
+  <td><input name="owner_uri" size="30" value="$owner_uri" class="check-mailto"></td>
 </tr>
     }]
 }
@@ -233,4 +230,12 @@
 </form>
 }]
 
+template::add_event_listener -CSSclass "check-mailto" -event change -script {checkMailto(this);}
+
 ad_return_template apm
+
+# Local variables:
+#    mode: tcl
+#    tcl-indent-level: 4
+#    indent-tabs-mode: nil
+# End: