Index: openacs-4/packages/ams/ams.info
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/ams.info,v
diff -u -r1.9 -r1.10
--- openacs-4/packages/ams/ams.info	9 Sep 2005 17:43:09 -0000	1.9
+++ openacs-4/packages/ams/ams.info	10 Sep 2005 13:48:35 -0000	1.10
@@ -29,6 +29,7 @@
         <parameters>
             <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="DefaultISOCountryCode"  description="Specify the default ISO Country Code(s) to be used for all address widgets. The first country that will show up is the first entry in this list. The countries specified here will be be at the top of the country list seperated from all other country codes. If left blank it will default to whatever country is alphabetically first in the language used. For a complete list of codes look at the countries table in the database." section_name="address-widget"/>
             <parameter datatype="number"  min_n_values="1"  max_n_values="1"  name="ForceCountryCodeOneFormatting"  default="0" description="If set to &quot;1&quot; AMS will force phone numbers to follow the country zone code 1 rules (US, Canada, etc.), all phone numbers will need to follow the 'three digit area code'-'three digits - 4 digits'x'Extension' format. All &quot;international&quot; numbers will need to have the format &quot;011-'Country_Code'-'Area_Code'-'Subscriber_number'x'Extension' format. If set to &quot;0&quot; telecom numbers will not be seperated into these elements, and the whole number will be entered in the DB as the subscriber number just as input in the form." section_name="telecom-number-widget"/>
+            <parameter datatype="string"  min_n_values="1"  max_n_values="1"  name="PhoneURL"  default="" description="If this is set, all phone numbers will be underlined with a URL, so you could click on the phone number and your Windows application starts a Phone Connection to the number you clicked on. Usually this is done using the phone protocol, so a save value is 'phone:$telecom_number'" section_name="telecom-number-widget"/>
         </parameters>
 
     </version>
Index: openacs-4/packages/ams/tcl/telecom-number-widget-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/ams/tcl/telecom-number-widget-procs.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/ams/tcl/telecom-number-widget-procs.tcl	7 Jun 2005 07:44:13 -0000	1.5
+++ openacs-4/packages/ams/tcl/telecom-number-widget-procs.tcl	10 Sep 2005 13:48:35 -0000	1.6
@@ -58,9 +58,14 @@
     }
     append telecom_number $area_city_code
     if { [exists_and_not_null telecom_number] } { append telecom_number "-" }
-    append telecom_number $subscriber_number
+    append telecom_number "$subscriber_number"
     if { [exists_and_not_null extension] } { append telecom_number "&nbsp;x$extension" }
-    return $telecom_number
+    set phone_url [parameter::get_from_package_key -parameter "PhoneURL" -package_key "ams" -default ""]
+    if {[empty_string_p $phone_url]} {
+	return $telecom_number
+    } else {
+	return "<a href=\"[eval set foo $phone_url]\">$telecom_number</a>"
+    }
 }
 
 ad_proc -public template::util::telecom_number::acquire { type { value "" } } {
@@ -390,7 +395,7 @@
   } else {
       # Display mode
       if { [info exists element(value)] } {
-          append output [template::util::telecom_number::get_property html_view $element(value)]
+          append output "[template::util::telecom_number::get_property html_view $element(value)]"
           append output "<input type=\"hidden\" name=\"$element(id).itu_id\" value=\"[ad_quotehtml $itu_id]\">"
           append output "<input type=\"hidden\" name=\"$element(id).national_number\" value=\"[ad_quotehtml $national_number]\">"
           append output "<input type=\"hidden\" name=\"$element(id).area_city_code\" value=\"[ad_quotehtml $area_city_code]\">"