--- loncom/homework/inputtags.pm 2003/09/17 21:29:44 1.116
+++ loncom/homework/inputtags.pm 2004/02/06 22:39:56 1.124.2.1
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# input definitons
#
-# $Id: inputtags.pm,v 1.116 2003/09/17 21:29:44 www Exp $
+# $Id: inputtags.pm,v 1.124.2.1 2004/02/06 22:39:56 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -98,6 +98,16 @@ sub end_input {
return '';
}
+sub addchars {
+ my ($fieldid,$addchars)=@_;
+ my $output='';
+ foreach (split(/\,/,$addchars)) {
+ $output.=''.$_.' ';
+ }
+ return $output;
+}
+
sub start_textfield {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my $result = "";
@@ -112,7 +122,12 @@ sub start_textfield {
if ( $cols eq '') { $cols = 80; }
my $rows = &Apache::lonxml::get_param('rows',$parstack,$safeeval);
if ( $rows eq '') { $rows = 10; }
- $result= '