loncom/interface/lonpickcourse.pm - diff

Return to lonpickcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

-version 1.114, 2014/04/25 17:56:43
+version 1.115, 2014/05/30 01:50:05
  Line 105  sub handler {
      if ((($env{'form.form'} eq 'cu') || ($env{'form.form'} eq 'studentform')) &&
          ($env{'form.pickedcourse'})) {
-         $loaditem{'onload'} .= 'setDefaultCredits();setRoles();setSections();';
+         if ($type ne 'Community') {
+             my %coursedescription =
+                 &Apache::lonnet::coursedescription($env{'form.pickedcourse'},
+                                                    {'one_time' => '1'});
+             my $cdom = $coursedescription{'domain'};
+             my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
+             if (($domdefs{'officialcredits'} || $domdefs{'unofficialcredits'} || $domdefs{'textbookcredits'})) {
+                 $loaditem{'onload'} .= 'setDefaultCredits();';
+             }
+         }
+         $loaditem{'onload'} .= 'setRoles();setSections();';
      }
      if ((($env{'form.gosearch'}) && ($env{'form.updater'} eq '')) && (!$onlyown)) {
          $loaditem{'onload'} .=  'hideSearching(); ';