loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.196, 2003/06/10 18:42:18	version 1.199, 2003/06/12 13:20:27
Line 966 sub render_communication_status {	Line 966 sub render_communication_status {
}	}
}	}

	if ($params->{'multipart'} && $part != '0') {
	$discussionHTML = $feedbackHTML = $errorHTML = '';
	}

return "<td width=\"75\" align=\"left\" valign=\"center\">$discussionHTML$feedbackHTML$errorHTML </td>";	return "<td width=\"75\" align=\"left\" valign=\"center\">$discussionHTML$feedbackHTML$errorHTML </td>";

}	}
Line 1411 sub render {	Line 1415 sub render {
@parts = ($parts[0]);	@parts = ($parts[0]);
$args->{'condensed'} = 1;	$args->{'condensed'} = 1;
}	}

}	}
	# Multipart problem with one part: always "condense" (happens
	# to match the desirable behavior)
	if ($curRes->countParts() == 1) {
	@parts = ($parts[0]);
	$args->{'condensed'} = 1;
	}
}	}
}	}

Line 1586 sub new {	Line 1595 sub new {
return undef;	return undef;
}	}

# try copying into memory	$self->{NAV_HASH} = \%navmaphash;
my %tmpnavhash;
while (my ($k, $v) = each(%navmaphash)) {
$tmpnavhash{$k} = $v;
}
untie %navmaphash;

$self->{NAV_HASH} = \%tmpnavhash;
$self->{PARM_HASH} = \%parmhash;	$self->{PARM_HASH} = \%parmhash;
$self->{INITED} = 0;	$self->{INITED} = 0;