loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.693, 2023/01/19 16:43:49	version 1.695, 2023/03/11 21:58:18
Line 1210 sub docs_change_log {	Line 1210 sub docs_change_log {
my ($title,$url) = split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'},3);	my ($title,$url) = split(/\:/,$docslog{$id}{'logentry'}{'parameter_res'},3);
if ($title eq '') {	if ($title eq '') {
($title) = ($url =~ m{/([^/]+)$});	($title) = ($url =~ m{/([^/]+)$});
	} elsif ($is_supp) {
	$title = &Apache::loncommon::parse_supplemental_title($title);
}	}
$r->print(&LONCAPA::map::qtescape($title).':<ul>');	$r->print(&LONCAPA::map::qtescape($title).':<ul>');
foreach my $parameter ('randompick','hiddenresource','encrypturl','randomorder','gradable') {	foreach my $parameter ('randompick','hiddenresource','encrypturl','randomorder','gradable') {
Line 4650 $form_end;	Line 4652 $form_end;
my ($enctext,$hidtext,$formhidden,$formurlhidden);	my ($enctext,$hidtext,$formhidden,$formurlhidden);
if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {	if ((&LONCAPA::map::getparameter($orderidx,'parameter_hiddenresource'))[0]=~/^yes$/i) {
$hidtext = ' checked="checked"';	$hidtext = ' checked="checked"';
if (($ishash) && (ref($filtersref->{'randomorder'}) eq 'ARRAY')) {	if (($ishash) && (ref($filtersref->{'hiddenresource'}) eq 'ARRAY')) {
push(@{$filtersref->{'hiddenresource'}},$orderidx);	push(@{$filtersref->{'hiddenresource'}},$orderidx);
}	}
}	}