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

Diff for /loncom/interface/coursecatalog.pm between versions 1.74 and 1.81

version 1.74, 2013/03/04 02:33:21 version 1.81, 2014/03/18 02:03:16
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 229  sub course_details { Line 236  sub course_details {
              ({href=>"javascript:document.$formname.submit()",               ({href=>"javascript:document.$formname.submit()",
               text=>$brtextone},                text=>$brtextone},
              {text=>$brtexttwo});               {text=>$brtexttwo});
     $r->print(&Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog'));      $r->print(
     $r->print('<br />');          &Apache::lonhtmlcommon::breadcrumbs('Course/Community Catalog').
     if ($env{'form.currcat_0'} eq 'communities::0') {          '<h2>'.
         $r->print(&mt('Detailed community information:'));          (($env{'form.currcat_0'} eq 'communities::0') ?
     } else {              &mt('Detailed community information:') :
         $r->print(&mt('Detailed course information:'));              &mt('Detailed course information:')).
     }          '</h2>'.
     $r->print('<br /><br />'.          &print_course_listing($codedom,undef,$trails,$allitems,undef,$codetitles).
               &print_course_listing($codedom,undef,$trails,$allitems,undef,$codetitles).          '<br />'.
               '<br /><br />');          '<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'.
     $r->print('<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'.          &Apache::lonhtmlcommon::actionbox([
               '<a href = "javascript:document.coursecatalog.submit()">');              '<a href = "javascript:document.coursecatalog.submit()">'.
     if ($env{'form.currcat_0'} eq 'communities::0') {              (($env{'form.currcat_0'} eq 'communities::0') ?
         $r->print(&mt('Back to community listing'));                  &mt('Back to community listing') : &mt('Back to course listing')).
     } else {              '</a>'
         $r->print(&mt('Back to course listing'));          ]).
     }          &Apache::lonhtmlcommon::echo_form_input(['coursenum','catalogfilter',
     $r->print('</a>'.                                                   'showdetails','courseid']).
               &Apache::lonhtmlcommon::echo_form_input(['coursenum','catalogfilter',          '</form>');
                                                        'showdetails','courseid']).'</form>');  
     return;      return;
 }  }
   
Line 292  sub instcode_course_selector { Line 298  sub instcode_course_selector {
     my ($jscript,$totcodes,$numtitles,$lasttitle) =       my ($jscript,$totcodes,$numtitles,$lasttitle) = 
         &Apache::courseclassifier::instcode_selectors_data($codedom,$formname,          &Apache::courseclassifier::instcode_selectors_data($codedom,$formname,
                            \%cat_items,$codetitles,\%cat_titles,\%cat_order);                             \%cat_items,$codetitles,\%cat_titles,\%cat_order);
     my $js = '<script type"text/javascript">'."\n$jscript\n$catjs\n".      my $js = '<script type="text/javascript">'."\n".
               '</script>';               '// <![CDATA['."\n".
                "$jscript\n$catjs\n".
                '// ]]>'."\n".
                '</script>';
     if ($totcodes) {      if ($totcodes) {
         if (($env{'form.state'} eq 'listing') && ($numtitles > 0)) {          if (($env{'form.state'} eq 'listing') && ($numtitles > 0)) {
             $add_entries{'onLoad'} = 'setElements();';              $add_entries{'onLoad'} = 'setElements();';
Line 321  sub instcode_course_selector { Line 330  sub instcode_course_selector {
                   '<input type="hidden" name="numtitles" value="'.$numtitles.                    '<input type="hidden" name="numtitles" value="'.$numtitles.
                   '" /></form><br /><br />');                    '" /></form><br /><br />');
     } else {      } else {
         $js = '<script type"text/javascript">'."\n$catjs\n".'</script>';          $js = '<script type="text/javascript">'."\n".
                 '// <![CDATA['."\n".
                 "$catjs\n".
                 '// ]]>'."\n".
                 '</script>';
         &cat_header($r,$codedom,$js,\%add_entries,$catlinks,$numtitles);          &cat_header($r,$codedom,$js,\%add_entries,$catlinks,$numtitles);
         my $cat_maxdepth = $env{'form.catalog_maxdepth'};          my $cat_maxdepth = $env{'form.catalog_maxdepth'};
         $r->print('<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'.          $r->print('<form name="'.$formname.'" method="post" action="/adm/coursecatalog">'.
Line 636  sub additional_filters { Line 649  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 815  sub print_course_listing { Line 828  sub print_course_listing {
                                                  $env{'form.coursenum'},                                                   $env{'form.coursenum'},
                                                  undef,undef,'.',1);                                                   undef,undef,'.',1);
         if (keys(%courses) == 0) {          if (keys(%courses) == 0) {
               $output = '<p class="LC_error">';
             if ($env{'form.currcat_0'} eq 'communities::0') {              if ($env{'form.currcat_0'} eq 'communities::0') {
                 $output .= &mt('The courseID provided does not match a community in this domain.');                  $output .= &mt('The courseID provided does not match a community in this domain.');
             } else {               } else { 
                 $output .= &mt('The courseID provided does not match a course in this domain.');                  $output .= &mt('The courseID provided does not match a course in this domain.');
             }              }
               $output .= '</p>';
             return $output;              return $output;
         }          }
     } else {      } else {
Line 829  sub print_course_listing { Line 844  sub print_course_listing {
             %courses = &search_courselist($domain,$subcats);              %courses = &search_courselist($domain,$subcats);
         }          }
         if (keys(%courses) == 0) {          if (keys(%courses) == 0) {
               $output = '<p class="LC_info">';
             if ($env{'form.currcat_0'} eq 'communities::0') {              if ($env{'form.currcat_0'} eq 'communities::0') {
                 $output =                  $output .= &mt('No communities match the criteria you selected.');
                     '<p class="LC_info">'  
                    .&mt('No communities match the criteria you selected.')  
                    .'</p>';  
             } else {              } else {
                 $output =                  $output .= &mt('No courses match the criteria you selected.');
                     '<p class="LC_info">'  
                    .&mt('No courses match the criteria you selected.')  
                    .'</p>';  
             }              }
               $output .= '</p>';
             return $output;              return $output;
         }          }
         if (($knownuser) && (!$env{'form.showdetails'}) && (!&user_is_dc($domain))) {          if (($knownuser) && (!$env{'form.showdetails'}) && (!&user_is_dc($domain))) {
Line 944  sub construct_data_table { Line 955  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.74  
changed lines
  Added in v.1.81

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