Diff for /loncom/lond between versions 1.405 and 1.407

version 1.405, 2008/06/26 23:51:59 version 1.407, 2008/07/07 15:23:41
Line 3619  sub put_course_id_hash_handler { Line 3619  sub put_course_id_hash_handler {
 #                                  now or in the future (selfenrollonly = 1).  #                                  now or in the future (selfenrollonly = 1).
 #                 catfilter - filter by course category, assigned to a course   #                 catfilter - filter by course category, assigned to a course 
 #                             using manually defined categories (i.e., not  #                             using manually defined categories (i.e., not
 #                             self-cataloging based on onstitutional code).     #                             self-cataloging based on on institutional code).   
 #                 showhidden - include course in results even if course    #                 showhidden - include course in results even if course  
 #                              was set to be excluded from course catalog (DC only).   #                              was set to be excluded from course catalog (DC only).
 #                 caller -  if set to 'coursecatalog', courses set to be hidden  #                 caller -  if set to 'coursecatalog', courses set to be hidden
 #                           from course catalog will be excluded from results (unless  #                           from course catalog will be excluded from results (unless
 #                           overridden by "showhidden".  #                           overridden by "showhidden".
Line 3721  sub dump_course_id_handler { Line 3721  sub dump_course_id_handler {
                     }                      }
                 }                  }
                 if ($catfilter ne '') {                  if ($catfilter ne '') {
                     next if ($items->{'category'} ne $catfilter);                      next if ($items->{'categories'} eq '');
                       my @categories = split('&',$items->{'categories'}); 
                       next if (@categories == 0);
                       my @subcats = split('&',$catfilter);
                       my $matchcat = 0;
                       foreach my $cat (@categories) {
                           if (grep(/^\Q$cat\E$/,@subcats)) {
                               $matchcat = 1;
                               last;
                           }
                       }
                       next if (!$matchcat);
                 }                  }
                 if ($caller eq 'coursecatalog') {                  if ($caller eq 'coursecatalog') {
                     if ($items->{'hidefromcat'} eq 'yes') {                      if ($items->{'hidefromcat'} eq 'yes') {

Removed from v.1.405  
changed lines
  Added in v.1.407


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