version 1.148.2.4, 2010/09/11 19:08:19
|
version 1.148.2.5, 2010/09/12 17:40:33
|
Line 456 sub selected_sequences_with_assessments
|
Line 456 sub selected_sequences_with_assessments
|
return ('Can not open Coursemap'); |
return ('Can not open Coursemap'); |
} |
} |
# |
# |
my @sequences = $navmap->retrieveResources(undef, |
my $mapurl; |
|
if (&Apache::loncommon::needs_gci_custom()) { |
|
my $cid = $env{'request.course.id'}; |
|
if ($cid) { |
|
$mapurl = '/uploaded/'.$env{'course.'.$cid.'.domain'}.'/'.$env{'course.'.$cid.'.num'}.'/default_1261144274.sequence'; |
|
} |
|
} |
|
my @sequences = $navmap->retrieveResources($mapurl, |
sub { shift->is_map(); },1,0,1); |
sub { shift->is_map(); },1,0,1); |
my $toplevelseq = $navmap->getById('0.0'); |
unless (&Apache::loncommon::needs_gci_custom()) { |
if (!grep(/^\Q$toplevelseq\E$/,@sequences)) { |
my $toplevelseq = $navmap->getById('0.0'); |
unshift(@sequences,$toplevelseq); |
if (!grep(/^\Q$toplevelseq\E$/,@sequences)) { |
|
unshift(@sequences,$toplevelseq); |
|
} |
} |
} |
|
|
my @sequences_with_assessments; |
my @sequences_with_assessments; |
Line 504 sub map_select {
|
Line 513 sub map_select {
|
$form .= 'multiple="multiple" '; |
$form .= 'multiple="multiple" '; |
} |
} |
$form .= 'size="'.$numvisible.'" >'."\n"; |
$form .= 'size="'.$numvisible.'" >'."\n"; |
# |
unless (&Apache::loncommon::needs_gci_custom()) { |
# Put in option for 'all' |
# |
$form .= ' <option value="all" '; |
# Put in option for 'all' |
if ($selected_maps[0] eq 'all') { |
$form .= ' <option value="all" '; |
$form .= 'selected '; |
if ($selected_maps[0] eq 'all') { |
|
$form .= 'selected '; |
|
} |
|
$form .= ">all</option>\n"; |
} |
} |
$form .= ">all</option>\n"; |
|
# |
# |
# Loop through the sequences |
# Loop through the sequences |
my @sequences = &selected_sequences_with_assessments('all'); |
my @sequences = &selected_sequences_with_assessments('all'); |
Line 522 sub map_select {
|
Line 533 sub map_select {
|
} |
} |
foreach my $seq (@sequences){ |
foreach my $seq (@sequences){ |
$form .= ' <option value="'.$seq->symb.'" '; |
$form .= ' <option value="'.$seq->symb.'" '; |
foreach (@selected_maps) { |
if ((&Apache::loncommon::needs_gci_custom()) && (@selected_maps == 1)) { |
if ($seq->symb eq $_) { |
$form .= 'selected '; |
$form .= 'selected '; |
} else { |
last; |
foreach (@selected_maps) { |
|
if ($seq->symb eq $_) { |
|
$form .= 'selected '; |
|
last; |
|
} |
} |
} |
} |
} |
$form .= '>'.$seq->compTitle."</option>\n"; |
$form .= '>'.$seq->compTitle."</option>\n"; |