version 1.11, 2016/05/31 22:04:14
|
version 1.11.2.1, 2020/10/01 17:14:31
|
Line 84
|
Line 84
|
if ($res eq 'ok') { |
if ($res eq 'ok') { |
if ($symb ne 'course') { |
if ($symb ne 'course') { |
my $what = []; |
my $what = []; |
my ($storeunder,@recurseup,$recursed); |
my $storeunder; |
my $mapp = &Apache::lonnet::deversion(( |
my $mapp = &Apache::lonnet::deversion(( |
&Apache::lonnet::decode_symb($symb))[2]); |
&Apache::lonnet::decode_symb($symb))[2]); |
if ($symb =~ /\.(page|sequence)$/) { |
if ($symb =~ /\.(page|sequence)$/) { |
Line 95
|
Line 95
|
$what = [$storeunder,'resource']; |
$what = [$storeunder,'resource']; |
} |
} |
&Apache::lonnet::del('timerinterval',[$key],$udom,$uname); |
&Apache::lonnet::del('timerinterval',[$key],$udom,$uname); |
my $userreply=&Apache::lonnet::resdata($uname,$udom,'user',$mapp, |
my $userreply=&Apache::lonnet::resdata($uname,$udom,'user',($what)); |
\$recursed,\@recurseup, |
|
$env{'request.course.id'}, |
|
'.','0.interval',($what)); |
|
if (ref($userreply) eq 'ARRAY') { |
if (ref($userreply) eq 'ARRAY') { |
if ($userreply->[0] =~ /^\d+$/) { |
if ($userreply->[0] =~ /^\d+$/) { |
if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) { |
if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) { |
Line 168
|
Line 165
|
my $key=$env{'request.course.id'}."\0".$symb; |
my $key=$env{'request.course.id'}."\0".$symb; |
my @names=split(/\|\|\|/,$helper->{'VARS'}{'stu1'}); |
my @names=split(/\|\|\|/,$helper->{'VARS'}{'stu1'}); |
my $what = []; |
my $what = []; |
my ($storeunder,@recurseup,$recursed); |
my $storeunder; |
my $mapp = &Apache::lonnet::deversion(( |
my $mapp = &Apache::lonnet::deversion(( |
&Apache::lonnet::decode_symb($symb))[2]); |
&Apache::lonnet::decode_symb($symb))[2]); |
if ($symb =~ /\.(page|sequence)$/) { |
if ($symb =~ /\.(page|sequence)$/) { |
Line 196
|
Line 193
|
if ($delres eq 'ok') { |
if ($delres eq 'ok') { |
&Apache::lonnet::del('timerinterval', |
&Apache::lonnet::del('timerinterval', |
[$key],$udom,$uname); |
[$key],$udom,$uname); |
my $userreply=&Apache::lonnet::resdata($uname,$udom,'user',$mapp, |
my $userreply=&Apache::lonnet::resdata($uname,$udom,'user',($what)); |
\$recursed,\@recurseup, |
|
$env{'request.course.id'}, |
|
'.','0.interval',($what)); |
|
if (ref($userreply) eq 'ARRAY') { |
if (ref($userreply) eq 'ARRAY') { |
if ($userreply->[0] =~ /^\d+$/) { |
if ($userreply->[0] =~ /^\d+$/) { |
if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) { |
if (($userreply->[1] eq 'map') || ($userreply->[1] eq 'resource')) { |