version 1.274, 2012/08/16 17:02:46
|
version 1.277, 2012/12/03 22:59:03
|
Line 141 use Apache::loncoursequeueadmin;
|
Line 141 use Apache::loncoursequeueadmin;
|
use GDBM_File; |
use GDBM_File; |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
use HTML::Entities; |
use HTML::Entities; |
|
|
|
|
sub redirect_user { |
sub redirect_user { |
my ($r,$title,$url,$msg) = @_; |
my ($r,$title,$url,$msg) = @_; |
Line 291 sub handler {
|
Line 291 sub handler {
|
if (my ($ccrole,$domain,$coursenum) = |
if (my ($ccrole,$domain,$coursenum) = |
($envkey =~ m-^form\.(cc|co)\./($match_domain)/($match_courseid)$-)) { |
($envkey =~ m-^form\.(cc|co)\./($match_domain)/($match_courseid)$-)) { |
if ($dcroles{$domain}) { |
if ($dcroles{$domain}) { |
&Apache::lonnet::check_adhoc_privs($domain,$coursenum, |
if (&Apache::lonnet::check_adhoc_privs($domain,$coursenum, |
$update,$refresh,$now,$ccrole); |
$update,$refresh,$now,$ccrole)) { |
|
&Apache::lonnet::appenv({"environment.internal.$domain.$coursenum.$ccrole.adhoc" => time}); |
|
} |
} |
} |
last; |
last; |
} |
} |
Line 515 ENDENTERKEY
|
Line 517 ENDENTERKEY
|
my $msg; |
my $msg; |
my ($furl,$ferr)= |
my ($furl,$ferr)= |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
&Apache::lonuserstate::readmap($cdom.'/'.$cnum); |
|
unless (($ferr) || ($env{'form.switchrole'}) || |
|
($env{"environment.internal.$cdom.$cnum.$role.adhoc"})) { |
|
&Apache::lonnet::put('nohist_crslastlogin', |
|
{$env{'user.name'}.':'.$env{'user.domain'}. |
|
':'.$csec.':'.$role => $now},$cdom,$cnum); |
|
} |
if (($env{'form.orgurl'}) && |
if (($env{'form.orgurl'}) && |
($env{'form.orgurl'}!~/^\/adm\/flip/)) { |
($env{'form.orgurl'}!~/^\/adm\/flip/)) { |
my $dest=$env{'form.orgurl'}; |
my $dest=$env{'form.orgurl'}; |
Line 571 ENDENTERKEY
|
Line 579 ENDENTERKEY
|
$furl = "/adm/helper/course.initialization.helper"; |
$furl = "/adm/helper/course.initialization.helper"; |
# Send the user to the course they selected |
# Send the user to the course they selected |
} elsif ($env{'request.course.id'}) { |
} elsif ($env{'request.course.id'}) { |
if ($env{'form.destinationurl'}) { |
my ($dest,$destsymb,$checkenc); |
my $dest = $env{'form.destinationurl'}; |
$dest = $env{'form.destinationurl'}; |
if ($env{'form.destsymb'} ne '') { |
$destsymb = $env{'form.destsymb'}; |
my $esc_symb = &HTML::Entities::encode($env{'form.destsymb'},'"<>&'); |
if ($dest ne '') { |
$dest .= '?symb='.$esc_symb; |
if ($env{'form.switchrole'}) { |
|
if ($destsymb ne '') { |
|
if ($destsymb !~ m{^/enc/}) { |
|
unless ($env{'request.role.adv'}) { |
|
$checkenc = 1; |
|
} |
|
} |
|
} |
|
if ($dest =~ m{^/enc/}) { |
|
if ($env{'request.role.adv'}) { |
|
$dest = &Apache::lonenc::unencrypted($dest); |
|
if ($destsymb eq '') { |
|
($destsymb) = ($dest =~ /(?:\?|\&)symb=([^\&]*)/); |
|
$destsymb = &unescape($destsymb); |
|
} |
|
} |
|
} else { |
|
if ($destsymb eq '') { |
|
($destsymb) = ($dest =~ /(:\?|\&)symb=([^\&]+)/); |
|
$destsymb = &unescape($destsymb); |
|
} |
|
unless ($env{'request.role.adv'}) { |
|
$checkenc = 1; |
|
} |
|
} |
|
if (($checkenc) && ($destsymb ne '')) { |
|
my ($encstate,$unencsymb,$res); |
|
my $unencsymb = &Apache::lonnet::symbclean($destsymb); |
|
(undef,undef,$res) = &Apache::lonnet::decode_symb($unencsymb); |
|
&Apache::lonnet::symbverify($unencsymb,$res,\$encstate); |
|
if ($encstate) { |
|
if (($dest ne '') && ($dest !~ m{^/enc/})) { |
|
$dest=&Apache::lonenc::encrypted($dest); |
|
} |
|
} |
|
} |
|
} |
|
unless (($dest =~ m{^/enc/}) || ($dest =~ /(\?|\&)symb=.+___\d+___.+/)) { |
|
if (($destsymb ne '') && ($destsymb !~ m{^/enc/})) { |
|
my $esc_symb = &escape($destsymb); |
|
$dest .= '?symb='.$esc_symb; |
|
} |
} |
} |
&redirect_user($r, &mt('Entering [_1]', |
&redirect_user($r, &mt('Entering [_1]', |
$env{'course.'.$courseid.'.description'}), |
$env{'course.'.$courseid.'.description'}), |