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

Diff for /loncom/interface/lonmodifycourse.pm between versions 1.56 and 1.57

version 1.56, 2010/07/08 23:19:19 version 1.57, 2010/08/24 13:51:52
Line 226  sub print_modification_menu { Line 226  sub print_modification_menu {
         $categorytitle = 'View/Modify Course Settings';          $categorytitle = 'View/Modify Course Settings';
         $setquota_text = &mt('Total disk space allocated for storage of portfolio files in all groups in a course.');          $setquota_text = &mt('Total disk space allocated for storage of portfolio files in all groups in a course.');
         $setparams_text = 'View/Modify course owner, institutional code, and default authentication';          $setparams_text = 'View/Modify course owner, institutional code, and default authentication';
         $cat_text = 'View/Modify catalog settings for course';           $cat_text = 'View/Modify catalog settings for course';
     }      }
       my $anon_text = 'Responder threshold required to display anonymous survey submissions';
   
     my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom);      my %domconf = &Apache::lonnet::get_dom('configuration',['coursecategories'],$dom);
     my @additional_params = &catalog_settable($domconf{'coursecategories'},$type);      my @additional_params = &catalog_settable($domconf{'coursecategories'},$type);
Line 256  sub print_modification_menu { Line 257  sub print_modification_menu {
                 linktitle => ''                  linktitle => ''
             },              },
             {              {
                   linktext => 'View/Modify responders threshold for anonymous survey submissions display',
                   url => &phaseurl('setanon'),
                   permission => 1,
                   #help => '',
                   icon => 'anonsurveythreshold.png',
                   linktitle => ''
               },
               {
                 linktext => $cat_text,                  linktext => $cat_text,
                 url => &phaseurl('catsettings'),                  url => &phaseurl('catsettings'),
                 permission => (@additional_params > 0),                  permission => (@additional_params > 0),
Line 292  sub print_modification_menu { Line 301  sub print_modification_menu {
         $menu_html .=  '<li>'.&mt('Course owner (permitted to assign Course Coordinator roles in the course).').'</li>'.          $menu_html .=  '<li>'.&mt('Course owner (permitted to assign Course Coordinator roles in the course).').'</li>'.
                        '<li>'.&mt("Institutional code and default authentication (both required for auto-enrollment of students from institutional datafeeds).").'</li>';                         '<li>'.&mt("Institutional code and default authentication (both required for auto-enrollment of students from institutional datafeeds).").'</li>';
     }      }
     $menu_html .= '<li>'.$setquota_text.'</li>'."\n";      $menu_html .= '<li>'.$setquota_text.'</li>'.
                     '<li>'.$anon_text.'</li>'."\n";
     foreach my $item (@additional_params) {      foreach my $item (@additional_params) {
         if ($type eq 'Community') {          if ($type eq 'Community') {
             if ($item eq 'togglecats') {              if ($item eq 'togglecats') {
Line 409  sub print_setquota { Line 419  sub print_setquota {
     my $hidden_elements = &hidden_form_elements();      my $hidden_elements = &hidden_form_elements();
     my $helpitem = &Apache::loncommon::help_open_topic('Modify_Course_Quota');      my $helpitem = &Apache::loncommon::help_open_topic('Modify_Course_Quota');
     $r->print(<<ENDDOCUMENT);      $r->print(<<ENDDOCUMENT);
 <form action="/adm/modifycourse" method="post" name="setquota">  <form action="/adm/modifycourse" method="post" name="setquota" onsubmit="return verify_quota();">
 <h3>$lt{'cquo'} <span class="LC_nobreak">$cdesc</span></h3>  <h3>$lt{'cquo'} <span class="LC_nobreak">$cdesc</span></h3>
 <p>  <p>
 $helpitem $lt{'gpqu'}: <input type="text" size="4" name="coursequota" value="$coursequota" /> Mb &nbsp;&nbsp;&nbsp;&nbsp;  $helpitem $lt{'gpqu'}: <input type="text" size="4" name="coursequota" value="$coursequota" /> Mb &nbsp;&nbsp;&nbsp;&nbsp;
 <input type="button" onClick="javascript:verify_quota(this.form)" value="$lt{'modi'}" />  <input type="submit" value="$lt{'modi'}" />
 </p>  </p>
 $hidden_elements  $hidden_elements
 <a href="javascript:changePage(document.setquota,'menu')">$lt{'back'}</a>  <a href="javascript:changePage(document.setquota,'menu')">$lt{'back'}</a>
Line 422  ENDDOCUMENT Line 432  ENDDOCUMENT
     return;      return;
 }  }
   
   sub print_set_anonsurvey_threshold {
       my ($r,$cdom,$cnum,$cdesc,$type) = @_;
       my %lt = &Apache::lonlocal::texthash(
                   'resp' => 'Responder threshold for anonymous survey submissions display:',
                   'sufa' => 'Anonymous survey submissions displayed when responders exceeds',
                   'modi' => 'Save',
                   'back' => 'Pick another action',
       );
       my %settings = &Apache::lonnet::get('environment',['internal.anonsurvey_threshold'],$cdom,$cnum);
       my $threshold = $settings{'internal.anonsurvey_threshold'};
       if ($threshold eq '') {
           my %domconfig = 
               &Apache::lonnet::get_dom('configuration',['coursedefaults'],$cdom);
           if (ref($domconfig{'coursedefaults'}) eq 'HASH') {
               $threshold = $domconfig{'coursedefaults'}{'anonsurvey_threshold'};
               if ($threshold eq '') {
                   $threshold = 10;
               }
           } else {
               $threshold = 10;
           }
       }
       &print_header($r,$type);
       my $hidden_elements = &hidden_form_elements();
       my $helpitem = &Apache::loncommon::help_open_topic('Modify_Anonsurvey_Threshold');
       $r->print(<<ENDDOCUMENT);
   <form action="/adm/modifycourse" method="post" name="setanon" onsubmit="return verify_anon_threshold();">
   <h3>$lt{'resp'} <span class="LC_nobreak">$cdesc</span></h3>
   <p>
   $helpitem $lt{'sufa'}: <input type="text" size="4" name="threshold" value="$threshold" /> &nbsp;&nbsp;&nbsp;&nbsp;
   <input type="submit" value="$lt{'modi'}" />
   </p>
   $hidden_elements
   <a href="javascript:changePage(document.setanon,'menu')">$lt{'back'}</a>
   </form>
   ENDDOCUMENT
       return;
   }
   
 sub print_catsettings {  sub print_catsettings {
     my ($r,$cdom,$cnum,$cdesc,$type) = @_;      my ($r,$cdom,$cnum,$cdesc,$type) = @_;
     &print_header($r,$type);      &print_header($r,$type);
Line 1067  sub modify_quota { Line 1116  sub modify_quota {
                 } 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: [_1] Mb.',$updatedsettings{'internal.coursequota'}));                          $r->print(&mt('The disk space allocated for group portfolio files is now: [_1] Mb.','<b>'.$updatedsettings{'internal.coursequota'}.'</b>'));
                         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 1101  sub modify_quota { Line 1150  sub modify_quota {
     return;      return;
 }  }
   
   sub modify_anonsurvey_threshold {
       my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_;
       &print_header($r,$type);
       $r->print('<form action="/adm/modifycourse" method="post" name="processthreshold">'."\n".
                 '<h3>'.&mt('Responder threshold required for display of anonymous survey submissions:').
                 ' <span class="LC_nobreak">'.$cdesc.'</span></h3><br />');
       my %oldsettings = &Apache::lonnet::get('environment',['internal.anonsurvey_threshold'],$cdom,$cnum);
       my %domconfig =
           &Apache::lonnet::get_dom('configuration',['coursedefaults'],$cdom);
       my $defaultthreshold; 
       if (ref($domconfig{'coursedefaults'}) eq 'HASH') {
           $defaultthreshold = $domconfig{'coursedefaults'}{'anonsurvey_threshold'};
           if ($defaultthreshold eq '') {
               $defaultthreshold = 10;
           }
       } else {
           $defaultthreshold = 10;
       }
       if ($env{'form.threshold'} eq '') {
           $r->print(&mt('The proposed responder threshold for display of anonymous survey submissions was blank, so the threshold is unchanged.'));
       } else {
           my $newthreshold = $env{'form.threshold'};
           if ($newthreshold =~ /^\s*(\d+)\s*$/) {
               $newthreshold = $1;
               if ($oldsettings{'internal.anonsurvey_threshold'} eq $env{'form.threshold'}) {
                   $r->print(&mt('Responder threshold for anonymous survey submissions display remains unchanged: [_1].',$env{'form.threshold'}));
               } else {
                   my %cenv = (
                              'internal.anonsurvey_threshold' => $env{'form.threshold'},
                              );
                   my $putreply = &Apache::lonnet::put('environment',\%cenv,$cdom,
                                                       $cnum);
                   if (($oldsettings{'internal.anonsurvey_threshold'} eq '') &&
                       ($env{'form.threshold'} == $defaultthreshold)) {
                       $r->print(&mt('The responder threshold for display of anonymous survey submissions is the default for this domain: [_1].',$defaultthreshold));
                   } else {
                       if ($putreply eq 'ok') {
                           my %updatedsettings = &Apache::lonnet::get('environment',['internal.anonsurvey_threshold'],$cdom,$cnum);
                           $r->print(&mt('The responder threshold for display of anonymous survey submissions is now: [_1].','<b>'.$updatedsettings{'internal.anonsurvey_threshold'}.'</b>'));
                       } else {
                           $r->print(&mt('An error occurred storing the responder threshold for anonymous submissions display: ').
                                     $putreply);
                       }
                   }
               }
           } else {
               $r->print(&mt('The proposed responder threshold for display of anonymous submissions contained invalid characters, so the threshold is unchanged.'));
           }
       }
       $r->print('<p>'.
                 '<a href="javascript:changePage(document.processthreshold,'."'menu'".')">'.
                 &mt('Pick another action').'</a>');
       $r->print(&hidden_form_elements().'</form>');
       return;
   }
   
 sub modify_catsettings {  sub modify_catsettings {
     my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_;      my ($r,$cdom,$cnum,$cdesc,$domdesc,$type) = @_;
     &print_header($r,$type);      &print_header($r,$type);
Line 1264  function gochoose(cname,cdom,cdesc) { Line 1369  function gochoose(cname,cdom,cdesc) {
 </script>  </script>
 |;  |;
     } elsif ($phase eq 'setquota') {      } elsif ($phase eq 'setquota') {
         $js .= <<'ENDSCRIPT';          my $invalid = &mt('The quota you entered contained invalid characters.');
           my $alert = &mt('You must enter a number');
           my $regexp = '/^\s*(\d+\.?\d*|\.\d+)\s*$/';
           $js .= <<"ENDSCRIPT";
 <script type="text/javascript">  <script type="text/javascript">
 function verify_quota(formname) {  function verify_quota() {
     var newquota = formname.coursequota.value;       var newquota = document.setquota.coursequota.value; 
     var num_reg = /^\s*(\d+\.?\d*|\.\d+)\s*$/;      var num_reg = $regexp;
     if (num_reg.test(newquota)) {      if (num_reg.test(newquota)) {
         changePage(formname,'processquota');          changePage(document.setquota,'processquota');
     } else {      } else {
         alert("The quota you entered contained invalid characters.\nYou must enter a number");          alert("$invalid\\n$alert");
           return false;
     }      }
     return;      return true;
   }
   </script>
   ENDSCRIPT
       } elsif ($phase eq 'setanon') {
           my $invalid = &mt('The responder threshold you entered is invalid.');
           my $alert = &mt('You must enter a positive integer.');
           my $regexp = ' /^\s*\d+\s*$/';
           $js .= <<"ENDSCRIPT";
   <script type="text/javascript">
   function verify_anon_threshold() {
       var newthreshold = document.setanon.threshold.value;
       var num_reg = $regexp;
       if (num_reg.test(newthreshold)) {
           if (newthreshold > 0) {
               changePage(document.setanon,'processthreshold');
           } else {
               alert("$invalid\\n$alert");
               return false;
           }
       } else {
           alert("$invalid\\n$alert");
           return false;
       }
       return true;
 }  }
 </script>  </script>
 ENDSCRIPT  ENDSCRIPT
Line 1371  sub hidden_form_elements { Line 1504  sub hidden_form_elements {
     my $hidden_elements =       my $hidden_elements = 
       &Apache::lonhtmlcommon::echo_form_input(['gosearch','updater','coursecode',        &Apache::lonhtmlcommon::echo_form_input(['gosearch','updater','coursecode',
           'prevphase','numlocalcc','courseowner','login','coursequota','intarg',            'prevphase','numlocalcc','courseowner','login','coursequota','intarg',
           'locarg','krbarg','krbver','counter','hidefromcat','usecategory'])."\n".            'locarg','krbarg','krbver','counter','hidefromcat','usecategory',
             'threshold'])."\n".
           '<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />';            '<input type="hidden" name="prevphase" value="'.$env{'form.phase'}.'" />';
     return $hidden_elements;      return $hidden_elements;
 }  }
Line 1459  sub handler { Line 1593  sub handler {
                             ({href=>"javascript:changePage(document.$phase,'$phase')",                              ({href=>"javascript:changePage(document.$phase,'$phase')",
                               text=>"Result"});                                text=>"Result"});
                             &modify_quota($r,$cdom,$cnum,$cdesc,$domdesc,$type);                              &modify_quota($r,$cdom,$cnum,$cdesc,$domdesc,$type);
                         } elsif ($phase eq 'viewparms') {                            } elsif ($phase eq 'setanon') {
                               &Apache::lonhtmlcommon::add_breadcrumb
                               ({href=>"javascript:changePage(document.$phase,'$phase')",
                                 text=>"Threshold for anonymous submissions display"});
                               &print_set_anonsurvey_threshold($r,$cdom,$cnum,$cdesc,$type);
   
                           } elsif ($phase eq 'processthreshold') {
                               &Apache::lonhtmlcommon::add_breadcrumb
                               ({href=>"javascript:changePage(document.$phase,'setanon')",
                                 text=>"Threshold for anonymous submissions display"});
                               &Apache::lonhtmlcommon::add_breadcrumb
                               ({href=>"javascript:changePage(document.$phase,'$phase')",
                                 text=>"Result"});
                               &modify_anonsurvey_threshold($r,$cdom,$cnum,$cdesc,$domdesc,$type);
                           } elsif ($phase eq 'viewparms') {
                             &Apache::lonhtmlcommon::add_breadcrumb                              &Apache::lonhtmlcommon::add_breadcrumb
                             ({href=>"javascript:changePage(document.$phase,'viewparms')",                              ({href=>"javascript:changePage(document.$phase,'viewparms')",
                               text=>"Display settings"});                                text=>"Display settings"});
Removed from v.1.56  
changed lines
  Added in v.1.57

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