version 1.169, 2003/03/28 18:29:49
|
version 1.172, 2003/04/04 19:08:46
|
Line 491 The pre-packaged column names are refere
|
Line 491 The pre-packaged column names are refere
|
|
|
=item * B<resource_part_count>: If true (default), the resource will show a part count if the full part list is not displayed. If false, the resource will never show a part count. |
=item * B<resource_part_count>: If true (default), the resource will show a part count if the full part list is not displayed. If false, the resource will never show a part count. |
|
|
=item * B<resource_no_folder_link>: If true, the resource's folder will not be clickable to open or close it. Default is false. |
=item * B<resource_no_folder_link>: If true, the resource's folder will not be clickable to open or close it. Default is false. True implies printCloseAll is false, since you can't close or open folders when this is on anyhow. |
|
|
=back |
=back |
|
|
Line 848 sub render {
|
Line 848 sub render {
|
if (!$ENV{'form.folderManip'} && !defined($args->{'iterator'})) { |
if (!$ENV{'form.folderManip'} && !defined($args->{'iterator'})) { |
# Step 1: Check to see if we have a navmap |
# Step 1: Check to see if we have a navmap |
if (!defined($navmap)) { |
if (!defined($navmap)) { |
$navmap = Apache::lonnavmaps::navmap->new($r, |
$navmap = Apache::lonnavmaps::navmap->new( |
$ENV{"request.course.fn"}.".db", |
$ENV{"request.course.fn"}.".db", |
$ENV{"request.course.fn"}."_parms.db", 1, 1); |
$ENV{"request.course.fn"}."_parms.db", 1, 1); |
$mustCloseNavMap = 1; |
$mustCloseNavMap = 1; |
Line 993 sub render {
|
Line 993 sub render {
|
$result .= '</tr></table>'; |
$result .= '</tr></table>'; |
} |
} |
|
|
if ($printCloseAll) { |
if ($printCloseAll && !$args->{'resource_no_folder_link'}) { |
if ($condition) { |
if ($condition) { |
$result.="<a href=\"navmaps?condition=0&filter=&$queryString" . |
$result.="<a href=\"navmaps?condition=0&filter=&$queryString" . |
"&here=" . Apache::lonnet::escape($here) . |
"&here=" . Apache::lonnet::escape($here) . |
Line 1283 sub new {
|
Line 1283 sub new {
|
if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE}, |
if (!(tie(%parmhash, 'GDBM_File', $self->{PARM_HASH_FILE}, |
&GDBM_READER(), 0640))) |
&GDBM_READER(), 0640))) |
{ |
{ |
untie $self->{PARM_HASH}; |
untie %{$self->{PARM_HASH}}; |
return undef; |
return undef; |
} |
} |
|
|
Line 1434 sub getIterator {
|
Line 1434 sub getIterator {
|
# unties the hash when done |
# unties the hash when done |
sub untieHashes { |
sub untieHashes { |
my $self = shift; |
my $self = shift; |
untie $self->{NAV_HASH}; |
untie %{$self->{NAV_HASH}}; |
untie $self->{PARM_HASH}; |
untie %{$self->{PARM_HASH}}; |
} |
} |
|
|
# Private method: Does the given resource (as a symb string) have |
# Private method: Does the given resource (as a symb string) have |
Line 1497 sub getById {
|
Line 1497 sub getById {
|
return "Apache::lonnavmaps::resource"->new($self, $id); |
return "Apache::lonnavmaps::resource"->new($self, $id); |
} |
} |
|
|
|
sub getBySymb { |
|
my $self = shift; |
|
my $symb = shift; |
|
my ($mapUrl, $id, $filename) = split (/___/, $symb); |
|
my $map = $self->getResourceByUrl($mapUrl); |
|
return $self->getById($map->map_pc() . '.' . $id); |
|
} |
|
|
=pod |
=pod |
|
|
=item * B<firstResource>(): Returns a resource object reference corresponding to the first resource in the navmap. |
=item * B<firstResource>(): Returns a resource object reference corresponding to the first resource in the navmap. |
Line 1664 sub retrieveResources {
|
Line 1672 sub retrieveResources {
|
|
|
# Create the necessary iterator. |
# Create the necessary iterator. |
if (!ref($map)) { # assume it's a url of a map. |
if (!ref($map)) { # assume it's a url of a map. |
$map = $self->getMapByUrl($map); |
$map = $self->getResourceByUrl($map); |
} |
} |
|
|
# Check the map's validity. |
# Check the map's validity. |