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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.142 and 1.143

version 1.142, 2003/02/07 22:17:51 version 1.143, 2003/02/13 23:44:30
Line 521  Most of these parameters are only useful Line 521  Most of these parameters are only useful
   
 =item * B<printCloseAll>: If true, print the "Close all folders" or "open all folders" links. Default is true.  =item * B<printCloseAll>: If true, print the "Close all folders" or "open all folders" links. Default is true.
   
   =item * B<filterFunc>: A function that takes the resource object as its only parameter and returns a true or false value. If true, the resource is displayed. If false, it is simply skipped in the display. By default, all resources are showne.
   
 =back  =back
   
 =head2 Additional Info  =head2 Additional Info
Line 929  sub render { Line 931  sub render {
     my $printKey = $args->{'printKey'};      my $printKey = $args->{'printKey'};
     my $printCloseAll = $args->{'printCloseAll'};      my $printCloseAll = $args->{'printCloseAll'};
     if (!defined($printCloseAll)) { $printCloseAll = 1; }      if (!defined($printCloseAll)) { $printCloseAll = 1; }
       my $filterFunc = setDefault($args->{'filterFunc'},
                                   sub {return 1;});
   
     # Print key?      # Print key?
     if ($printKey) {      if ($printKey) {
Line 962  sub render { Line 966  sub render {
                 "&hereType=$hereType&here=" . Apache::lonnet::escape($here) .                   "&hereType=$hereType&here=" . Apache::lonnet::escape($here) . 
                 "\">Open All Folders</a>";                  "\">Open All Folders</a>";
         }          }
           $result .= "<br /><br />\n";
     }          }    
   
     if ($r) {      if ($r) {
Line 1027  sub render { Line 1032  sub render {
   
         $args->{'counter'}++;          $args->{'counter'}++;
   
           # If this has been filtered out, continue on
           if (!(&$filterFunc($curRes))) {
               $curRes = $it->next();
               $args->{'isNewBranch'} = 0; # Don't falsely remember this
               next;
           } 
   
         # Does it have multiple parts?          # Does it have multiple parts?
         $args->{'multipart'} = 0;          $args->{'multipart'} = 0;
         $args->{'condensed'} = 0;          $args->{'condensed'} = 0;
Removed from v.1.142  
changed lines
  Added in v.1.143

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