loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.290, 2004/09/15 21:10:11	version 1.293, 2004/09/19 14:47:37
Line 127 sub nav_control_js {	Line 127 sub nav_control_js {

function gonav(url) {	function gonav(url) {
if (w_loncapanav_flag != 1) {	if (w_loncapanav_flag != 1) {
go(url);	gopost(url,'');
} else {	} else {
navwindow=window.open(url,	navwindow=window.open(url,
"loncapanav","height=600,width=400,scrollbars=1");	"loncapanav","height=600,width=400,scrollbars=1");
Line 3964 sub countParts {	Line 3964 sub countParts {
sub countResponses {	sub countResponses {
my $self = shift;	my $self = shift;
my $count;	my $count;
foreach my $part ($self->parts()) {	foreach my $part (@{$self->parts()}) {
$count+= $self->responseIds($part);	$count+= scalar($self->responseIds($part));
}	}
return $count;	return $count;
}	}

sub responseTypes {	sub responseTypes {
my $self = shift;	my $self = shift;
my %Responses;	my %responses;
foreach my $part ($self->parts()) {	foreach my $part ($self->parts()) {
foreach my $responsetype ($self->responseType($part)) {	foreach my $responsetype ($self->responseType($part)) {
$Responses{$responsetype}++ if (defined($responsetype));	$responses{$responsetype}++ if (defined($responsetype));
}	}
}	}
return %Responses;	return %responses;
}	}

sub multipart {	sub multipart {