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

Diff for /loncom/interface/lonmodifycourse.pm between versions 1.61 and 1.65

version 1.61, 2013/07/09 00:17:23 version 1.65, 2013/12/24 19:15:11
Line 449  sub print_setquota { Line 449  sub print_setquota {
             $uploadquota = $domdefs{$lctype.'quota'};              $uploadquota = $domdefs{$lctype.'quota'};
         } elsif ($settings{'internal.instcode'}) {          } elsif ($settings{'internal.instcode'}) {
             $uploadquota = $domdefs{'officialquota'};              $uploadquota = $domdefs{'officialquota'};
           } elsif ($settings{'internal.textbook'}) {
               $uploadquota = $domdefs{'textbookquota'};
         } else {          } else {
             $uploadquota = $domdefs{'unofficialquota'};              $uploadquota = $domdefs{'unofficialquota'};
         }          }
Line 881  sub modify_course { Line 883  sub modify_course {
         }          }
     }      }
     if (@changes > 0) {      if (@changes > 0) {
         $chgresponse = &mt("The following settings have been changed:<br/><ul>");          $chgresponse = &mt('The following settings have been changed:').'<br/><ul>';
     }      }
     if (@nochanges > 0) {      if (@nochanges > 0) {
         $nochgresponse = &mt("The following settings remain unchanged:<br/><ul>");          $nochgresponse = &mt('The following settings remain unchanged:').'<br/><ul>';
     }      }
     if (@changes > 0) {      if (@changes > 0) {
         my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom,$cnum);          my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom,$cnum);
Line 1252  sub modify_quota { Line 1254  sub modify_quota {
                               '<b>'.$updatedsettings{'internal.uploadquota'}.'</b>').'<br />');                                '<b>'.$updatedsettings{'internal.uploadquota'}.'</b>').'<br />');
             }              }
         } else {          } else {
             $r->print(&mt('An error occurred storing the quota(s) for group portfolio files and/or uploaded content.').              $r->print(&mt('An error occurred storing the quota(s) for group portfolio files and/or uploaded content: ').
                       $putreply);                        $putreply);
         }          }
     }      }
Line 1636  sub hidden_form_elements { Line 1638  sub hidden_form_elements {
 sub showcredits {  sub showcredits {
     my ($dom) = @_;      my ($dom) = @_;
     my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);      my %domdefaults = &Apache::lonnet::get_domain_defaults($dom);
     if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'}) {      if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'} || $domdefaults{'textbokcredits'}) {
         return 1;          return 1;
     }      }
 }  }
Removed from v.1.61  
changed lines
  Added in v.1.65

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