Index: openacs-4/packages/acs-admin/www/apm/package-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-admin/www/apm/package-add.tcl,v
diff -u -r1.13.2.3 -r1.13.2.4
--- openacs-4/packages/acs-admin/www/apm/package-add.tcl	28 Sep 2016 12:56:29 -0000	1.13.2.3
+++ openacs-4/packages/acs-admin/www/apm/package-add.tcl	8 Nov 2016 11:50:33 -0000	1.13.2.4
@@ -54,7 +54,7 @@
 
 <tr>
   <th align="right" nowrap>Package Key:</th>
-  <td><input name="package_key" id="package_key" size="30"></td>
+  <td><input name="package_key" size="30" class="update-url"></td>
 </tr>
 
 <tr>
@@ -149,7 +149,7 @@
 
 <tr>
   <th align="right" nowrap>Initial Version:</th>
-  <td><input name="version_name" id="version_name" size="10"></td>
+  <td><input name="version_name" size="10" id="update-url"></td>
 </tr>
 
 <tr>
@@ -208,15 +208,15 @@
 </tr>
 <tr>
   <th align="right" nowrap>Primary Owner URL:</th>
-  <td><input name="owner_uri" size="30" value="mailto:$email" onChange="checkMailto(this)"></td>
+  <td><input name="owner_uri" size="30" value="mailto:$email" class="check-mailto"></td>
 </tr>
 <tr>
   <th align="right" nowrap>Secondary Owner:</th>
   <td><input name="owner_name" size="30"></td>
 </tr>
 <tr>
   <th align="right" nowrap>Secondary Owner URL:</th>
-  <td><input name="owner_uri" size="30" onChange="checkMailto(this)"></td>
+  <td><input name="owner_uri" size="30" class="check-mailto"></td>
 </tr>
 
 <tr>
@@ -255,18 +255,14 @@
 </table>
 }]
 
-ad_return_template apm
 
-# Add onChange event listener to package_key and version_name fields to comply with CSP.
-# No inline JS event handlers!
-template::add_body_script -script "
-    var elem = document.getElementById('package_key');
-    elem.addEventListener('change', function (event) {updateURLs();});
-    
-    var elem = document.getElementById('version_name');
-    elem.addEventListener('change', function (event) {updateURLs();});"
+# Add event listener for updating urls and checking mailto urls
 
+template::add_event_listener -CSSclass "update-url" -event change -script {updateURLs();}
+template::add_event_listener -CSSclass "check-mailto" -event change -script {checkMailto(this);}
 
+ad_return_template apm
+
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4