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

Diff for /loncom/interface/lonmodifycourse.pm between versions 1.38 and 1.43

version 1.38, 2008/06/30 01:28:56 version 1.43, 2009/03/08 21:49:33
Line 126  sub print_course_search_page { Line 126  sub print_course_search_page {
     my $dctitle = &Apache::lonnet::plaintext('dc');      my $dctitle = &Apache::lonnet::plaintext('dc');
     $r->print(      $r->print(
         '<h3>'.&mt('Search for a course in the [_1] domain',$domdesc).'</h3>'.          '<h3>'.&mt('Search for a course in the [_1] domain',$domdesc).'</h3>'.
         &mt('Actions available after selecting a course:').'<ul>'.            &mt('Actions available after searching for a course:').'<ul>'.  
         '<li>'.&mt('Enter the course with the role of [_1]',$cctitle).'</li>'."\n".          '<li>'.&mt('Enter the course with the role of [_1]',$cctitle).'</li>'."\n".
         '<li>'.&mt('View or modify course settings which only a [_1] may modify.'          '<li>'.&mt('View or modify course settings which only a [_1] may modify.'
                   ,$dctitle).'</li>'."\n".'</ul>');                    ,$dctitle).'</li>'."\n".'</ul>');
Line 173  sub print_modification_menu { Line 173  sub print_modification_menu {
     );      );
     my @menu =      my @menu =
         (          (
           { text  => 'Modify quota for group portfolio files',            { text  => 'Modify quota for group portfolio',
             phase => 'setquota',              phase => 'setquota',
             },              },
           { text  => 'Display current settings for automated enrollment',            { text  => 'Display current settings for automated enrollment',
Line 269  sub print_settings_display { Line 269  sub print_settings_display {
     $disp_table .= &Apache::loncommon::end_data_table()."\n";      $disp_table .= &Apache::loncommon::end_data_table()."\n";
     &print_header($r,$cdesc);      &print_header($r,$cdesc);
     $r->print('      $r->print('
 <h3>'.$lt{'caes'}.'</h3>  <h3>'.$lt{'caes'}.$cdesc.'</h3>
 <p>  <p>
 <form action="/adm/modifycourse" method="post" name="viewparms">  <form action="/adm/modifycourse" method="post" name="viewparms">
 '.$lt{'cose'}.'<ul><li>'.&mt('Settings that can be modified by a [_1] using the <a href="/adm/populate">Automated Enrollment Manager</a>.',$cctitle).'</li><li>'.&mt('Settings that may only be modified by a [_1] from this menu.',$dctitle).'</li></ul>  '.$lt{'cose'}.'<ul><li>'.&mt('Settings that can be modified by a [_1] using the <a href="/adm/populate">Automated Enrollment Manager</a>.',$cctitle).'</li><li>'.&mt('Settings that may only be modified by a [_1] from this menu.',$dctitle).'</li></ul>
Line 290  sub print_setquota { Line 290  sub print_setquota {
     my $cctitle = &Apache::lonnet::plaintext('cc',$type);      my $cctitle = &Apache::lonnet::plaintext('cc',$type);
     my $subdiv = &mt('Although a [_1] will assign the disk quota for each individual group, the size of the quota is constrained by the total disk space allocated by the [_2] for portfolio files in a course.',$cctitle,$dctitle);      my $subdiv = &mt('Although a [_1] will assign the disk quota for each individual group, the size of the quota is constrained by the total disk space allocated by the [_2] for portfolio files in a course.',$cctitle,$dctitle);
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
                 'cquo' => 'Disk space for storage of group portfolio files',                  'cquo' => 'Disk space for storage of group portfolio',
                 'gpqu' => 'Course portfolio files disk space',                  'gpqu' => 'Course portfolio files disk space',
                 'each' => 'Each course group can be assigned a quota for portfolio files uploaded to the group.',                  'each' => 'Each course group can be assigned a quota for portfolio files uploaded to the group.',
                 'modi' => 'Modify quota',                  'modi' => 'Save',
                 'back' => "Back to options page",                  'back' => "Back to options page",
     );      );
     my %settings = &Apache::lonnet::get('environment',['internal.coursequota'],$cdom,$cnum);      my %settings = &Apache::lonnet::get('environment',['internal.coursequota'],$cdom,$cnum);
Line 341  sub print_catsettings { Line 341  sub print_catsettings {
                 $excludeoff = '';                   $excludeoff = ''; 
             }              }
             $r->print('<h4>'.&mt('Visibility in Course Catalog').'</h4>'.              $r->print('<h4>'.&mt('Visibility in Course Catalog').'</h4>'.
                       &mt("Unless excluded, a course is listed in this domain's publicly accessible course catalog if at least of one the following applies").':<ul>'.                        &mt("Unless excluded, a course is listed in this domain's publicly accessible course catalog, if at least one of the following applies").':<ul>'.
                       '<li>'.&mt('Auto-cataloging is enabled and the course is assigned an institutional code').'</li>'.                        '<li>'.&mt('Auto-cataloging is enabled and the course is assigned an institutional code').'</li>'.
                       '<li>'.&mt('The course has been categorized into at least one of the course categories defined for the domain.').'</li></ul>'.                        '<li>'.&mt('The course has been categorized into at least one of the course categories defined for the domain.').'</li></ul>'.
                       '<br />'.&mt('Exclude from course catalog').'&nbsp;<label><input name="hidefromcat" type="radio" value="yes" '.$excludeon.' />'.&mt('Yes').'</label>&nbsp;&nbsp;&nbsp;<label><input name="hidefromcat" type="radio" value="" '.$excludeoff.' />'.&mt('No').'</label><br />');                         &mt('Exclude from course catalog').'&nbsp;<label><input name="hidefromcat" type="radio" value="yes" '.$excludeon.' />'.&mt('Yes').'</label>&nbsp;&nbsp;&nbsp;<label><input name="hidefromcat" type="radio" value="" '.$excludeoff.' />'.&mt('No').'</label><br />'); 
         }          }
         if (grep(/^categorize$/,@cat_params)) {          if (grep(/^categorize$/,@cat_params)) {
             $r->print('<h4>'.&mt('Categorize Course').'</h4>');              $r->print('<h4>'.&mt('Categorize Course').'</h4>');
Line 387  sub print_course_modification_page { Line 387  sub print_course_modification_page {
             'name' => "Name",              'name' => "Name",
             'unme' => "Username:Domain",              'unme' => "Username:Domain",
             'stus' => "Status",              'stus' => "Status",
             'cquo' => "Disk space for storage of group portfolio files",              'cquo' => "Disk space for storage of group portfolio",
             'gpqu' => "Course portfolio files disk space",              'gpqu' => "Course portfolio files disk space",
             'each' => "Each course group can be assigned a quota for portfolio files uploaded to the group.",              'each' => "Each course group can be assigned a quota for portfolio files uploaded to the group.",
             'cose' => "Course settings for LON-CAPA courses that control automated student enrollment based on classlist data available from your institution's student information system fall into two groups: (a) settings that can be modified by a Course Coordinator using the ",              'cose' => "Course settings for LON-CAPA courses that control automated student enrollment based on classlist data available from your institution's student information system fall into two groups: (a) settings that can be modified by a Course Coordinator using the ",
Line 783  sub modify_quota { Line 783  sub modify_quota {
                                         );                                          );
     $r->print('      $r->print('
 <form action="/adm/modifycourse" method="post" name="processquota">  <form action="/adm/modifycourse" method="post" name="processquota">
 <h3>'.&mt('Disk space for storage of group portfolio files for [_1]',$cdesc).  <h3>'.&mt('Disk space for storage of group portfolio for [_1]',$cdesc).
              '</h3>');               '</h3>');
     my %oldsettings = &Apache::lonnet::get('environment',['internal.coursequota'],$cdom,$cnum);      my %oldsettings = &Apache::lonnet::get('environment',['internal.coursequota'],$cdom,$cnum);
     my $defaultquota = 20;      my $defaultquota = 20;
Line 792  sub modify_quota { Line 792  sub modify_quota {
         if ($newquota =~ /^\s*(\d+\.?\d*|\.\d+)\s*$/) {          if ($newquota =~ /^\s*(\d+\.?\d*|\.\d+)\s*$/) {
             $newquota = $1;              $newquota = $1;
             if ($oldsettings{'internal.coursequota'} eq $env{'form.coursequota'}) {              if ($oldsettings{'internal.coursequota'} eq $env{'form.coursequota'}) {
                 $r->print(&mt('The disk space allocated for group portfolio files remains unchanged as ').$env{'form.coursequota'}.' Mb');                  $r->print(&mt('The disk space allocated for group portfolio remains unchanged as ').$env{'form.coursequota'}.' Mb');
             } else {              } else {
                 my %cenv = (                  my %cenv = (
                            'internal.coursequota' => $env{'form.coursequota'},                             'internal.coursequota' => $env{'form.coursequota'},
Line 801  sub modify_quota { Line 801  sub modify_quota {
                                                     $cnum);                                                      $cnum);
                 if (($oldsettings{'internal.coursequota'} eq '') &&                   if (($oldsettings{'internal.coursequota'} eq '') && 
                     ($env{'form.coursequota'} == $defaultquota)) {                      ($env{'form.coursequota'} == $defaultquota)) {
                     $r->print(&mt('The disk space allocated for group portfolio files in this course is the default quota for this domain:').' '.$defaultquota.' Mb');                      $r->print(&mt('The disk space allocated for group portfolio in this course is the default quota for this domain:').' '.$defaultquota.' Mb');
                 } else {                  } else {
                     if ($putreply eq 'ok') {                      if ($putreply eq 'ok') {
                         my %updatedsettings = &Apache::lonnet::get('environment',['internal.coursequota'],$cdom,$cnum);                          my %updatedsettings = &Apache::lonnet::get('environment',['internal.coursequota'],$cdom,$cnum);
                         $r->print(&mt('The disk space allocated for group portfolio files is now:').' '.$updatedsettings{'internal.coursequota'}.' Mb.');                          $r->print(&mt('The disk space allocated for group portfolio is now:').' '.$updatedsettings{'internal.coursequota'}.' Mb.');
                         my $usage = &Apache::longroup::sum_quotas($cdom.'_'.$cnum);                          my $usage = &Apache::longroup::sum_quotas($cdom.'_'.$cnum);
                         if ($usage >= $updatedsettings{'internal.coursequota'}) {                          if ($usage >= $updatedsettings{'internal.coursequota'}) {
                             my $newoverquota;                              my $newoverquota;
Line 1009  ENDSCRIPT Line 1009  ENDSCRIPT
      $js,$starthash));       $js,$starthash));
     my $bread_text = "View/Modify Courses";      my $bread_text = "View/Modify Courses";
     if ($cdesc ne '') {      if ($cdesc ne '') {
         $bread_text = "Course Settings: $cdesc";           $bread_text = &mt('Course Settings: [_1]',$cdesc);
     }           my $no_mt = 1;
     $r->print(&Apache::lonhtmlcommon::breadcrumbs($bread_text));          $r->print(&Apache::lonhtmlcommon::breadcrumbs($bread_text,undef,undef,
                                                         undef,undef,$no_mt));
       } else {
           $r->print(&Apache::lonhtmlcommon::breadcrumbs($bread_text));
       }
     return;      return;
 }  }
   
Removed from v.1.38  
changed lines
  Added in v.1.43

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