version 1.147, 2006/10/12 17:16:53
|
version 1.152, 2006/12/04 21:23:01
|
Line 306 sub handle_previous {
|
Line 306 sub handle_previous {
|
} |
} |
|
|
sub view_or_modify { |
sub view_or_modify { |
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
my ($symb,$courseid,$domain,$name) = &Apache::lonnet::whichuser(); |
my $myself=0; |
my $myself=0; |
if ( ($name eq $env{'user.name'}) && ($domain eq $env{'user.domain'}) ) { |
if ( ($name eq $env{'user.name'}) && ($domain eq $env{'user.domain'}) ) { |
$myself=1; |
$myself=1; |
Line 340 sub end_dataresponse {
|
Line 340 sub end_dataresponse {
|
if ( $target eq 'web' ) { |
if ( $target eq 'web' ) { |
} elsif ($target eq 'grade' ) { |
} elsif ($target eq 'grade' ) { |
if ( defined $env{'form.submitted'}) { |
if ( defined $env{'form.submitted'}) { |
my ($symb,$courseid,$domain,$name)=&Apache::lonxml::whichuser(); |
my ($symb,$courseid,$domain,$name)=&Apache::lonnet::whichuser(); |
my $allowed=&Apache::lonnet::allowed('mgr',$courseid); |
my $allowed=&Apache::lonnet::allowed('mgr',$courseid); |
if ($allowed) { |
if ($allowed) { |
&Apache::response::setup_params('dataresponse',$safeeval); |
&Apache::response::setup_params('dataresponse',$safeeval); |
Line 373 sub start_customresponse {
|
Line 373 sub start_customresponse {
|
if ( &Apache::response::show_answer() ) { |
if ( &Apache::response::show_answer() ) { |
my $answer = &Apache::lonxml::get_param('answerdisplay',$parstack, |
my $answer = &Apache::lonxml::get_param('answerdisplay',$parstack, |
$safeeval); |
$safeeval); |
$Apache::inputtags::answertxt{$id}=$answer; |
$Apache::inputtags::answertxt{$id}=[$answer]; |
} |
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::tag_start($target,$token); |
Line 464 sub start_mathresponse {
|
Line 464 sub start_mathresponse {
|
if ( &Apache::response::show_answer() ) { |
if ( &Apache::response::show_answer() ) { |
my $answer = &Apache::lonxml::get_param('answerdisplay',$parstack, |
my $answer = &Apache::lonxml::get_param('answerdisplay',$parstack, |
$safeeval); |
$safeeval); |
$Apache::inputtags::answertxt{$id}=$answer; |
$Apache::inputtags::answertxt{$id}=[$answer]; |
} |
} |
} elsif ($target eq 'edit') { |
} elsif ($target eq 'edit') { |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::tag_start($target,$token); |
$result.=&Apache::edit::text_arg('String to display for answer:', |
$result.=&Apache::edit::text_arg('String to display for answer:', |
'answerdisplay',$token); |
'answerdisplay',$token); |
|
$result.=&Apache::edit::select_arg('Algebra System:', |
|
'cas', |
|
['maxima'], |
|
$token); |
|
$result.=&Apache::edit::text_arg('Algebra System:', |
|
'cas',$token); |
|
$result.=&Apache::edit::text_arg('Argument Array:', |
|
'args',$token); |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
$result.=&Apache::edit::end_row().&Apache::edit::start_spanning_row(); |
} elsif ($target eq 'modified') { |
} elsif ($target eq 'modified') { |
my $constructtag; |
my $constructtag; |
Line 494 sub end_mathresponse {
|
Line 502 sub end_mathresponse {
|
my $id=$Apache::inputtags::response[-1]; |
my $id=$Apache::inputtags::response[-1]; |
if ( $target eq 'grade' && &Apache::response::submitted() ) { |
if ( $target eq 'grade' && &Apache::response::submitted() ) { |
my $response = &Apache::response::getresponse(); |
my $response = &Apache::response::getresponse(); |
if ( $response =~ /[^\s]/ && |
if ( $response =~ /[^\s]/ ) { |
$Apache::response::custom_answer_type eq 'loncapa/perl') { |
|
if (!$Apache::lonxml::default_homework_loaded) { |
if (!$Apache::lonxml::default_homework_loaded) { |
&Apache::lonxml::default_homework_load($safeeval); |
&Apache::lonxml::default_homework_load($safeeval); |
} |
} |
Line 729 sub next_answer {
|
Line 736 sub next_answer {
|
} |
} |
|
|
sub answer_part { |
sub answer_part { |
my ($type,$answer) = @_; |
my ($type,$answer,$args) = @_; |
my $result; |
my $result; |
if ($env{'form.answer_output_mode'} eq 'tex') { |
if ($env{'form.answer_output_mode'} eq 'tex') { |
my $to_use='|'; |
if (!$args->{'no_verbatim'}) { |
foreach my $value (32..126) { |
my $to_use='|'; |
my $char=pack('c',$value); |
foreach my $value (32..126) { |
if ($answer !~ /\Q$char\E/) { |
my $char=pack('c',$value); |
$to_use=$char; |
if ($answer !~ /\Q$char\E/) { |
last; |
$to_use=$char; |
|
last; |
|
} |
|
} |
|
if ($answer ne '') { |
|
$answer = '\verb'.$to_use.$answer.$to_use; |
} |
} |
} |
} |
if ($answer ne '') { |
if ($answer ne '') { |
push(@answer_bits,'\verb'.$to_use.$answer.$to_use); |
push(@answer_bits,$answer); |
} |
} |
} else { |
} else { |
if ($need_row_start) { |
if ($need_row_start) { |
Line 771 sub answer_footer {
|
Line 783 sub answer_footer {
|
|
|
sub showallfoils { |
sub showallfoils { |
if (defined($env{'form.showallfoils'})) { |
if (defined($env{'form.showallfoils'})) { |
my ($symb)=&Apache::lonxml::whichuser(); |
my ($symb)=&Apache::lonnet::whichuser(); |
if (($env{'request.state'} eq 'construct') || |
if (($env{'request.state'} eq 'construct') || |
($env{'user.adv'} && $symb eq '') || |
($env{'user.adv'} && $symb eq '') || |
($Apache::lonhomework::viewgrades) ) { |
($Apache::lonhomework::viewgrades) ) { |
Line 993 sub submitted {
|
Line 1005 sub submitted {
|
} |
} |
|
|
sub add_to_gradingqueue { |
sub add_to_gradingqueue { |
my ($symb,$courseid,$domain,$name) = &Apache::lonxml::whichuser(); |
my ($symb,$courseid,$domain,$name) = &Apache::lonnet::whichuser(); |
if ( $courseid eq '' |
if ( $courseid eq '' |
|| $symb eq '' |
|| $symb eq '' |
|| $env{'request.state'} eq 'construct' |
|| $env{'request.state'} eq 'construct' |