[LON-CAPA-cvs] cvs: loncom /interface lonnavmaps.pm
albertel
lon-capa-cvs@mail.lon-capa.org
Thu, 06 Nov 2003 15:24:14 -0000
albertel Thu Nov 6 10:24:14 2003 EDT
Modified files:
/loncom/interface lonnavmaps.pm
Log:
- wasn't build %parts if partorder set, this was needed later on to do do response ID discovery
Index: loncom/interface/lonnavmaps.pm
diff -u loncom/interface/lonnavmaps.pm:1.240 loncom/interface/lonnavmaps.pm:1.241
--- loncom/interface/lonnavmaps.pm:1.240 Thu Oct 9 17:48:51 2003
+++ loncom/interface/lonnavmaps.pm Thu Nov 6 10:24:13 2003
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.240 2003/10/09 21:48:51 albertel Exp $
+# $Id: lonnavmaps.pm,v 1.241 2003/11/06 15:24:13 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -3586,6 +3586,7 @@
for my $part (split (/,/,$partorder)) {
if (!Apache::loncommon::check_if_partid_hidden($part, $self->symb())) {
push @parts, $part;
+ $parts{$part} = 1;
}
}
$self->{PARTS} = \@parts;
@@ -3601,8 +3602,8 @@
my $part = $1;
# This floods the logs if it blows up
if (defined($parts{$part})) {
- Apache::lonnet::logthis("$part multiply defined in metadata for " . $self->symb());
- }
+ &Apache::lonnet::logthis("$part multiply defined in metadata for " . $self->symb());
+ }
# check to see if part is turned off.
@@ -3638,7 +3639,6 @@
my $partIdSoFar = '';
my @partChunks = split /_/, $partStuff;
my $i = 0;
-
for ($i = 0; $i < scalar(@partChunks); $i++) {
if ($partIdSoFar) { $partIdSoFar .= '_'; }
$partIdSoFar .= $partChunks[$i];
@@ -3651,7 +3651,6 @@
}
}
}
-
$self->{RESPONSE_IDS} = \%responseIdHash;
$self->{RESPONSE_TYPES} = \%responseTypeHash;
}