version 1.200, 2006/11/09 21:31:11
|
version 1.215, 2006/12/28 20:12:54
|
Line 380 sub nest {
|
Line 380 sub nest {
|
} |
} |
} |
} |
|
|
|
sub start_delay { |
|
push(@delay,1); |
|
} |
|
sub end_delay { |
|
pop(@delay); |
|
} |
|
|
sub nested_parse { |
sub nested_parse { |
my ($str,$env,$args) = @_; |
my ($str,$env,$args) = @_; |
my @old_env = @Apache::scripttag::parser_env; |
my @old_env = @Apache::scripttag::parser_env; |
Line 791 sub start_Task {
|
Line 798 sub start_Task {
|
if ($target eq 'webgrade') { |
if ($target eq 'webgrade') { |
$result.="\n".'<div id="LC_GRADING_criterialist">'; |
$result.="\n".'<div id="LC_GRADING_criterialist">'; |
&Apache::lonxml::startredirection(); |
&Apache::lonxml::startredirection(); |
|
&start_delay(); |
|
$dimension{$top}{'result'}=$result; |
|
undef($result); |
} |
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=$form_tag_start. |
$result.=$form_tag_start. |
Line 1051 DONEBUTTON
|
Line 1061 DONEBUTTON
|
$start_time=&Apache::lonlocal::locallocaltime($start_time); |
$start_time=&Apache::lonlocal::locallocaltime($start_time); |
|
|
my $status = |
my $status = |
"\n<div class='LC_$bt_status LC_criteria'>\n\t"; |
"\n<div class='LC_$bt_status LC_criteria LC_task_overall_status'>\n\t"; |
|
|
|
my $dim = $top; |
|
my %counts = &get_counts($dim,undef,$parstack, |
|
$safeeval); |
|
my $question_status ="\n\t<p>". |
|
&question_status_message(\%counts,-1). |
|
"</p>\n"; |
|
|
if ($bt_status eq 'pass') { |
if ($bt_status eq 'pass') { |
$status.='<h2>You passed the '.$title.' given on '. |
$status.='<h2>You passed the '.$title.' given on '. |
$start_time.'</h2>'; |
$start_time.'</h2>'; |
|
$status.=$question_status; |
} |
} |
if ($bt_status eq 'fail') { |
if ($bt_status eq 'fail') { |
$status.='<h2>You did not pass the '.$title.' given on '. |
$status.='<h2>You did not pass the '.$title.' given on '. |
$start_time.'</h2>'; |
$start_time.'</h2>'; |
|
$status.=$question_status; |
if (!$previous) { |
if (!$previous) { |
$status.=&add_request_another_attempt_button(); |
$status.=&add_request_another_attempt_button(); |
} |
} |
} |
} |
$status.="\n".'</div>'."\n"; |
|
my $dim = $top; |
|
my %counts = &get_counts($dim,undef,$parstack, |
|
$safeeval); |
|
$status.="\n<div class='LC_$bt_status LC_criteria LC_task_overall_status'>\n\t<p>". |
|
&question_status_message(\%counts,-1). |
|
"</p>\n</div>\n"; |
|
|
|
|
$status.="\n".'</div>'."\n"; |
|
|
foreach my $id (@{$dimension{$dim}{'criterias'}}) { |
foreach my $id (@{$dimension{$dim}{'criterias'}}) { |
my $type = $dimension{$dim}{'criteria.'.$id.'.type'}; |
my $type = $dimension{$dim}{'criteria.'.$id.'.type'}; |
Line 1103 DONEBUTTON
|
Line 1116 DONEBUTTON
|
} |
} |
|
|
|
|
if ($target eq 'grade' && !$env{'form.webgrade'} && !$previous) { |
if ($target eq 'grade' && !$env{'form.webgrade'} && !$previous |
|
&& $status eq 'CAN_ANSWER') { |
my $award='SUBMITTED'; |
my $award='SUBMITTED'; |
&Apache::essayresponse::file_submission("$version.0",'bridgetask', |
&Apache::essayresponse::file_submission("$version.0",'bridgetask', |
'portfiles',\$award); |
'portfiles',\$award); |
Line 1257 DONEBUTTON
|
Line 1271 DONEBUTTON
|
&Apache::structuretags::finalize_storage(); |
&Apache::structuretags::finalize_storage(); |
} |
} |
} elsif ($target eq 'webgrade') { |
} elsif ($target eq 'webgrade') { |
$result.=&Apache::lonxml::endredirection(); |
if (&nest()) { |
|
&Apache::lonxml::endredirection(); |
|
&end_delay(); |
|
$result.=$dimension{$top}{'result'}; |
|
} else { |
|
$result.=&Apache::lonxml::endredirection(); |
|
} |
my $dim = $top; |
my $dim = $top; |
foreach my $id (@{$dimension{$dim}{'criterias'}} ) { |
foreach my $id (@{$dimension{$dim}{'criterias'}} ) { |
my $type = $dimension{$dim}{'criteria.'.$id.'.type'}; |
my $type = $dimension{$dim}{'criteria.'.$id.'.type'}; |
Line 1269 DONEBUTTON
|
Line 1289 DONEBUTTON
|
[@_]); |
[@_]); |
$criteria = &layout_webgrade_Criteria($dim,$id,$criteria); |
$criteria = &layout_webgrade_Criteria($dim,$id,$criteria); |
my $internal_location=&internal_location($id); |
my $internal_location=&internal_location($id); |
$result=~s/\Q$internal_location\E/$criteria/; |
if ($result =~ m/\Q$internal_location\E/) { |
|
$result=~s/\Q$internal_location\E/$criteria/; |
|
} else { |
|
$result.=$criteria; |
|
} |
|
|
} |
} |
} |
} |
$result.="</div>"; |
$result.="</div>"; |
Line 1553 sub show_queue {
|
Line 1578 sub show_queue {
|
my $ekey=&escape($key); |
my $ekey=&escape($key); |
my ($action,$description,$status)=('select',&mt('Select')); |
my ($action,$description,$status)=('select',&mt('Select')); |
if (exists($queue{"$key\0locked"})) { |
if (exists($queue{"$key\0locked"})) { |
|
my $locker = $queue{"$key\0locked"}; |
|
my $time; |
|
if (ref($queue{"$key\0locked"}) eq 'ARRAY') { |
|
($locker, $time) = @{$queue{"$key\0locked"}}; |
|
$time = |
|
&Apache::lonnavmaps::timeToHumanString($time, |
|
'start'); |
|
} |
my $me=$env{'user.name'}.':'.$env{'user.domain'}; |
my $me=$env{'user.name'}.':'.$env{'user.domain'}; |
$status=&mt('Locked by <tt>[_1]</tt>',$queue{"$key\0locked"}); |
$status=&mt('Locked by <tt>[_1]</tt> [_2]',$locker,$time); |
if ($me eq $queue{"$key\0locked"}) { |
if ($me eq $queue{"$key\0locked"}) { |
($action,$description)=('resume',&mt('Resume')); |
($action,$description)=('resume',&mt('Resume')); |
} else { |
} else { |
Line 1773 sub lock_key {
|
Line 1806 sub lock_key {
|
my (undef,$cid)=&Apache::lonnet::whichuser(); |
my (undef,$cid)=&Apache::lonnet::whichuser(); |
my $cnum=$env{'course.'.$cid.'.num'}; |
my $cnum=$env{'course.'.$cid.'.num'}; |
my $cdom=$env{'course.'.$cid.'.domain'}; |
my $cdom=$env{'course.'.$cid.'.domain'}; |
my $success=&Apache::lonnet::newput($queue,{"$todo\0locked"=> $me}, |
my $success=&Apache::lonnet::newput($queue,{"$todo\0locked"=> [$me,time]}, |
$cdom,$cnum); |
$cdom,$cnum); |
&Apache::lonxml::debug("success $success $todo"); |
&Apache::lonxml::debug("success $success $todo"); |
if ($success eq 'ok') { |
if ($success eq 'ok') { |
Line 2049 sub start_Setup {
|
Line 2082 sub start_Setup {
|
my $dim = &get_id($parstack,$safeeval); |
my $dim = &get_id($parstack,$safeeval); |
push(@Apache::bridgetask::dimension,$dim); |
push(@Apache::bridgetask::dimension,$dim); |
&Apache::lonxml::startredirection(); |
&Apache::lonxml::startredirection(); |
return &internal_location($dim); |
return;# &internal_location($dim); |
} |
} |
|
|
{ |
{ |
Line 2101 sub start_Dimension {
|
Line 2134 sub start_Dimension {
|
$dimension{$top}{'criteria.'.$dim.'.mandatory'}= |
$dimension{$top}{'criteria.'.$dim.'.mandatory'}= |
&Apache::lonxml::get_param('Mandatory',$parstack,$safeeval); |
&Apache::lonxml::get_param('Mandatory',$parstack,$safeeval); |
push(@{$dimension{$top}{'criterias'}},$dim); |
push(@{$dimension{$top}{'criterias'}},$dim); |
|
$dimension{$dim}{'nested'}=$top; |
} |
} |
push(@Apache::bridgetask::dimension,$dim); |
push(@Apache::bridgetask::dimension,$dim); |
&Apache::lonxml::startredirection(); |
&Apache::lonxml::startredirection(); |
&enable_dimension_parsing($dim); |
if (!&skip_dimension_parsing($dim)) { |
return &internal_location($dim); |
&enable_dimension_parsing($dim); |
|
} |
|
return;# &internal_location($dim); |
} |
} |
|
|
sub start_QuestionText { |
sub start_QuestionText { |
Line 2226 sub end_Dimension {
|
Line 2262 sub end_Dimension {
|
} |
} |
my $dim_info= |
my $dim_info= |
"\n<div class='LC_$dim_status LC_question_grade'>\n\t"; |
"\n<div class='LC_$dim_status LC_question_grade'>\n\t"; |
my $question = ('sub' x $dimension{$dim}{'depth'}).'question'; |
my $ucquestion = |
$question =~ s/^(.)/uc($1)/e; |
my $question = |
|
('sub' x $dimension{$dim}{'depth'}).'question'; |
|
$ucquestion =~ s/^(.)/uc($1)/e; |
if ($dim_status eq 'pass') { |
if ($dim_status eq 'pass') { |
$dim_info.='<h3>'.$question.' : you passed this '.$mandatory.' question</h3>'; |
$dim_info.='<h3>'.$ucquestion.' : you passed the above '.$mandatory.' '.$question.'</h3>'; |
} |
} |
if ($dim_status eq 'fail') { |
if ($dim_status eq 'fail') { |
$dim_info.='<h3>'.$question.' : you did not pass this '.$mandatory.' question</h3>'; |
$dim_info.='<h3>'.$ucquestion.' : you did not pass the above '.$mandatory.' '.$question.'</h3>'; |
} |
} |
my %counts = &get_counts($dim,$instance,$parstack, |
my %counts = &get_counts($dim,$instance,$parstack, |
$safeeval); |
$safeeval); |
Line 2246 sub end_Dimension {
|
Line 2284 sub end_Dimension {
|
@{$dimension{$dim}{'criterias'}}) { |
@{$dimension{$dim}{'criterias'}}) { |
my $type = $dimension{$dim}{'criteria.'.$id.'.type'}; |
my $type = $dimension{$dim}{'criteria.'.$id.'.type'}; |
if ($type eq 'dimension') { |
if ($type eq 'dimension') { |
$result.=$dimension{$id}{'result'}; |
if (defined($dimension{$id}{'result'})) { |
next; |
$result.=$dimension{$id}{'result'}; |
|
next; |
|
} else { |
|
$dim_info .= |
|
&nested_parse(\$dimension{$dim}{'criteria.'.$id}, |
|
[@_],{'set_dim_id' => $id}); |
|
} |
|
} else { |
|
my $criteria = |
|
&nested_parse(\$dimension{$dim}{'criteria.'.$id}, |
|
[@_]); |
|
$dim_info .= &layout_web_Criteria($dim,$id,$criteria); |
} |
} |
my $criteria = |
|
&nested_parse(\$dimension{$dim}{'criteria.'.$id}, |
|
[@_]); |
|
$dim_info .= &layout_web_Criteria($dim,$id,$criteria); |
|
} |
} |
|
# puts the results at the end of the dimension |
|
$result .= $dim_info; |
|
|
my $internal_location=&internal_location($dim); |
# puts the results at the beginning of the dimension |
$result=~s/\Q$internal_location\E/$dim_info/; |
# my $internal_location=&internal_location($dim); |
|
# $result=~s/\Q$internal_location\E/$dim_info/; |
|
} |
|
} |
|
if ($result !~ /^\s*$/s) { |
|
# FIXME? this maybe unneccssary in the future, (CSE101 BT |
|
# from Fall 2006 geenrate a div that attempts to hide some |
|
# of the output in an odd way, this is a workaround so |
|
# those old ones will continue to work. # It puts the |
|
# LC_question div to come after any starting closie div |
|
# that the dimension produces |
|
if ($result =~ m{^\s*</div>}) { |
|
$result =~ s{^(\s*</div>)} |
|
{$1\n<div id="$dim" class="LC_question">}; |
|
} else { |
|
$result = "\n".'<div id="'.$dim.'" class="LC_question">'. |
|
"\n".$result; |
} |
} |
|
$result .= "\n</div>\n"; |
} |
} |
} elsif ($target eq 'webgrade') { |
} elsif ($target eq 'webgrade') { |
# in case of any side effects that we need |
# in case of any side effects that we need |
Line 2281 sub end_Dimension {
|
Line 2345 sub end_Dimension {
|
[@_]); |
[@_]); |
$criteria = &layout_webgrade_Criteria($dim,$id,$criteria); |
$criteria = &layout_webgrade_Criteria($dim,$id,$criteria); |
my $internal_location=&internal_location($id); |
my $internal_location=&internal_location($id); |
$result=~s/\Q$internal_location\E/$criteria/; |
if ($result =~ m/\Q$internal_location\E/) { |
|
$result =~ s/\Q$internal_location\E/$criteria/; |
|
} else { |
|
$result.=$criteria ; |
|
} |
} |
} |
} |
} |
if (&nest()) { |
if (&nest()) { |
Line 2375 sub question_status_message {
|
Line 2443 sub question_status_message {
|
foreach my $type ('cri','dim') { |
foreach my $type ('cri','dim') { |
if ($counts->{$req.'_'.$type}) { |
if ($counts->{$req.'_'.$type}) { |
push(@sections, |
push(@sections, |
$counts->{$req.'_'.$type.'_passed'}.' of '. |
$counts->{$req.'_'.$type.'_passed'}.' of the '. |
$counts->{$req.'_'.$type}.' '. |
$counts->{$req.'_'.$type}.' '. |
$req{$req}.' '.$type{$type}); |
$req{$req}.' '.$type{$type}); |
} |
} |
Line 2590 sub start_Criteria {
|
Line 2658 sub start_Criteria {
|
my $dim = &get_dim_id(); |
my $dim = &get_dim_id(); |
my $id=&get_id($parstack,$safeeval); |
my $id=&get_id($parstack,$safeeval); |
if ($target eq 'web' || $target eq 'webgrade') { |
if ($target eq 'web' || $target eq 'webgrade') { |
if ($target eq 'webgrade' && $dim ne 'top') { |
if ($target eq 'webgrade') { |
&Apache::lonxml::debug(" for $dim $id stashing results into $dim "); |
&Apache::lonxml::debug(" for $dim $id stashing results into $dim "); |
$dimension{$dim}{'result'} .= &internal_location($id); |
$dimension{$dim}{'result'} .= &internal_location($id); |
} else { |
} else { |
&Apache::lonxml::debug(" not stashing $dim $id"); |
&Apache::lonxml::debug(" not stashing $dim $id"); |
$result .= &internal_location($id); |
#$result .= &internal_location($id); |
} |
} |
} |
} |
&Apache::lonxml::debug("Criteria $id with $dim"); |
&Apache::lonxml::debug("Criteria $id with $dim"); |
Line 2633 sub layout_web_Criteria {
|
Line 2701 sub layout_web_Criteria {
|
$status_display=~s/^([a-z])/uc($1)/e; |
$status_display=~s/^([a-z])/uc($1)/e; |
my $criteria_info.= |
my $criteria_info.= |
'<div class="LC_'.$status.' LC_criteria">'."\n\t".'<h4>' |
'<div class="LC_'.$status.' LC_criteria">'."\n\t".'<h4>' |
.$mandatory.' Criteria</h4>'."\n\t".'<p>'."\n"; |
.$mandatory.' Criteria</h4>'."\n\t".'<p class="LC_criteria_text">' |
|
."\n"; |
|
$criteria =~ s/^\s*//s; |
|
$criteria =~ s/\s*$//s; |
$criteria_info.= $criteria; |
$criteria_info.= $criteria; |
$criteria_info.="\n\t".'</p>'. |
$criteria_info.="\n\t".'</p>'. |
"\n\t".'<p class="LC_grade">'.$status_display.'</p>'; |
"\n\t".'<p class="LC_grade">'.$status_display.'</p>'; |
Line 2666 sub layout_webgrade_Criteria {
|
Line 2737 sub layout_webgrade_Criteria {
|
if ($status eq $which) { $checked{$which} = 'checked="checked"'; } |
if ($status eq $which) { $checked{$which} = 'checked="checked"'; } |
} |
} |
if (!%checked) { $checked{'ungraded'} = 'checked="checked"'; } |
if (!%checked) { $checked{'ungraded'} = 'checked="checked"'; } |
|
my $buttons; |
|
foreach my $which ('ungraded','fail','pass','review') { |
|
$buttons .= <<END_BUTTON; |
|
<label class="LC_GRADING_$which"> |
|
<input type="radio" name="HWVAL_$link" value="$which" $checked{$which} /> |
|
$lt{$which} |
|
</label> |
|
END_BUTTON |
|
} |
|
$criteria =~ s/^\s*//s; |
|
$criteria =~ s/\s*$//s; |
my $result = <<END_CRITERIA; |
my $result = <<END_CRITERIA; |
<div class="LC_GRADING_criteria"> |
<div class="LC_GRADING_criteria"> |
<div class="LC_GRADING_criteriatext"> |
<div class="LC_GRADING_criteriatext"> |
$criteria |
$criteria |
</div> |
</div> |
<div class="LC_GRADING_grade"> |
<div class="LC_GRADING_grade"> |
<label class="LC_GRADING_ungraded"> |
$buttons |
<input type="radio" name="HWVAL_$link" value="ungraded" $checked{'ungraded'} /> |
</div> |
$lt{'ungraded'} |
<label class="LC_GRADING_comment"> |
</label> |
$lt{'comment'} |
<label class="LC_GRADING_fail"> |
<textarea class="LC_GRADING_comment_area" name="HWVAL_comment_$link">$comment</textarea> |
<input type="radio" name="HWVAL_$link" value="fail" $checked{'fail'} /> |
</label> |
$lt{'fail'} |
</div> |
</label> |
|
<label class="LC_GRADING_pass"> |
|
<input type="radio" name="HWVAL_$link" value="pass" $checked{'pass'} /> |
|
$lt{'pass'} |
|
</label> |
|
<label class="LC_GRADING_review"> |
|
<input type="radio" name="HWVAL_$link" value="review" $checked{'review'} /> |
|
$lt{'review'} |
|
</label> |
|
</div> |
|
<label class="LC_GRADING_comment"> |
|
$lt{'comment'} |
|
<textarea class="LC_GRADING_comment_area" name="HWVAL_comment_$link">$comment</textarea> |
|
</label> |
|
</div> |
|
END_CRITERIA |
END_CRITERIA |
$result .= &grading_history($version,$dim,$id); |
$result .= &grading_history($version,$dim,$id); |
return $result; |
return $result; |