--- loncom/interface/lonnavmaps.pm 2004/06/15 14:12:56 1.261
+++ loncom/interface/lonnavmaps.pm 2004/06/29 22:32:11 1.264
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.261 2004/06/15 14:12:56 matthew Exp $
+# $Id: lonnavmaps.pm,v 1.264 2004/06/29 22:32:11 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -137,7 +137,9 @@ sub real_handler {
$r->print(''.
&Apache::loncommon::bodytag('Navigate Course Contents','',
$addentries,'','',$ENV{'form.register'}));
- $r->print('');
+ $r->print(''.
+ &Apache::loncommon::help_open_topic('Navigation_Screen').
+ &Apache::loncommon::help_open_bug('RAT'));
$r->rflush();
@@ -3244,10 +3246,10 @@ sub is_sequence {
sub is_survey {
my $self = shift();
my $part = shift();
- if ($self->src() =~ /\.(survey)$/) {
+ if ($self->parmval('type',$part) eq 'survey') {
return 1;
}
- if ($self->parmval('type',$part) eq 'survey') {
+ if ($self->src() =~ /\.(survey)$/) {
return 1;
}
return 0;
@@ -3733,6 +3735,20 @@ sub extractParts {
}
}
}
+ my $resorder = &Apache::lonnet::metadata($self->src(),'responseorder');
+ if ($resorder) {
+ my @resorder=split(/,/,$resorder);
+ foreach my $part (keys(%responseIdHash)) {
+ my %resids = map { ($_,1) } @{ $responseIdHash{$part} };
+ my @neworder;
+ foreach my $possibleid (@resorder) {
+ if (exists($resids{$possibleid})) {
+ push(@neworder,$possibleid);
+ }
+ }
+ $responseIdHash{$part}=\@neworder;
+ }
+ }
$self->{RESPONSE_IDS} = \%responseIdHash;
$self->{RESPONSE_TYPES} = \%responseTypeHash;
}