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

Diff for /loncom/interface/coursecatalog.pm between versions 1.4 and 1.5

version 1.4, 2006/09/13 21:35:46 version 1.5, 2006/09/25 00:16:56
Line 60  sub handler { Line 60  sub handler {
     my $totcodes = 0;      my $totcodes = 0;
     my $jscript = '';      my $jscript = '';
     my $formname = 'coursecatalog';      my $formname = 'coursecatalog';
       my $domdesc = $Apache::lonnet::domaindescription{$codedom};
     $totcodes = &Apache::lonsupportreq::retrieve_instcodes(\%coursecodes,$codedom,$totcodes);      $totcodes = &Apache::lonsupportreq::retrieve_instcodes(\%coursecodes,$codedom,$totcodes);
     if ($totcodes > 0) {      if ($totcodes > 0) {
         if ($ccode eq '') {          if ($ccode eq '') {
Line 108  function changeSort(caller) { Line 109  function changeSort(caller) {
         $r->print($start_page);          $r->print($start_page);
   
         my $numtitles = @codetitles;          my $numtitles = @codetitles;
         my $domdesc = $Apache::lonnet::domaindescription{$codedom};  
         $r->print('<h3>'.&mt('Display information about official [_1] classes for which LON-CAPA courses have been created:',$domdesc).'</h3>');          $r->print('<h3>'.&mt('Display information about official [_1] classes for which LON-CAPA courses have been created:',$domdesc).'</h3>');
         $r->print(&mt('<b>Choose which course(s) to list.</b><br />'));          $r->print(&mt('<b>Choose which course(s) to list.</b><br />'));
         $r->print('<form name="coursecatalog" method="post">');           $r->print('<form name="coursecatalog" method="post">'); 
Line 163  function changeSort(caller) { Line 163  function changeSort(caller) {
             }              }
         }          }
         $r->print('<br /><input type="hidden" name="state" value="listing" /><input type="hidden" name="sortby" value="" /><input type="submit" name="catalogfilter" value="'.&mt('Display courses').'" /></form>');          $r->print('<br /><input type="hidden" name="state" value="listing" /><input type="hidden" name="sortby" value="" /><input type="submit" name="catalogfilter" value="'.&mt('Display courses').'" /></form>');
       } else {
           $r->print(&Apache::loncommon::start_page('Course Catalog','',
                     {
                      'no_inline_link'   => 1,}));
           $r->print('<br />'.&mt('No official courses to display for [_1].',$domdesc));
     }      }
     if ($env{'form.state'} eq 'listing') {      if ($env{'form.state'} eq 'listing') {
         $r->print('<br /><br />'.&print_course_listing($codedom));          $r->print('<br /><br />'.&print_course_listing($codedom));
     }      }
     $r->print(&Apache::loncommon::end_page());      $r->print(&Apache::loncommon::end_page());
       return OK;
 }  }
   
 sub print_course_listing {  sub print_course_listing {
Removed from v.1.4  
changed lines
  Added in v.1.5

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