Diff for /loncom/lond between versions 1.406 and 1.407

version 1.406, 2008/06/30 03:59:23 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 3723  sub dump_course_id_handler { Line 3723  sub dump_course_id_handler {
                 if ($catfilter ne '') {                  if ($catfilter ne '') {
                     next if ($items->{'categories'} eq '');                      next if ($items->{'categories'} eq '');
                     my @categories = split('&',$items->{'categories'});                       my @categories = split('&',$items->{'categories'}); 
                     next if ((@categories == 0) ||                       next if (@categories == 0);
                              (!grep(/^\Q$catfilter\E$/,@categories)));                      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.406  
changed lines
  Added in v.1.407


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