version 1.80, 2002/10/14 18:41:02
|
version 1.82, 2002/10/15 19:51:25
|
Line 1104 sub new_handle {
|
Line 1104 sub new_handle {
|
'symb='.&Apache::lonnet::escape($curRes->symb()). |
'symb='.&Apache::lonnet::escape($curRes->symb()). |
'"'; |
'"'; |
my $title = $curRes->title(); |
my $title = $curRes->title(); |
|
if (!$title) { |
|
$title = $curRes->src(); |
|
$title = substr ($title, rindex($title, "/") + 1); |
|
} |
my $partLabel = ""; |
my $partLabel = ""; |
my $newBranchText = ""; |
my $newBranchText = ""; |
|
|
Line 1131 sub new_handle {
|
Line 1135 sub new_handle {
|
# Display the correct icon, link to open or shut map |
# Display the correct icon, link to open or shut map |
if ($curRes->is_map()) { |
if ($curRes->is_map()) { |
my $mapId = $curRes->map_pc(); |
my $mapId = $curRes->map_pc(); |
my $nowOpen = !defined($filterHash{$mapId}); |
my $nowOpen = (!defined($filterHash{$mapId})); |
|
if ($condition) {$nowOpen = !$nowOpen;} |
$icon = $nowOpen ? |
$icon = $nowOpen ? |
"navmap.folder.closed.gif" : "navmap.folder.open.gif"; |
"navmap.folder.closed.gif" : "navmap.folder.open.gif"; |
$icon = "<img src=\"/adm/lonIcons/$icon\" alt=\"\" border=\"0\" />"; |
$icon = "<img src=\"/adm/lonIcons/$icon\" alt=\"\" border=\"0\" />"; |
Line 1197 sub new_handle {
|
Line 1202 sub new_handle {
|
$partLabel = " (Part $part)"; |
$partLabel = " (Part $part)"; |
$title = ""; |
$title = ""; |
} |
} |
if ($multipart && $condensed) { |
if ($multipart && $condensed && $curRes->countParts > 1) { |
$nonLinkedText .= ' (' . $curRes->countParts() . ' parts)'; |
$nonLinkedText .= ' (' . $curRes->countParts() . ' parts)'; |
} |
} |
|
|
Line 2577 sub extractParts {
|
Line 2582 sub extractParts {
|
|
|
$self->{PARTS} = []; |
$self->{PARTS} = []; |
|
|
# Retrieve part count |
# Retrieve part count, if this is a problem |
my $metadata = &Apache::lonnet::metadata($self->src(), 'allpossiblekeys'); |
if ($self->is_problem()) { |
if (!$metadata) { |
my $metadata = &Apache::lonnet::metadata($self->src(), 'allpossiblekeys'); |
$self->{RESOURCE_ERROR} = 1; |
if (!$metadata) { |
$self->{PARTS} = []; |
$self->{RESOURCE_ERROR} = 1; |
return; |
$self->{PARTS} = []; |
} |
return; |
|
} |
foreach (split(/\,/,$metadata)) { |
|
if ($_ =~ /^parameter\_(.*)\_opendate$/) { |
foreach (split(/\,/,$metadata)) { |
push @{$self->{PARTS}}, $1; |
if ($_ =~ /^parameter\_(.*)\_opendate$/) { |
|
push @{$self->{PARTS}}, $1; |
|
} |
} |
} |
|
|
|
|
|
# Is this possible to do in one line? - Jeremy |
|
my @sortedParts = sort @{$self->{PARTS}}; |
|
$self->{PARTS} = \@sortedParts; |
} |
} |
|
|
|
|
# Is this possible to do in one line? - Jeremy |
|
my @sortedParts = sort @{$self->{PARTS}}; |
|
$self->{PARTS} = \@sortedParts; |
|
|
|
return; |
return; |
} |
} |
|
|