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

Diff for /loncom/interface/coursecatalog.pm between versions 1.75 and 1.77

version 1.75, 2013/11/20 18:40:09 version 1.77, 2013/12/30 01:33:21
Line 643  sub additional_filters { Line 643  sub additional_filters {
                             date      => 'immediately prior to specific date:',                              date      => 'immediately prior to specific date:',
                         );                          );
                         my @statuses = &Apache::loncommon::get_env_multiple('form.showcounts');                          my @statuses = &Apache::loncommon::get_env_multiple('form.showcounts');
                         $output .= '<span id="choosewasacctext">';                          $output .= '<span id="choosewasacctext" class="LC_nobreak">';
                         if ($checked) {                          if ($checked) {
                             $output .= &get_wasactive_text();                              $output .= &get_wasactive_text();
                         }                          }
Line 951  sub construct_data_table { Line 951  sub construct_data_table {
     $output .= '<th>'.&mt('Self-enroll (if permitted)').'</th>';      $output .= '<th>'.&mt('Self-enroll (if permitted)').'</th>';
     &Apache::loncommon::end_data_table_header_row();      &Apache::loncommon::end_data_table_header_row();
     my (%numbers,%creditsum);      my (%numbers,%creditsum);
     my ($showcredits,$defofficial,$defunofficial);      my ($showcredits,$defofficial,$defunofficial,$deftextbook);
     my %domdefaults = &Apache::lonnet::get_domain_defaults($domain);      my %domdefaults = &Apache::lonnet::get_domain_defaults($domain);
     unless ($env{'form.currcat_0'} eq 'communities::0') {      unless ($env{'form.currcat_0'} eq 'communities::0') {
         if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'}) {          if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'} || $domdefaults{'textbookcredits'}) {
             $showcredits = 1;              $showcredits = 1;
             $defofficial = $domdefaults{'officialcredits'};              $defofficial = $domdefaults{'officialcredits'};
             $defunofficial = $domdefaults{'unofficialcredits'};               $defunofficial = $domdefaults{'unofficialcredits'};
               $deftextbook = $domdefaults{'textbookcredits'};
         }          }
     }      }
     my %courseinfo = &build_courseinfo_hash($courses,$knownuser,$domain,$details,      my %courseinfo = &build_courseinfo_hash($courses,$knownuser,$domain,$details,
                                             $usersections,\@fields,\%fieldtitles,                                              $usersections,\@fields,\%fieldtitles,
                                             $wasactiveon,\%numbers,\%creditsum,                                              $wasactiveon,\%numbers,\%creditsum,
                                             $showcredits,$defofficial,$defunofficial);                                              $showcredits,$defofficial,$defunofficial,$deftextbook);
     my %Sortby;      my %Sortby;
     foreach my $course (sort(keys(%{$courses}))) {      foreach my $course (sort(keys(%{$courses}))) {
         if ($env{'form.sortby'} eq 'code') {          if ($env{'form.sortby'} eq 'code') {
Removed from v.1.75  
changed lines
  Added in v.1.77

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