loncom/interface/lontiny.pm - diff

Return to lontiny.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.5, 2019/01/20 02:42:41	version 1.6, 2019/01/27 15:44:18
Line 44 sub handler {	Line 44 sub handler {
my $r = shift;	my $r = shift;
my %user;	my %user;
my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);	my $handle = &Apache::lonnet::check_for_valid_session($r,undef,\%user);
if ($handle ne '') {	if ($handle ne '') {
my $lonidsdir=$r->dir_config('lonIDsDir');	my $lonidsdir=$r->dir_config('lonIDsDir');
&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);	&Apache::lonnet::transfer_profile_to_env($lonidsdir,$handle);
if ($r->uri =~ m{^/tiny/($match_domain)/(\w+)$}) {	if ($r->uri =~ m{^/tiny/($match_domain)/(\w+)$}) {
Line 97 sub handler {	Line 97 sub handler {
my $update;	my $update;
# Check if course needs to be re-initialized	# Check if course needs to be re-initialized
my $loncaparev = $r->dir_config('lonVersion');	my $loncaparev = $r->dir_config('lonVersion');
my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev,20);	my ($result,@reinit) = &Apache::loncommon::needs_coursereinit($loncaparev);
if ($result eq 'update') {	if ($result eq 'update') {
$update = 1;	$update = 1;
} elsif (!-e $env{'request.course.fn'}.'.db') {	} elsif (!-e $env{'request.course.fn'}.'.db') {