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

Diff for /loncom/interface/coursecatalog.pm between versions 1.58.4.6 and 1.58.4.9

version 1.58.4.6, 2010/12/22 04:14:09 version 1.58.4.9, 2013/11/21 16:34:23
Line 66  sub handler { Line 66  sub handler {
     }      }
     my $formname = 'coursecatalog';      my $formname = 'coursecatalog';
     if ($env{'form.showdom'} ne '') {      if ($env{'form.showdom'} ne '') {
           $env{'form.showdom'} = &LONCAPA::clean_domain($env{'form.showdom'});
         if (&Apache::lonnet::domain($env{'form.showdom'}) ne '') {          if (&Apache::lonnet::domain($env{'form.showdom'}) ne '') {
             $codedom = $env{'form.showdom'};              $codedom = $env{'form.showdom'};
           } else {
               $env{'form.showdom'} = '';
         }          }
     }      }
     my $domdesc = &Apache::lonnet::domain($codedom,'description');      my $domdesc = &Apache::lonnet::domain($codedom,'description');
     &Apache::lonhtmlcommon::clear_breadcrumbs();      &Apache::lonhtmlcommon::clear_breadcrumbs();
   
       if ($env{'form.catalog_maxdepth'} ne '') {
           $env{'form.catalog_maxdepth'} =~ s{\D}{}g;
       }
   
     my %domconfig =      my %domconfig =
         &Apache::lonnet::get_dom('configuration',['coursecategories'],$codedom);          &Apache::lonnet::get_dom('configuration',['coursecategories'],$codedom);
     my (@cats,@trails,%allitems,%idx,@jsarray,%subcathash,$cathash);      my (@cats,@trails,%allitems,%idx,@jsarray,%subcathash,$cathash);
Line 284  sub instcode_course_selector { Line 291  sub instcode_course_selector {
         $r->print('<input type="hidden" name="coursenum" value="" />'."\n".          $r->print('<input type="hidden" name="coursenum" value="" />'."\n".
                   '<input type="hidden" name="sortby" value="" />'."\n".                    '<input type="hidden" name="sortby" value="" />'."\n".
                   '<input type="hidden" name="state" value="listing" />'."\n".                    '<input type="hidden" name="state" value="listing" />'."\n".
                   '<input type="hidden" name="form.currcat_0" value="instcode::0" />'."\n".  
                   '<input type="submit" name="catalogfilter" value="'.                    '<input type="submit" name="catalogfilter" value="'.
                   &mt('Display courses').'" />'.                    &mt('Display courses').'" />'.
                   '<input type="hidden" name="numtitles" value="'.$numtitles.                    '<input type="hidden" name="numtitles" value="'.$numtitles.
Line 805  sub build_courseinfo_hash { Line 811  sub build_courseinfo_hash {
             $selfenroll_end = $courses->{$course}{'selfenroll_end_date'};              $selfenroll_end = $courses->{$course}{'selfenroll_end_date'};
             $categories = $courses->{$course}{'categories'};              $categories = $courses->{$course}{'categories'};
             push(@owners,$singleowner);              push(@owners,$singleowner);
             if (ref($courses->{$course}{'co-owners'}) eq 'ARRAY') {              if ($courses->{$course}{'co-owners'} ne '') {
                 foreach my $item (@{$courses->{$course}{'co-owners'}}) {                  foreach my $item (split(/,/,$courses->{$course}{'co-owners'})) {
                     push(@owners,$item);                      push(@owners,$item);
                 }                  }
             }              }
Removed from v.1.58.4.6  
changed lines
  Added in v.1.58.4.9

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