|
version 1.389, 2005/11/15 16:38:12
|
version 1.392, 2005/12/08 02:15:36
|
|
Line 272 sub printtokenheader {
|
Line 272 sub printtokenheader {
|
| $tcrsid=$courseid; |
$tcrsid=$courseid; |
| } |
} |
| |
|
| my %reply=&Apache::lonnet::get('environment', |
my $plainname=&Apache::loncommon::plainname($tuname,$tudom); |
| ['firstname','middlename','lastname','generation'], |
|
| $tudom,$tuname); |
|
| my $plainname=$reply{'firstname'}.' '. |
|
| $reply{'middlename'}.' '. |
|
| $reply{'lastname'}.' '. |
|
| $reply{'generation'}; |
|
| |
|
| if ($target eq 'web') { |
if ($target eq 'web') { |
| my %idhash=&Apache::lonnet::idrget($tudom,($tuname)); |
my %idhash=&Apache::lonnet::idrget($tudom,($tuname)); |
|
Line 671 sub setup_globals {
|
Line 665 sub setup_globals {
|
| |
|
| sub init_safespace { |
sub init_safespace { |
| my ($target,$safeeval,$safehole,$safeinit) = @_; |
my ($target,$safeeval,$safehole,$safeinit) = @_; |
| $safeeval->deny_only(':dangerous'); |
|
| $safeeval->reval('use Math::Complex;'); |
|
| $safeeval->permit_only(":default"); |
$safeeval->permit_only(":default"); |
| $safeeval->permit("entereval"); |
$safeeval->permit("entereval"); |
| $safeeval->permit(":base_math"); |
$safeeval->permit(":base_math"); |
|
Line 967 sub increment_counter {
|
Line 959 sub increment_counter {
|
| } |
} |
| |
|
| sub init_counter { |
sub init_counter { |
| if (defined($env{'form.counter'})) { |
if ($env{'request.state'} eq 'construct') { |
| |
$Apache::lonxml::counter=1; |
| |
$Apache::lonxml::counter_changed=1; |
| |
} elsif (defined($env{'form.counter'})) { |
| $Apache::lonxml::counter=$env{'form.counter'}; |
$Apache::lonxml::counter=$env{'form.counter'}; |
| $Apache::lonxml::counter_changed=0; |
$Apache::lonxml::counter_changed=0; |
| } else { |
} else { |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonxml.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / xml