version 1.616, 2012/05/28 10:31:17
|
version 1.617, 2012/05/28 10:44:42
|
Line 102 sub printable_sequence {
|
Line 102 sub printable_sequence {
|
|
|
if ($res->is_sequence()) { |
if ($res->is_sequence()) { |
my $symb = $res->symb(); |
my $symb = $res->symb(); |
&Apache::lonnet::logthis("Symb: $symb"); |
|
my $navmap = $res->{NAV_MAP}; |
my $navmap = $res->{NAV_MAP}; |
|
|
# Find the first resource in the map: |
# Find the first resource in the map: |
Line 111 sub printable_sequence {
|
Line 110 sub printable_sequence {
|
my $first = $iterator->next(); |
my $first = $iterator->next(); |
|
|
while (1) { |
while (1) { |
if ($first == $iterator->END_ITERATOR) { |
if ($first == $iterator->END_ITERATOR) { last; } |
&Apache::lonnet::logthis("End of iterator"); |
|
last; } |
|
if (ref($first)) { |
|
&Apache::lonnet::logthis("Looking at: " . $first->symb()); |
|
} else { |
|
&Apache::lonnet::logthis("Got: $first"); |
|
} |
|
if (ref($first) && ! $first->is_sequence()) {last; } |
if (ref($first) && ! $first->is_sequence()) {last; } |
$first = $iterator->next(); |
$first = $iterator->next(); |
} |
} |
Line 127 sub printable_sequence {
|
Line 119 sub printable_sequence {
|
# Might be an empty map: |
# Might be an empty map: |
|
|
if (!ref($first)) { |
if (!ref($first)) { |
&Apache::lonnet::logthis("printable_sequence: empty"); |
|
return 0; |
return 0; |
} |
} |
my $partsref = $first->parts(); |
my $partsref = $first->parts(); |
my @parts = @$partsref; |
my @parts = @$partsref; |
&Apache::lonnet::logthis("Dates for " . $first->symb()); |
|
my ($open, $close) = $navmap->map_printdates($first, $parts[0]); |
my ($open, $close) = $navmap->map_printdates($first, $parts[0]); |
&Apache::lonnet::logthis("Opens $open, closes $close"); |
|
&Apache::lonnet::logthis(ctime($open)); |
|
&Apache::lonnet::logthis(ctime($close)); |
|
return &printable($open, $close); |
return &printable($open, $close); |
} |
} |
return 0; |
return 0; |