version 1.41, 2001/06/05 16:32:18
|
version 1.43, 2001/06/12 22:42:55
|
Line 41 sub start_problem {
|
Line 41 sub start_problem {
|
#intialize globals |
#intialize globals |
$Apache::inputtags::part='0'; |
$Apache::inputtags::part='0'; |
@Apache::inputtags::responselist = (); |
@Apache::inputtags::responselist = (); |
|
$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 '') { |
|
$Apache::lonhomework::type='homework'; |
|
} |
#adeed vars to the scripting enviroment |
#adeed vars to the scripting enviroment |
my $expression='$external::part='.$Apache::inputtags::part.';'; |
my $expression='$external::part='.$Apache::inputtags::part.';'; |
&Apache::run::run($expression,$safeeval); |
&Apache::run::run($expression,$safeeval); |
Line 364 sub end_startouttext {
|
Line 368 sub end_startouttext {
|
|
|
if ($target eq 'edit') { |
if ($target eq 'edit') { |
$text=&Apache::lonxml::get_all_text("endouttext",$$parser[$#$parser]); |
$text=&Apache::lonxml::get_all_text("endouttext",$$parser[$#$parser]); |
$result= |
$result.=&Apache::edit::start_table($token)."<tr><td>Text Block</td> |
&Apache::edit::tag_start($target,$token). |
<td>Delete:". |
&Apache::edit::editfield($token->[1],$text,"Text Block",50,5); |
&Apache::edit::deletelist($target,$token) |
|
."</td> |
|
<td>". |
|
&Apache::edit::insertlist($target,$token). |
|
"</td> |
|
</tr><tr><td colspan=\"3\">\n". |
|
&Apache::edit::editfield($token->[1],$text,"",50,5); |
} |
} |
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 377 sub end_startouttext {
|
Line 387 sub end_startouttext {
|
sub start_endouttext { |
sub start_endouttext { |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_; |
my $result=''; |
my $result=''; |
if ($target eq "edit" ) { $result=&Apache::edit::tag_end($target,$token); } |
if ($target eq "edit" ) { $result="</td></tr>".&Apache::edit::end_table()."\n"; } |
if ($target eq "modified") { $result='<endouttext />'; } |
if ($target eq "modified") { $result='<endouttext />'; } |
return $result; |
return $result; |
} |
} |