Index: openacs-4/packages/acs-automated-testing/www/admin/component.adp =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/component.adp,v diff -u -r1.7 -r1.7.2.1 --- openacs-4/packages/acs-automated-testing/www/admin/component.adp 3 Jul 2015 10:25:41 -0000 1.7 +++ openacs-4/packages/acs-automated-testing/www/admin/component.adp 9 Jun 2016 08:19:39 -0000 1.7.2.1 @@ -1,19 +1,20 @@ + + + @title;literal@ @context;literal@ - - -

@title@

-
Description:
@component_desc@
+
@title@
+
+
Description:
@component_desc;noquote@

Defined in file:
@component_file@

Component body
       @component_body@
     
-

- - + + Index: openacs-4/packages/acs-automated-testing/www/admin/component.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/component.tcl,v diff -u -r1.5.2.1 -r1.5.2.2 --- openacs-4/packages/acs-automated-testing/www/admin/component.tcl 10 Sep 2015 08:21:14 -0000 1.5.2.1 +++ openacs-4/packages/acs-automated-testing/www/admin/component.tcl 9 Jun 2016 08:19:39 -0000 1.5.2.2 @@ -1,7 +1,7 @@ ad_page_contract { @cvs-id $Id$ } { - component_id:naturalnum,notnull + component_id:token,notnull package_key:nohtml } -properties { title:onevalue Index: openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl,v diff -u -r1.13.2.2 -r1.13.2.3 --- openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl 10 Sep 2015 08:21:15 -0000 1.13.2.2 +++ openacs-4/packages/acs-automated-testing/www/admin/testcase.tcl 9 Jun 2016 08:19:39 -0000 1.13.2.3 @@ -85,7 +85,7 @@ # # Work out the URL for this directory (stripping off the file element). # - set url "[ad_conn url]" + set url [ad_conn url] regexp {(.*)/[^/]*} $url {\\1} url append url "/component?package_key=${package_key}"