Index: openacs-4/packages/curriculum/lib/element-ave.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/curriculum/lib/element-ave.tcl,v
diff -u -r1.5 -r1.6
--- openacs-4/packages/curriculum/lib/element-ave.tcl	5 Sep 2003 09:32:15 -0000	1.5
+++ openacs-4/packages/curriculum/lib/element-ave.tcl	15 Sep 2003 20:39:59 -0000	1.6
@@ -96,7 +96,7 @@
     }
     
 } -new_data {
-    
+
     curriculum::element::new \
 	-curriculum_id $curriculum_id \
 	-name $name \
@@ -124,4 +124,19 @@
 
 }
 
+# OLA HACK (borrowed from LARS): Make the URL element a real link
+if { ![form is_valid element] } {
+        
+    if { [string equal -length 7 "http://" [set url [element get_value element url]]] } {
+	set position [parameter::get -package_id $package_id -parameter ExternalSiteBarPosition -default bottom]
+	set export_vars [export_vars -url {curriculum_id element_id position}]
+	
+	element set_properties element url -display_value \
+	    "<a href=\"[curriculum::conn package_url]ext?$export_vars\" target=\"_top\" title=\"[_ curriculum.Visit]\">$url</a>"
+    } else {
+	element set_properties element url -display_value \
+	    "<a href=\"$url\">$url</a>"
+    }
+}
+
 ad_return_template