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

Diff for /loncom/interface/lonnavmaps.pm between versions 1.515 and 1.516

version 1.515, 2016/03/02 14:14:06 version 1.516, 2016/03/02 20:07:20
Line 2817  sub get_mapparam { Line 2817  sub get_mapparam {
   
     unless ($symb) { return ['']; }      unless ($symb) { return ['']; }
     my $result='';      my $result='';
       my ($recursed,@recurseup);
   
   
     # Figure out which map we are in.      # Figure out which map we are in.
Line 2862  sub get_mapparam { Line 2863  sub get_mapparam {
         if (defined($$useropt{$courseleveli})) {          if (defined($$useropt{$courseleveli})) {
             return $$useropt{$courseleveli};              return $$useropt{$courseleveli};
         }          }
           unless ($recursed) {
               @recurseup = $self->recurseup_maps($mapname);
               $recursed = 1;
           }
           foreach my $item (@recurseup) {
               my $norecursechk=$usercourseprefix.'.'.$item.'___(all).'.$what;
               last if (defined($$useropt{$norecursechk}));
               my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what;
               if (defined($$useropt{$recursechk})) {
                   return $$useropt{$recursechk};
               }
           }
     }      }
   
     # Check course -- group      # Check course -- group
Line 2875  sub get_mapparam { Line 2888  sub get_mapparam {
         if (defined($$courseopt{$grpleveli})) {          if (defined($$courseopt{$grpleveli})) {
             return $$courseopt{$grpleveli};              return $$courseopt{$grpleveli};
         }          }
           unless ($recursed) {
               @recurseup = $self->recurseup_maps($mapname);
               $recursed = 1;
           }
           foreach my $item (@recurseup) {
               my $norecursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(all).'.$what;
               last if (defined($$courseopt{$norecursechk}));
               my $recursechk=$usercourseprefix.'.['.$cgroup.'].'.$item.'___(rec).'.$what;
               if (defined($$courseopt{$recursechk})) {
                   return $$courseopt{$recursechk};
               }
           }
     }      }
   
     # Check course -- section      # Check course -- section
   
   
     if ($csec and defined($courseopt)) {      if ($csec ne '' and defined($courseopt)) {
  if (defined($$courseopt{$seclevelm})) {   if (defined($$courseopt{$seclevelm})) {
     return $$courseopt{$seclevelm};      return $$courseopt{$seclevelm};
  }   }
         if (defined($$courseopt{$secleveli})) {          if (defined($$courseopt{$secleveli})) {
             return $$courseopt{$secleveli};              return $$courseopt{$secleveli};
         }          }
           unless ($recursed) {
               @recurseup = $self->recurseup_maps($mapname);
               $recursed = 1;
           }
           foreach my $item (@recurseup) {
               my $norecursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(all).'.$what;
               last if (defined($$courseopt{$norecursechk}));
               my $recursechk=$usercourseprefix.'.['.$csec.'].'.$item.'___(rec).'.$what;
               if (defined($$courseopt{$recursechk})) {
                   return $$courseopt{$recursechk};
               }
           }
     }      }
     # Check the map parameters themselves:      # Check the map parameters themselves:
   
Line 2902  sub get_mapparam { Line 2939  sub get_mapparam {
  if (defined($$courseopt{$courselevelm})) {   if (defined($$courseopt{$courselevelm})) {
     return $$courseopt{$courselevelm};      return $$courseopt{$courselevelm};
  }   }
           unless ($recursed) {
               @recurseup = $self->recurseup_maps($mapname);
               $recursed = 1;
           }
           if (@recurseup) {
               foreach my $item (@recurseup) {
                   my $norecursechk=$usercourseprefix.'.'.$item.'___(all).'.$what;
                   last if (defined($$courseopt{$norecursechk}));
                   my $recursechk=$usercourseprefix.'.'.$item.'___(rec).'.$what;
                   if (defined($$courseopt{$recursechk})) {
                       return $$courseopt{$recursechk};
                   }
               }
           }
     }      }
     return undef; # Unefined if we got here.      return undef; # Undefined if we got here.
 }  }
   
 sub course_printdates {  sub course_printdates {
Removed from v.1.515  
changed lines
  Added in v.1.516

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