--- loncom/homework/structuretags.pm 2002/03/06 20:22:12 1.84
+++ loncom/homework/structuretags.pm 2002/03/29 18:32:46 1.87
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: structuretags.pm,v 1.84 2002/03/06 20:22:12 matthew Exp $
+# $Id: structuretags.pm,v 1.87 2002/03/29 18:32:46 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -174,12 +174,14 @@ sub start_problem {
$Apache::inputtags::part='0';
@Apache::inputtags::responselist = ();
@Apache::inputtags::previous=();
- &initialize_storage();
- if ($target eq 'web') {
- &Apache::lonhomework::showhash(%Apache::lonhomework::history);
+ if ($target ne 'analyze') {
+ &initialize_storage();
+ if ($target eq 'web') {
+ &Apache::lonhomework::showhash(%Apache::lonhomework::history);
+ }
+ $Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
+ &Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
}
- $Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
- &Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
if ($Apache::lonhomework::type eq '') {
my $uri=$ENV{'request.uri'};
if ($uri=~/\.(\w+)$/) {
@@ -297,7 +299,7 @@ sub start_problem {
$result=$token->[4];
$result.=&Apache::edit::handle_insert();
} elsif ($target eq 'tex') {
- $result .= '\begin{document}\noindent\textbf{Problem.}\newline';
+ $result .= '\begin{document} ';
} else {
# page_start returned a starting result, delete it if we don't need it
$result = '';
@@ -341,7 +343,7 @@ sub end_problem {
&Apache::lonxml::debug("in end_problem with $target, edit");
$result='
';
} elsif ($target eq 'tex') {
- $result .= '\end{document}';
+ $result .= '\noindent\makebox[9.0cm][b]{\hrulefill}\end{document}';
}
return $result;
}
@@ -437,6 +439,7 @@ sub end_while {
#
sub start_randomlist {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
+ my $result;
if ($target eq 'answer' || $target eq 'grade' || $target eq 'web') {
my $body= &Apache::lonxml::get_all_text("/randomlist",$$parser[$#$parser]);
my $b_parser= HTML::TokeParser->new(\$body);
@@ -461,16 +464,27 @@ sub start_randomlist {
# print "END-TAG $b_tok->[1]
";
# }
}
-
my @idx_arr = (0 .. $#randomlist);
&Apache::structuretags::shuffle(\@idx_arr);
my $bodytext = '';
- for(0 .. $#randomlist) {
+ my $show=$#randomlist;
+ my $showarg=&Apache::lonxml::get_param('show',$parstack,$safeeval);
+ $showarg--;
+ if ( ($showarg >= 0) && ($showarg < $show) ) { $show = $showarg; }
+ for(0 .. $show) {
$bodytext .= "$randomlist[ $idx_arr[$_] ]";
}
&Apache::lonxml::newparser($parser,\$bodytext);
+ } elsif ($target eq 'edit' ) {
+ $result .= &Apache::edit::tag_start($target,$token);
+ $result .= &Apache::edit::text_arg('Maximum Tags to Show:','show',$token,5);
+ $result .= &Apache::edit::end_row().&Apache::edit::start_spanning_row();
+ } elsif ($target eq 'modified' ) {
+ my $constructtag=&Apache::edit::get_new_args($token,$parstack,$safeeval,
+ 'show');
+ if ($constructtag) { $result = &Apache::edit::rebuild_tag($token); }
}
- return "";
+ return $result;
}
sub shuffle {
@@ -487,7 +501,12 @@ sub shuffle {
}
sub end_randomlist {
- return '';
+ my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
+ my $result;
+ if ($target eq 'edit' ) {
+ $result=&Apache::edit::tag_end($target,$token,'End Randomly Parsed Block');
+ }
+ return $result;
}
sub start_part {
@@ -617,6 +636,9 @@ sub end_startouttext {
$text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']);
$result=''.&Apache::edit::modifiedfield();
}
+ if ($target eq 'tex') {
+ $result .= '\noindent ';
+ }
return $result;
}
sub start_endouttext {