--- loncom/interface/lontemplate.pm	2009/11/26 05:21:43	1.40
+++ loncom/interface/lontemplate.pm	2009/12/22 06:22:12	1.42
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # "Template" Functions to generate html output
 #
-# $Id: lontemplate.pm,v 1.40 2009/11/26 05:21:43 faziophi Exp $
+# $Id: lontemplate.pm,v 1.42 2009/12/22 06:22:12 faziophi Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -43,6 +43,13 @@ use Apache::lonlocal;
 use Apache::lonmsgdisplay();
 use HTML::Entities();
 
+use constant {
+	RICH_TEXT_ALWAYS_ON => 'LC_richAlwaysOn',
+	RICH_TEXT_ALWAYS_OFF => 'LC_richAlwaysOff',
+	RICH_TEXT_DEFAULT_ON => 'LC_richDefaultOn',
+	RICH_TEXT_DETECT_HTML => 'LC_richDetectHtml',
+	RICH_TEXT_DEFAULT_OFF => 'LC_richDefaultOff'
+};
 
 sub start_columnSection {
 	my ($r) = @_;
@@ -65,8 +72,7 @@ sub print_aboutme_content_template {
               if (!&Apache::lonfeedback::contains_block_html($message)) {
               	&Apache::lonfeedback::newline_to_br(\$message);
               }
-              $message
-             =~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
+              $message=&Apache::lonhtmlcommon::raw_href_to_link($message);
               if ($allowed) {
                   $message=&Apache::lonspeller::markeduptext($message);
               }
@@ -126,4 +132,16 @@ sub print_editbox_template {
                            &mt('Save All').'" />');
 }
 
+sub print_textarea_template {
+	my ($r, $content, $field, $wysiwyg) = @_;
+	$r->print('<textarea cols="81" rows="6" class="'.$wysiwyg.'" id="'.$field.'" name="'.$field.'">'.
+						  &HTML::Entities::encode($content, '"&<>').
+			'</textarea><br />');
+}
+
+sub print_saveall_template {
+	my ($r) = @_;
+	$r->print('<input type="submit" name="storesyl" value="'.&mt('Save All').'" />');
+}
+
 1;