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

Diff for /loncom/interface/coursecatalog.pm between versions 1.37 and 1.39

version 1.37, 2008/07/08 09:23:38 version 1.39, 2008/07/14 10:24:27
Line 53  sub handler { Line 53  sub handler {
     }      }
     &Apache::lonacc::get_posted_cgi($r);      &Apache::lonacc::get_posted_cgi($r);
     &Apache::lonlocal::get_language_handle($r);      &Apache::lonlocal::get_language_handle($r);
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},['sortby']);      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                               ['sortby','showdom']);
   
     my $codedom = &Apache::lonnet::default_login_domain();      my $codedom = &Apache::lonnet::default_login_domain();
   
Line 171  sub course_details { Line 172  sub course_details {
              {text=>"Course details"});               {text=>"Course details"});
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Details'));      $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course Details'));
     $r->print('<br />'.&mt('Detailed course information:').'<br /><br />'.      $r->print('<br />'.&mt('Detailed course information:').'<br /><br />'.
               '<form name="'.$formname.'" method="post">'.                '<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'.
               &print_course_listing($codedom,undef,$trails,$allitems).                &print_course_listing($codedom,undef,$trails,$allitems).
               '<br /><br />');                '<br /><br />');
     $r->print('<a href = "javascript:document.coursecatalog.submit()">'.      $r->print('<a href = "javascript:document.coursecatalog.submit()">'.
Line 487  sub additional_filters { Line 488  sub additional_filters {
             $output .= '<tr><td><label>'.              $output .= '<tr><td><label>'.
                        '<input type="checkbox" name="withsubcats" value="1" '.                         '<input type="checkbox" name="withsubcats" value="1" '.
                        $include_subcat_status.'/>'.                         $include_subcat_status.'/>'.
                        &mt('Include subcategories within "[_1]"',$catname).                         &mt('Include subcategories within "[_1]"',
                        '</label></td></tr>';                             &unescape($catname)).'</label></td></tr>';
         }          }
     }      }
     my $show_selfenroll_status;      my $show_selfenroll_status;
Line 836  sub build_courseinfo_hash { Line 837  sub build_courseinfo_hash {
         $cleandesc=~s/'/\\'/g;          $cleandesc=~s/'/\\'/g;
         $cleandesc =~ s/^\s+//;          $cleandesc =~ s/^\s+//;
         my ($cdom,$cnum)=split(/\_/,$course);          my ($cdom,$cnum)=split(/\_/,$course);
         my ($descr,$instcode,$singleowner,$ttype,$selfenroll_types,          my ($instcode,$singleowner,$ttype,$selfenroll_types,
             $selfenroll_start,$selfenroll_end,@owners,%ownernames,$categories);              $selfenroll_start,$selfenroll_end,@owners,%ownernames,$categories);
         if (ref($courses->{$course}) eq 'HASH') {          if (ref($courses->{$course}) eq 'HASH') {
             $descr = $courses->{$course}{'description'};              $descr = $courses->{$course}{'description'};
Line 1092  sub identify_sections { Line 1093  sub identify_sections {
         }          }
     }      }
     @secnums = sort {$a <=> $b} @secnums;      @secnums = sort {$a <=> $b} @secnums;
     my $seclist = join(', ',@secnums);      $seclist = join(', ',@secnums);
     my $numsec = @secnums;      my $numsec = @secnums;
     return ($seclist,$numsec);      return ($seclist,$numsec);
 }  }
Removed from v.1.37  
changed lines
  Added in v.1.39

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