loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.709, 2024/01/10 20:07:37	version 1.711, 2024/12/15 02:22:53
Line 5402 sub short_urls {	Line 5402 sub short_urls {
}	}
my %currtiny = &Apache::lonnet::dump('tiny',$cdom,$cnum);	my %currtiny = &Apache::lonnet::dump('tiny',$cdom,$cnum);
$r->print(&Apache::loncourserespicker::create_picker($navmap,'shorturls',$formname,$crstype,undef,	$r->print(&Apache::loncourserespicker::create_picker($navmap,'shorturls',$formname,$crstype,undef,
undef,undef,undef,undef,undef,\%currtiny,$readonly));	undef,undef,undef,undef,undef,\%currtiny,undef,$readonly));
}	}
$r->print(&endContentScreen());	$r->print(&endContentScreen());
}	}
Line 6694 SEDFFORM	Line 6694 SEDFFORM
$checkcrsres = 1;	$checkcrsres = 1;
} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.crsauthor'} ne '0') {	} elsif ($env{'course.'.$coursedom.'_'.$coursenum.'.internal.crsauthor'} ne '0') {
my %domdefs=&Apache::lonnet::get_domain_defaults($coursedom);	my %domdefs=&Apache::lonnet::get_domain_defaults($coursedom);
if ($domdefs{'crsauthor'}) {	my $type = lc($env{'course.'.$env{'request.course.id'}.'.type'});
	unless (($type eq 'community') \|\| ($type eq 'placement')) {
	$type = 'unofficial';
	if ($env{'course.'.$env{'request.course.id'}.'internal.coursecode'} ne '') {
	$type = 'official';
	} elsif ($env{'course.'.$env{'request.course.id'}.'internal.textbook'} ne '') {
	$type = 'textbook';
	} else {
	$type = 'unofficial';
	}
	}
	if ($domdefs{$type.'crsauthor'}) {
$checkcrsres = 1;	$checkcrsres = 1;
}	}
}	}