--- loncom/homework/edit.pm 2013/05/06 16:07:29 1.144
+++ loncom/homework/edit.pm 2014/11/28 18:23:03 1.152
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# edit mode helpers
#
-# $Id: edit.pm,v 1.144 2013/05/06 16:07:29 bisitz Exp $
+# $Id: edit.pm,v 1.152 2014/11/28 18:23:03 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -161,7 +161,7 @@ sub tag_start {
if ($target eq "edit") {
my $tag=$token->[1];
if (!$description) {
- $description=&Apache::lonxml::description($token);
+ $description=&mt(&Apache::lonxml::description($token));
if (!$description) { $description="<$tag>"; }
}
$result.= &start_table($token)."
\n";
my @help = Apache::lonxml::helpinfo($token);
if ($help[0]) {
- $result .= ' | ' .
+ $result .= ' | '.
Apache::loncommon::help_open_topic(@help);
} else { $result .= " | "; }
$result .= &end_row().&start_spanning_row();
@@ -203,7 +203,7 @@ sub start_table {
}
$Apache::edit::colordepth++;
push(@Apache::edit::inserttag,$token->[1]);
- my $result='';
+ my $result=' ';
$result.=' ';
return $result;
}
@@ -211,7 +211,7 @@ sub start_table {
sub end_table {
$Apache::edit::colordepth--;
my $result=' ';
- $result.=' ';
+ $result.='';
my ($tagname,$closingtag);
if (defined($Apache::edit::inserttag[-2])) {
@@ -296,7 +296,7 @@ sub get_insert_list {
my $descrip=$Apache::lonxml::insertlist{"$tag.description"};
my $tagnum =$Apache::lonxml::insertlist{"$tag.num"};
$options{$descrip} ="\n";
+ &mt($descrip)."\n";
}
foreach my $option (sort(keys(%options))) {$result.=$options{$option};}
if ($result) { $result=''.$result; }
@@ -488,6 +488,13 @@ sub insert_numericalresponse {
';
}
+sub insert_externalresponse {
+ return '
+
+
+';
+}
+
sub insert_customresponse {
return '
@@ -660,6 +667,9 @@ sub insert_matchresponse {
+ -
+
+
@@ -786,6 +796,49 @@ sub submit_dont_ask {
return ' onclick="is_submit=true;'.$extra_action.'" ';
}
+sub js_update_linknum {
+ return (<
+SCRIPT
+
+}
sub textarea_sizes {
my ($data)=@_;
@@ -931,7 +984,7 @@ sub hidden_arg {
}
sub checked_arg {
- my ($description,$name,$list,$token) = @_;
+ my ($description,$name,$list,$token,$onclick,$useid) = @_;
my $result;
my $optionlist="";
my $allselected=$token->[2]{$name};
@@ -940,10 +993,10 @@ sub checked_arg {
my ($value,$text);
if ( ref($option) eq 'ARRAY') {
$value='value="'.$$option[0].'"';
- $text=$$option[1];
+ $text=&mt($$option[1]);
$option=$$option[0];
} else {
- $text=$option;
+ $text=&mt($option);
$value='value="'.$option.'"';
}
$result.=' '."\n";
}
return $result;
}
@@ -1050,13 +1106,13 @@ sub select_or_text_arg {
$description
+onchange="$hiddenvalue=$typedinvalue;"
+onfocus="$selectedindex=$selecttypeinindex-1;" />
ENDSELECTORTYPE
|
|
|