--- loncom/homework/edit.pm 2003/09/08 21:22:15 1.63
+++ loncom/homework/edit.pm 2003/11/24 21:54:39 1.72
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# edit mode helpers
#
-# $Id: edit.pm,v 1.63 2003/09/08 21:22:15 albertel Exp $
+# $Id: edit.pm,v 1.72 2003/11/24 21:54:39 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -33,6 +33,7 @@ package Apache::edit;
use strict;
use Apache::lonnet();
use HTML::Entities();
+use Apache::lonlocal;
# Global Vars
# default list of colors to use in editing
@@ -67,7 +68,7 @@ sub tag_start {
#
\n";
- my @help;# = Apache::lonxml::helpinfo($token);
+ my @help = Apache::lonxml::helpinfo($token);
if ($help[0]) {
$result .= ' | ' .
Apache::loncommon::help_open_topic(@help) .
@@ -273,6 +274,11 @@ sub handle_insertafter {
return $result;
}
+sub insert_img {
+ return '
+ ';
+}
+
sub insert_responseparam {
return '
';
@@ -283,6 +289,8 @@ sub insert_formularesponse {
+
+
';
}
@@ -292,6 +300,8 @@ sub insert_numericalresponse {
+
+
';
}
@@ -301,6 +311,8 @@ sub insert_stringresponse {
+
+
';
}
@@ -318,6 +330,8 @@ sub insert_imageresponse {
+
+
';
}
@@ -328,26 +342,60 @@ sub insert_optionresponse {
+
+
';
}
+sub insert_organicresponse {
+ return '
+
+
+
+
+
+
+';
+}
+
+sub insert_organicstructure {
+ return '
+
+';
+}
+
sub insert_radiobuttonresponse {
return '
+
+
';
}
+sub insert_reactionresponse {
+ return '
+
+
+
+
+
+
+';
+}
+
sub insert_rankresponse {
return '
+
+
';
}
@@ -360,6 +408,8 @@ sub insert_matchresponse {
+
+
';
}
@@ -374,6 +424,14 @@ sub insert_hintpart {
';
}
+sub insert_hintgroup {
+ return '
+
+
+
+';
+}
+
sub insert_numericalhint {
return '
@@ -453,7 +511,7 @@ sub editfield {
}
sub modifiedfield {
- my ($token) = @_;
+ my ($endtag,$parser) = @_;
my $result;
# foreach my $envkey (sort keys %ENV) {
# &Apache::lonxml::debug("$envkey ---- $ENV{$envkey}");
@@ -461,6 +519,9 @@ sub modifiedfield {
# &Apache::lonxml::debug("I want homework_edit_$Apache::lonxml::curdepth");
# &Apache::lonxml::debug($ENV{"form.homework_edit_$Apache::lonxml::curdepth"});
$result=$ENV{"form.homework_edit_$Apache::lonxml::curdepth"};
+ my $bodytext=&Apache::lonxml::get_all_text($endtag,$parser);
+ # textareas throw away intial \n
+ if ($bodytext=~/^\n/) { $result="\n".$result; }
return $result;
}
@@ -529,7 +590,7 @@ sub checked_arg {
my $result;
my $optionlist="";
my $allselected=$token->[2]{$name};
- $result=$description;
+ $result=&mt($description);
foreach my $option (@$list) {
my ($value,$text);
if ( ref($option) eq 'ARRAY') {
@@ -558,7 +619,7 @@ sub text_arg {
my $result;
if (!defined $size) { $size=20; }
my $arg=$token->[2]{$name};
- $result=$description.' ';
return ''.$result.'';
}
@@ -569,17 +630,19 @@ sub select_arg {
my $optionlist="";
my $selected=$token->[2]{$name};
foreach my $option (@$list) {
- my $value;
+ my ($text,$value);
if ( ref($option) eq 'ARRAY') {
$value='value="'.$$option[0].'"';
- $option=$$option[1];
+ $text=$$option[1];
+ $option=$$option[0];
} else {
+ $text=$option;
$value='value="'.$option.'"';
}
if ( $selected eq $option ) {
- $optionlist.="\n";
+ $optionlist.="\n";
} else {
- $optionlist.="\n";
+ $optionlist.="\n";
}
}
$result.=''.$description.' |