loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.159, 2003/03/13 20:46:36	version 1.161, 2003/03/20 17:19:29
Line 1139 sub render {	Line 1139 sub render {
if (($statusAllSame && defined($condenseStatuses{$status})) \|\|	if (($statusAllSame && defined($condenseStatuses{$status})) \|\|
($dueAllSame && $status == $curRes->OPEN && $statusAllSame)\|\|	($dueAllSame && $status == $curRes->OPEN && $statusAllSame)\|\|
($openAllSame && $status == $curRes->OPEN_LATER && $statusAllSame) ){	($openAllSame && $status == $curRes->OPEN_LATER && $statusAllSame) ){
@parts = ($parts[1]);	@parts = ();
$args->{'condensed'} = 1;	$args->{'condensed'} = 1;
}	}

Line 1623 sub parmval_real {	Line 1623 sub parmval_real {
my ($space,@qualifier)=split(/\./,$rwhat);	my ($space,@qualifier)=split(/\./,$rwhat);
my $qualifier=join('.',@qualifier);	my $qualifier=join('.',@qualifier);
unless ($space eq '0') {	unless ($space eq '0') {
my ($part,$id)=split(/\_/,$space);	my @parts=split(/_/,$space);
if ($id) {	my $id=pop(@parts);
my $partgeneral=$self->parmval($part.".$qualifier",$symb);	my $part=join('_',@parts);
if (defined($partgeneral)) { return $partgeneral; }	if ($part eq '') { $part='0'; }
} else {	my $partgeneral=$self->parmval($part.".$qualifier",$symb);
my $resourcegeneral=$self->parmval("0.$qualifier",$symb);	if (defined($partgeneral)) { return $partgeneral; }
if (defined($resourcegeneral)) { return $resourcegeneral; }
}
}	}
return '';	return '';
}	}