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

Diff for /loncom/interface/lonmodifycourse.pm between versions 1.66 and 1.68

version 1.66, 2014/01/15 18:47:56 version 1.68, 2014/03/11 00:57:23
Line 436  sub print_setquota { Line 436  sub print_setquota {
                            coursequota   => 20,                             coursequota   => 20,
                            uploadquota   => 500,                             uploadquota   => 500,
                          );                           );
     my %settings = &Apache::lonnet::get('environment',['internal.coursequota','internal.uploadquota','internal.instcode'],      my %settings = &Apache::lonnet::get('environment',['internal.coursequota','internal.uploadquota','internal.coursecode'],
                                         $cdom,$cnum);                                          $cdom,$cnum);
     my $coursequota = $settings{'internal.coursequota'};      my $coursequota = $settings{'internal.coursequota'};
     my $uploadquota = $settings{'internal.uploadquota'};      my $uploadquota = $settings{'internal.uploadquota'};
Line 447  sub print_setquota { Line 447  sub print_setquota {
         my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);          my %domdefs = &Apache::lonnet::get_domain_defaults($cdom);
         if ($type eq 'Community') {          if ($type eq 'Community') {
             $uploadquota = $domdefs{$lctype.'quota'};              $uploadquota = $domdefs{$lctype.'quota'};
         } elsif ($settings{'internal.instcode'}) {          } elsif ($settings{'internal.coursecode'}) {
             $uploadquota = $domdefs{'officialquota'};              $uploadquota = $domdefs{'officialquota'};
         } elsif ($settings{'internal.textbook'}) {          } elsif ($settings{'internal.textbook'}) {
             $uploadquota = $domdefs{'textbookquota'};              $uploadquota = $domdefs{'textbookquota'};
Line 1241  sub modify_quota { Line 1241  sub modify_quota {
                     }                      }
                     $r->print('<p>');                      $r->print('<p>');
                     if ($type eq 'Community') {                      if ($type eq 'Community') {
                         $r->print(&mt('Disk usage [_1] exceeds the quota for this community.',$newoverquota).' '.                          $r->print(&mt("Disk usage $newoverquota exceeds the quota for this community.").' '.
                                   &mt('Upload of new portfolio files and assignment of a non-zero MB quota to new groups in the community will not be possible until some files have been deleted, and total usage is below community quota.'));                                    &mt('Upload of new portfolio files and assignment of a non-zero MB quota to new groups in the community will not be possible until some files have been deleted, and total usage is below community quota.'));
                     } else {                      } else {
                         $r->print(&mt('Disk usage [_1] exceeds the quota for this course.',$newoverquota).' '.                          $r->print(&mt("Disk usage $newoverquota exceeds the quota for this course.").' '.
                                   &mt('Upload of new portfolio files and assignment of a non-zero MB quota to new groups in the course will not be possible until some files have been deleted, and total usage is below course quota.'));                                    &mt('Upload of new portfolio files and assignment of a non-zero MB quota to new groups in the course will not be possible until some files have been deleted, and total usage is below course quota.'));
                     }                      }
                     $r->print('</p>');                      $r->print('</p>');
Removed from v.1.66  
changed lines
  Added in v.1.68

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