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

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

version 1.168, 2003/03/28 18:14:59 version 1.172, 2003/04/04 19:08:46
Line 199  sub real_handler { Line 199  sub real_handler {
     # renderer call      # renderer call
     my $render = render({ 'cols' => [0,1,2,3],      my $render = render({ 'cols' => [0,1,2,3],
                           'url' => '/adm/navmaps',                            'url' => '/adm/navmaps',
                             'navmap' => $navmap,
                           'suppressNavmap' => 1,                            'suppressNavmap' => 1,
                           'r' => $r});                            'r' => $r});
   
Line 490  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 847  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 992  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 1282  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 1433  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 1496  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 1663  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.168  
changed lines
  Added in v.1.172

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