loncom/interface/loncourserespicker.pm - diff

Return to loncourserespicker.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.15, 2018/01/12 13:33:38	version 1.16, 2024/04/16 15:35:23
Line 218 sub create_picker {	Line 218 sub create_picker {
my ($navmap,$context,$formname,$crstype,$blockedmaps,$blockedresources,$block,$preamble,	my ($navmap,$context,$formname,$crstype,$blockedmaps,$blockedresources,$block,$preamble,
$numhome,$uploadedfiles,$tiny,$readonly) = @_;	$numhome,$uploadedfiles,$tiny,$readonly) = @_;
return unless (ref($navmap));	return unless (ref($navmap));
my ($it,$output,$numdisc,%maps,%resources,%discussiontime,%currmaps,%currresources,%files,	my ($it,$output,$numdisc,%discussiontime,%currmaps,%currresources,%files,
%shorturls,$chkname);	%shorturls,$chkname);
$chkname = 'archive';	$chkname = 'archive';
if ($context eq 'shorturls') {	if ($context eq 'shorturls') {