loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.146, 2003/02/21 21:40:07	version 1.149, 2003/02/28 15:06:45
Line 178 sub real_handler {	Line 178 sub real_handler {
# renderer call	# renderer call
my $render = render({ 'cols' => [0,1,2,3],	my $render = render({ 'cols' => [0,1,2,3],
'url' => '/adm/navmaps',	'url' => '/adm/navmaps',
'printKey' => 1,	#'printKey' => 1,
'r' => $r});	'r' => $r});

$navmap->untieHashes();	$navmap->untieHashes();
Line 2696 sub extractParts {	Line 2696 sub extractParts {

foreach (split(/\,/,$metadata)) {	foreach (split(/\,/,$metadata)) {
if ($_ =~ /^parameter\_(.*)\_opendate$/) {	if ($_ =~ /^parameter\_(.*)\_opendate$/) {
push @{$self->{PARTS}}, $1;	my $part = $1;
	# check to see if part is turned off.
	if (! Apache::loncommon::check_if_partid_hidden($part, $self->symb())) {
	push @{$self->{PARTS}}, $1;
	}
}	}
}	}


# Is this possible to do in one line? - Jeremy
my @sortedParts = sort @{$self->{PARTS}};	my @sortedParts = sort @{$self->{PARTS}};
$self->{PARTS} = \@sortedParts;	$self->{PARTS} = \@sortedParts;
}	}