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

Diff for /loncom/interface/lonparmset.pm between versions 1.435 and 1.436

version 1.435, 2009/02/24 18:20:49 version 1.436, 2009/03/01 01:12:20
Line 2268  sub crsenv { Line 2268  sub crsenv {
     my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};      my $crs = $env{'course.'.$env{'request.course.id'}.'.num'};
   
     my (%crsinfo,$chome);      my (%crsinfo,$chome);
       my $crstype = &Apache::loncommon::course_type();
   
     #      #
     # Go through list of changes      # Go through list of changes
Line 2278  sub crsenv { Line 2279  sub crsenv {
         if ($name eq 'newp') {          if ($name eq 'newp') {
             $name = $env{'form.newp_name'};              $name = $env{'form.newp_name'};
         }          }
           if ($name =~ /^rolenames_([^_]+)$/) {
               $name = $1.'.plaintext';
               my $standardtitle = 
                   &Apache::lonnet::plaintext($1,$crstype,$env{'request.course.id'},1);
               my %adv_roles =
                   &Apache::lonnet::get_course_adv_roles($env{'request.course.id'},1);
               if ($value ne '') {
                   foreach my $role (keys(%adv_roles)) {
                       if ($role =~ m{^cr/$match_domain/$match_name/\Q$value\E$}) {
                           $setoutput.= '<span class="LC_error">'.
                                        &mt('Requested replacement title for [_1] role is already used as the name of a custom role ([_2]).',$standardtitle,$value).
                                        '</span><br />';
                           undef($value);
                       }
                   }
               }
           }
         if ($name eq 'url') {          if ($name eq 'url') {
             $value=~s/^\/res\///;              $value=~s/^\/res\///;
             my $bkuptime=time;              my $bkuptime=time;
Line 2599  sub crsenv { Line 2617  sub crsenv {
                     &mt('Display Categories').'</a>',                      &mt('Display Categories').'</a>',
              'datelocale'                'datelocale' 
                  => '<b>'.&mt('Locale used for course calendar').'</b>',                   => '<b>'.&mt('Locale used for course calendar').'</b>',
                'rolenames'
                    => '<b>'.&mt('Replacement titles for standard course roles').'</b><br />'.
                       '('.&mt('To replace the standard title for a course role, enter the title you wish to use, otherwise leave blank.').')',
              );               );
         my @Display_Order = ('url','description','courseid','cloners');          my @Display_Order = ('url','description','courseid','cloners');
         (my $can_toggle_cat,$can_categorize) = &can_modify_catsettings($dom);          (my $can_toggle_cat,$can_categorize) = &can_modify_catsettings($dom);
Line 2623  sub crsenv { Line 2644  sub crsenv {
                              'languages',                               'languages',
                              'timezone',                               'timezone',
                              'datelocale',                               'datelocale',
                                'rolenames',
      'nothideprivileged',       'nothideprivileged',
                              'rndseed',                               'rndseed',
                              'receiptalg',                               'receiptalg',
Line 2646  sub crsenv { Line 2668  sub crsenv {
  foreach my $parameter (sort(keys(%values))) {   foreach my $parameter (sort(keys(%values))) {
             unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./) ||              unless (($parameter =~ m/^internal\./)||($parameter =~ m/^metadata\./) ||
                     ($parameter =~ m/^selfenroll_/) || ($parameter =~ /_selfenroll$/)                      ($parameter =~ m/^selfenroll_/) || ($parameter =~ /_selfenroll$/)
                     || ($parameter eq 'type')) {                      || ($parameter eq 'type') || 
                       ($parameter =~ m/^(cc|in|ta|ep|ad|st)\.plaintext$/)) {
                 if (! $descriptions{$parameter}) {                  if (! $descriptions{$parameter}) {
                     $descriptions{$parameter}=$parameter;                      $descriptions{$parameter}=$parameter;
                     push(@Display_Order,$parameter);                      push(@Display_Order,$parameter);
Line 2686  sub crsenv { Line 2709  sub crsenv {
                 $output .= '<td>'.                  $output .= '<td>'.
                     &Apache::loncommon::select_datelocale($parameter.'_value',                      &Apache::loncommon::select_datelocale($parameter.'_value',
                                                           $currdatelocale,                                                            $currdatelocale,
                                                           $onchange,$includeempty).'</td>';                                                             $onchange,$includeempty).'</td>';
               } elsif ($parameter eq 'rolenames') {
                   $output.= '<td><table>';
                   foreach my $role ('cc','in','ta','ep','ad','st') {
                       my $onchange = 'onFocus="javascript:window.document.forms'.
                                      "['envform'].elements['".
                                      $parameter.'_'.$role."_setparmval']".
                                      '.checked=true;"';
                       $output.= '<tr><td>'.&Apache::lonnet::plaintext($role,$crstype,undef,1).
                                 '</td><td>'.
                                 &Apache::lonhtmlcommon::textbox($parameter.'_'.$role.'_value',
                                                       $values{$role.'.plaintext'},
                                                       15,$onchange).
                                 '</td></tr>';
                   }
                   $output .= '</table></td><td><table>';
                   foreach my $role ('cc','in','ta','ep','ad','st') {
                       $output .= '<tr><td>'.&Apache::lonhtmlcommon::checkbox($parameter.'_'.$role.'_setparmval').
                                 '</td></tr>';
                   }
                   $output .= '</table></td>';
             } elsif ($parameter eq 'categories') {              } elsif ($parameter eq 'categories') {
                 my $catdisplay;                  my $catdisplay;
                 if ($values{'categories'} ne '') {                  if ($values{'categories'} ne '') {
Line 2708  sub crsenv { Line 2751  sub crsenv {
                                                     $values{$parameter},                                                      $values{$parameter},
                                                     40,$onchange).'</td>';                                                      40,$onchange).'</td>';
             }              }
             $output .= '<td>'.              unless ($parameter eq 'rolenames') {
                 &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').                  $output .= '<td>'.
                 '</td>';                             &Apache::lonhtmlcommon::checkbox($parameter.'_setparmval').
                              '</td>';
               }
             $output .= &Apache::loncommon::end_data_table_row()."\n";              $output .= &Apache::loncommon::end_data_table_row()."\n";
  }   }
         my $onchange = 'onFocus="javascript:window.document.forms'.          my $onchange = 'onFocus="javascript:window.document.forms'.
Removed from v.1.435  
changed lines
  Added in v.1.436

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