version 1.226, 2007/02/22 21:40:40
|
version 1.227, 2007/02/23 01:04:05
|
Line 1332 DONEBUTTON
|
Line 1332 DONEBUTTON
|
$result.=&Apache::response::meta_stores_write('status','string', |
$result.=&Apache::response::meta_stores_write('status','string', |
'Bridge Task Status'); |
'Bridge Task Status'); |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
&Apache::structuretags::reset_problem_globals('Task'); |
$result.= &Apache::structuretags::problem_edit_footer(); |
undef($Apache::lonhomework::parsing_a_task); |
|
return ('','no'); |
|
} |
} |
&Apache::structuretags::reset_problem_globals('Task'); |
&Apache::structuretags::reset_problem_globals('Task'); |
undef($Apache::lonhomework::parsing_a_task); |
undef($Apache::lonhomework::parsing_a_task); |
Line 2078 sub start_ClosingParagraph {
|
Line 2076 sub start_ClosingParagraph {
|
} elsif ($target eq 'webgrade') { |
} elsif ($target eq 'webgrade') { |
&Apache::lonxml::startredirection(); |
&Apache::lonxml::startredirection(); |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
my $bodytext=&Apache::lonxml::get_all_text("/closingparagraph", |
|
$parser); |
|
$result = &Apache::edit::tag_start($target,$token); |
$result = &Apache::edit::tag_start($target,$token); |
$result.= &Apache::edit::editfield($token->[1],$bodytext,'',80,4); |
|
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
$result = $token->[4].&Apache::edit::modifiedfield('/closingparagraph', |
|
$parser); |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 2099 sub end_ClosingParagraph {
|
Line 2092 sub end_ClosingParagraph {
|
return $result; |
return $result; |
} |
} |
|
|
|
sub insert_ClosingParagraph { |
|
return ' |
|
<ClosingParagraph> |
|
<startouttext /> |
|
<endouttext /> |
|
</ClosingParagraph>'; |
|
} |
|
|
sub get_dim_id { |
sub get_dim_id { |
if (@Apache::bridgetask::dimension) { |
if (@Apache::bridgetask::dimension) { |
return $Apache::bridgetask::dimension[-1]; |
return $Apache::bridgetask::dimension[-1]; |
Line 2225 sub start_QuestionText {
|
Line 2226 sub start_QuestionText {
|
my $dim = &get_dim_id(); |
my $dim = &get_dim_id(); |
$dimension{$dim}{'questiontext'}=$text; |
$dimension{$dim}{'questiontext'}=$text; |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
my $bodytext=&Apache::lonxml::get_all_text("/questiontext",$parser); |
|
$result = &Apache::edit::tag_start($target,$token); |
$result = &Apache::edit::tag_start($target,$token); |
$result.= &Apache::edit::editfield($token->[1],$bodytext,'',80,4); |
|
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
$result = $token->[4].&Apache::edit::modifiedfield('/questiontext', |
|
$parser); |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 2239 sub end_QuestionText {
|
Line 2236 sub end_QuestionText {
|
return ''; |
return ''; |
} |
} |
|
|
|
sub insert_QuestionText { |
|
return ' |
|
<QuestionText> |
|
<startouttext /> |
|
<endouttext /> |
|
</QuestionText>'; |
|
} |
|
|
sub get_instance { |
sub get_instance { |
my ($dim)=@_; |
my ($dim)=@_; |
my $rand_alg=&Apache::lonnet::get_rand_alg(); |
my $rand_alg=&Apache::lonnet::get_rand_alg(); |
Line 2707 sub start_IntroParagraph {
|
Line 2712 sub start_IntroParagraph {
|
} |
} |
|
|
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
my $bodytext=&Apache::lonxml::get_all_text("/introparagraph",$parser); |
|
$result = &Apache::edit::tag_start($target,$token); |
$result = &Apache::edit::tag_start($target,$token); |
$result.= &Apache::edit::editfield($token->[1],$bodytext,'',80,4); |
|
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
$result = $token->[4].&Apache::edit::modifiedfield('/introparagraph', |
|
$parser); |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 2724 sub end_IntroParagraph {
|
Line 2725 sub end_IntroParagraph {
|
} |
} |
} |
} |
|
|
|
sub insert_IntroParagraph { |
|
return ' |
|
<IntroParagraph> |
|
<startouttext /> |
|
<endouttext /> |
|
</IntroParagraph>'; |
|
} |
|
|
sub start_Instance { |
sub start_Instance { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $dim = &get_dim_id(); |
my $dim = &get_dim_id(); |
Line 2780 sub start_InstanceText {
|
Line 2789 sub start_InstanceText {
|
my $instance_id=$Apache::bridgetask::instance{$dim}[-1]; |
my $instance_id=$Apache::bridgetask::instance{$dim}[-1]; |
$dimension{$dim}{$instance_id.'.text'}=$text; |
$dimension{$dim}{$instance_id.'.text'}=$text; |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
my $bodytext=&Apache::lonxml::get_all_text("/instancetext",$parser); |
|
$result = &Apache::edit::tag_start($target,$token); |
$result = &Apache::edit::tag_start($target,$token); |
$result.= &Apache::edit::editfield($token->[1],$bodytext,'',80,4); |
|
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
$result = $token->[4].&Apache::edit::modifiedfield('/instancetext', |
|
$parser); |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 2794 sub end_InstanceText {
|
Line 2799 sub end_InstanceText {
|
return ''; |
return ''; |
} |
} |
|
|
|
sub insert_InstanceText { |
|
return ' |
|
<InstanceText> |
|
<startouttext /> |
|
<endouttext /> |
|
</InstanceText>'; |
|
} |
|
|
sub start_Criteria { |
sub start_Criteria { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result = ''; |
my $result = ''; |
Line 2960 sub end_Criteria {
|
Line 2973 sub end_Criteria {
|
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
} |
} |
} |
} |
|
sub insert_Criteria { |
|
return ' |
|
<Criteria> |
|
<CriteriaText> |
|
<startouttext /> |
|
<endouttext /> |
|
</CriteriaText> |
|
</Criteria>'; |
|
} |
|
|
sub start_CriteriaText { |
sub start_CriteriaText { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
Line 2967 sub start_CriteriaText {
|
Line 2989 sub start_CriteriaText {
|
if ($target eq 'grade' || $target eq 'web' || $target eq 'webgrade') { |
if ($target eq 'grade' || $target eq 'web' || $target eq 'webgrade') { |
|
|
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
my $bodytext=&Apache::lonxml::get_all_text("/criteriatext",$parser); |
|
$result = &Apache::edit::tag_start($target,$token); |
$result = &Apache::edit::tag_start($target,$token); |
$result.= &Apache::edit::editfield($token->[1],$bodytext,'',80,4); |
|
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
$result = $token->[4].&Apache::edit::modifiedfield('/criteriatext', |
|
$parser); |
|
} |
} |
return $result; |
return $result; |
} |
} |
Line 2981 sub end_CriteriaText {
|
Line 2999 sub end_CriteriaText {
|
return ''; |
return ''; |
} |
} |
|
|
|
sub insert_CriteriaText { |
|
return ' |
|
<CriteriaText> |
|
<startouttext /> |
|
<endouttext /> |
|
</CriteriaText>'; |
|
} |
|
|
sub start_GraderNote { |
sub start_GraderNote { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval,$style)=@_; |
my $result; |
my $result; |
Line 2988 sub start_GraderNote {
|
Line 3014 sub start_GraderNote {
|
$result = '<div class="LC_GRADING_gradernote"><b>'. |
$result = '<div class="LC_GRADING_gradernote"><b>'. |
&mt('Note to graders:').'</b>'; |
&mt('Note to graders:').'</b>'; |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
my $bodytext=&Apache::lonxml::get_all_text("/gradernote",$parser); |
|
$result = &Apache::edit::tag_start($target,$token); |
$result = &Apache::edit::tag_start($target,$token); |
$result.= &Apache::edit::editfield($token->[1],$bodytext,'',80,4); |
|
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
$result = $token->[4].&Apache::edit::modifiedfield('/gradernote', |
|
$parser); |
|
} elsif ($target eq 'web' || $target eq 'grade') { |
} elsif ($target eq 'web' || $target eq 'grade') { |
my $note=&Apache::lonxml::get_all_text('/gradernote',$parser,$style); |
my $note=&Apache::lonxml::get_all_text('/gradernote',$parser,$style); |
} |
} |
Line 3009 sub end_GraderNote {
|
Line 3031 sub end_GraderNote {
|
return; |
return; |
} |
} |
|
|
|
sub insert_GraderNote { |
|
return ' |
|
<GraderNote> |
|
<startouttext /> |
|
<endouttext /> |
|
</GraderNote>'; |
|
} |
|
|
|
|
sub proctor_validation_screen { |
sub proctor_validation_screen { |