version 1.52, 2003/05/13 20:48:12
|
version 1.54, 2003/06/09 22:42:49
|
Line 310 sub insert_essayresponse {
|
Line 310 sub insert_essayresponse {
|
</essayresponse>'; |
</essayresponse>'; |
} |
} |
|
|
|
sub insert_imageresponse { |
|
return ' |
|
<imageresponse max="1"> |
|
<foilgroup> |
|
</foilgroup> |
|
<hintgroup> |
|
</hintgroup> |
|
</imageresponse>'; |
|
} |
|
|
sub insert_optionresponse { |
sub insert_optionresponse { |
return ' |
return ' |
<optionresponse max="10"> |
<optionresponse max="10"> |
Line 404 sub textarea_sizes {
|
Line 414 sub textarea_sizes {
|
my ($data)=@_; |
my ($data)=@_; |
my $count=0; |
my $count=0; |
my $maxlength=-1; |
my $maxlength=-1; |
foreach (split ("\n", $$data)) { $count++; |
foreach (split ("\n", $$data)) { |
if (length($_) > $maxlength) { $maxlength = length($_); } |
$count+=int(length($_)/79); |
} |
$count++; |
|
if (length($_) > $maxlength) { $maxlength = length($_); } |
|
} |
my $rows = $count; |
my $rows = $count; |
my $cols = $maxlength; |
my $cols = $maxlength; |
return ($rows,$cols); |
return ($rows,$cols); |