[BACK]Return to lonnavmaps.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonnavmaps.pm between versions 1.170 and 1.172

version 1.170, 2003/04/01 19:28:05 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 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.
Removed from v.1.170  
changed lines
  Added in v.1.172

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>