version 1.44, 2001/06/26 21:09:08
|
version 1.47, 2001/07/13 14:02:35
|
Line 257 sub shuffle {
|
Line 257 sub shuffle {
|
} |
} |
|
|
sub end_randomlist { |
sub end_randomlist { |
|
return ''; |
} |
} |
|
|
sub start_part { |
sub start_part { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
|
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
$Apache::inputtags::part=$id; |
$Apache::inputtags::part=$id; |
@Apache::inputtags::responselist = (); |
@Apache::inputtags::responselist = (); |
if ($target eq 'meta') { |
if ($target eq 'meta') { |
return &Apache::response::mandatory_part_meta; |
return &Apache::response::mandatory_part_meta; |
} elsif ($target eq 'web' || $target eq 'grade') { |
} elsif ($target eq 'web' || $target eq 'grade') { |
my ($status,$datemsg) = &Apache::lonhomework::check_date("OPEN_DATE",$id); |
my ($status,$datemsg) = &Apache::lonhomework::check_date($id); |
push (@Apache::inputtags::status,$status); |
push (@Apache::inputtags::status,$status); |
my $expression='$external::datestatus="'.$status.'";'; |
my $expression='$external::datestatus="'.$status.'";'; |
$expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";'; |
$expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";'; |
Line 379 sub end_startouttext {
|
Line 381 sub end_startouttext {
|
&Apache::edit::insertlist($target,$token). |
&Apache::edit::insertlist($target,$token). |
"</td> |
"</td> |
</tr><tr><td colspan=\"3\">\n". |
</tr><tr><td colspan=\"3\">\n". |
&Apache::edit::editfield($token->[1],$text,"",50,5); |
&Apache::edit::editfield($token->[1],$text,"",50,4); |
} |
} |
if ($target eq 'modified') { |
if ($target eq 'modified') { |
$text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']); |
$text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']); |
Line 400 sub end_endouttext {
|
Line 402 sub end_endouttext {
|
if ($target eq "edit" || $target eq 'modified') { @result=('','no'); } |
if ($target eq "edit" || $target eq 'modified') { @result=('','no'); } |
return (@result); |
return (@result); |
} |
} |
|
sub delete_startouttext { |
|
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
|
# my $text=&Apache::lonxml::get_all_text("endouttext",$$parser['-1']); |
|
my $text=$$parser['-1']->get_text("/endouttext"); |
|
my $token=$$parser['-1']->get_token(); |
|
&Apache::lonxml::debug("Deleting :$text: and :$token->[0]:$token->[1]:$token->[2]: for startouttext"); |
|
&Apache::lonxml::end_tag($tagstack,$parstack,$token); |
|
# Deleting 2 parallel tag pairs, but we need the numbers later to look like |
|
# they did the last time round |
|
&Apache::lonxml::increasedepth($token); |
|
&Apache::lonxml::decreasedepth($token); |
|
return 1; |
|
} |
|
|
1; |
1; |
__END__ |
__END__ |