loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.136, 2003/02/04 16:37:51	version 1.138, 2003/02/06 21:26:21
Line 1445 sub render {	Line 1445 sub render {
my $srcHasQuestion = $src =~ /\?/;	my $srcHasQuestion = $src =~ /\?/;
$args->{"resourceLink"} = $src.	$args->{"resourceLink"} = $src.
($srcHasQuestion?'&':'?') .	($srcHasQuestion?'&':'?') .
'symb=' . &Apache::lonnet::escape($curRes->symb()).	'symb=' . &Apache::lonnet::escape($curRes->symb());
'"';

# Now, display each column.	# Now, display each column.
foreach my $col (@$cols) {	foreach my $col (@$cols) {
Line 2229 sub next {	Line 2228 sub next {
# If this is a blank resource, don't actually return it.	# If this is a blank resource, don't actually return it.
# Should you ever find you need it, make sure to add an option to the code	# Should you ever find you need it, make sure to add an option to the code
# that you can use; other things depend on this behavior.	# that you can use; other things depend on this behavior.
if (!$self->{HERE}->src() \|\| !$self->{HERE}->browsePriv()) {	my $browsePriv = $self->{HERE}->browsePriv();
	if (!$self->{HERE}->src() \|\|
	(!($browsePriv eq 'F') && !($browsePriv eq '2')) ) {
return $self->next();	return $self->next();
}	}