Index: openacs-4/packages/q-forms/q-forms.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/q-forms/q-forms.info,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/q-forms/q-forms.info	8 Apr 2015 08:34:36 -0000	1.2
+++ openacs-4/packages/q-forms/q-forms.info	3 May 2015 08:49:12 -0000	1.3
@@ -9,14 +9,14 @@
     <implements-subsite-p>f</implements-subsite-p>
     <inherit-templates-p>f</inherit-templates-p>
     
-    <version name="0.040" url="http://openacs.org/repository/download/apm/q-forms-0.040.apm">
+    <version name="0.045" url="http://openacs.org/repository/download/apm/q-forms-0.045.apm">
         <owner url="mailto:tekbasse@yahoo.com">Benjamin Brink</owner>
         <owner url="http://openacs.org">OpenACS Community</owner>
         <summary>Provides code for building forms dynamically in tcl</summary>
         <description format="text/plain">Provides qf_* form bulding and interpreting procedures, especially designed for building forms dynamically.</description>
         <maturity>1</maturity>
 
-        <provides url="q-forms" version="0.040"/>
+        <provides url="q-forms" version="0.045"/>
 
         <callbacks>
         </callbacks>
Index: openacs-4/packages/q-forms/tcl/form-helper-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/q-forms/tcl/form-helper-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/q-forms/tcl/form-helper-procs.tcl	8 Apr 2015 08:34:36 -0000	1.2
+++ openacs-4/packages/q-forms/tcl/form-helper-procs.tcl	3 May 2015 08:49:12 -0000	1.3
@@ -907,3 +907,13 @@
     return $type_decimal_p
 }
 
+ad_proc -public qf_unquote {
+ value
+} {
+   unquotes html similar to ad_unquotehtml except language keys, so that they are not rendered. Useful when creating forms with existing input values.
+} {
+    set value_quoted [ad_unquotehtml $value]
+    regsub -all -- {\#} $value_quoted {\&num;} value_quoted
+    return $value_quoted
+}
+