version 1.26, 2003/04/08 02:40:56
|
version 1.27, 2003/04/18 07:12:13
|
Line 89 sub end_essayresponse {
|
Line 89 sub end_essayresponse {
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $part = $Apache::inputtags::part; |
my $part = $Apache::inputtags::part; |
my $id = $Apache::inputtags::response[-1]; |
my $id = $Apache::inputtags::response[-1]; |
|
my $increment = 1; |
my $result; |
my $result; |
if ( $target eq 'grade' ) { |
if ( $target eq 'grade' ) { |
my $collaborators = $ENV{'form.HWCOL'.$part.'_'.$id}; |
my $collaborators = $ENV{'form.HWCOL'.$part.'_'.$id}; |
Line 97 sub end_essayresponse {
|
Line 98 sub end_essayresponse {
|
$Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators |
$Apache::lonhomework::results{"resource.$part.$id.collaborators"}=$collaborators |
if ($collaborators ne $previous_list); |
if ($collaborators ne $previous_list); |
} |
} |
if ( defined $ENV{'form.submitted'}) { |
if ( defined($ENV{'form.submitted'}) && |
|
$ENV{'form.submitted'}='scantron' ) { |
|
my $repetition=&Apache::response::repetition(); |
|
$increment=$repetition; |
|
} elsif ( defined($ENV{'form.submitted'}) ) { |
my $response = $ENV{'form.HWVAL_'.$id}; |
my $response = $ENV{'form.HWVAL_'.$id}; |
my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'}; |
my $filename= $ENV{'form.HWFILE'.$part.'_'.$id.'.filename'}; |
if (( $response =~ /[^\s]/) || ($filename =~ /[^\s]/)) { |
if (( $response =~ /[^\s]/) || ($filename =~ /[^\s]/)) { |
Line 132 sub end_essayresponse {
|
Line 137 sub end_essayresponse {
|
$result.=&Apache::edit::end_table(); |
$result.=&Apache::edit::end_table(); |
} elsif ($target eq 'tex') { |
} elsif ($target eq 'tex') { |
if ($Apache::lonhomework::type eq 'exam') { |
if ($Apache::lonhomework::type eq 'exam') { |
my $id = $Apache::inputtags::part; |
my $repetition=&Apache::response::repetition(); |
my $weight = &Apache::lonnet::EXT("resource.$id.weight"); |
|
my $repetition = int $weight/9; |
|
if ($weight % 9 != 0) {$repetition++;} |
|
$result.='\begin{enumerate}'; |
$result.='\begin{enumerate}'; |
for (my $i=0;$i<$repetition;$i++) { |
for (my $i=0;$i<$repetition;$i++) { |
$result.='\item[\textbf{'.$Apache::lonxml::counter.'}.]\textit{Leave blank on scoring form}\vskip 0 mm'; |
$result.='\item[\textbf{'.($Apache::lonxml::counter+$i). |
&Apache::lonxml::increment_counter(); |
'}.]\textit{Leave blank on scoring form}\vskip 0 mm'; |
} |
} |
$result.= '\end{enumerate}'; |
$result.= '\end{enumerate}'; |
} |
} |
} |
} |
|
if ($target eq 'grade' || $target eq 'web' || $target eq 'answer' || |
|
$target eq 'tex' || $target eq 'analyze') { |
|
&Apache::lonxml::increment_counter($increment); |
|
} |
&Apache::response::end_response; |
&Apache::response::end_response; |
return $result; |
return $result; |
} |
} |