Diff for /loncom/interface/courseprefs.pm between versions 1.49.2.12 and 1.59

version 1.49.2.12, 2013/12/27 15:06:40 version 1.59, 2013/06/26 21:22:39
Line 272  sub handler { Line 272  sub handler {
                 edit => 'Edit Community Settings',                  edit => 'Edit Community Settings',
                 gens => 'General community settings',                  gens => 'General community settings',
                 idnu => 'Community ID or number',                  idnu => 'Community ID or number',
                 unco => 'Unique code',  
                 desc => 'Community Description',                  desc => 'Community Description',
                 ownr => 'Community Owner',                  ownr => 'Community Owner',
                 cown => 'Community Co-owners',                  cown => 'Community Co-owners',
Line 300  sub handler { Line 299  sub handler {
                 edit => 'Edit Course Settings',                  edit => 'Edit Course Settings',
                 gens => 'General course settings',                  gens => 'General course settings',
                 idnu => 'Course ID or number',                  idnu => 'Course ID or number',
                 unco => 'Unique code',  
                 desc => 'Course Description',                  desc => 'Course Description',
                 cred => 'Student credits',                  cred => 'Student credits', 
                 ownr => 'Course Owner',                  ownr => 'Course Owner',
                 cown => 'Course Co-owners',                  cown => 'Course Co-owners',
                 catg => 'Categorize course',                  catg => 'Categorize course',
Line 359  sub handler { Line 357  sub handler {
                    { text => $lt{'gens'},                     { text => $lt{'gens'},
                      help => 'Course_Prefs_General',                       help => 'Course_Prefs_General',
                      ordered => ['owner','co-owners','loncaparev','description',                       ordered => ['owner','co-owners','loncaparev','description',
                                  'clonedfrom','courseid','uniquecode','categories',                                   'courseid','categories','hidefromcat',
                                  'hidefromcat','externalsyllabus','cloners','url',                                   'externalsyllabus','cloners','url','rolenames'],
                                  'rolenames'],  
                      itemtext => {                       itemtext => {
                                    'owner'            => $lt{'ownr'},                                     'owner'            => $lt{'ownr'},
                                    'co-owners'        => $lt{'cown'},                                     'co-owners'        => $lt{'cown'},
                                    'description'      => $lt{'desc'},                                     'description'      => $lt{'desc'},
                                    'courseid'         => $lt{'idnu'},                                     'courseid'         => $lt{'idnu'},
                                    'uniquecode'       => $lt{'unco'},   
                                    'categories'       => $lt{'catg'},                                     'categories'       => $lt{'catg'},
                                    'hidefromcat'      => $lt{'excc'},                                     'hidefromcat'      => $lt{'excc'},
                                    'cloners'          => $lt{'clon'},                                      'cloners'          => $lt{'clon'}, 
                                    'externalsyllabus' => 'Syllabus status',                                     'externalsyllabus' => 'URL of Syllabus',
                                    'url'              => 'Top Level Map',                                     'url'              => 'Top Level Map',
                                    'rolenames'        => $lt{'rept'},                                     'rolenames'        => $lt{'rept'},
                                    'loncaparev'       => $lt{'lcrv'},                                     'loncaparev'       => $lt{'lcrv'},
                                    'clonedfrom'       => 'Cloned from',  
                                  },                                   },
                     },                      },
         'localization' =>          'localization' =>
Line 476  sub handler { Line 471  sub handler {
                     help => 'Course_Prefs_Printouts',                      help => 'Course_Prefs_Printouts',
                     ordered => ['problem_stream_switch','suppress_tries',                      ordered => ['problem_stream_switch','suppress_tries',
                                 'default_paper_size','print_header_format',                                  'default_paper_size','print_header_format',
                                 'disableexampointprint'],                                  'disableexampointprint','canuse_pdfforms'],
                     itemtext => {                      itemtext => {
                         problem_stream_switch => 'Allow problems to be split over pages',                          problem_stream_switch => 'Allow problems to be split over pages',
                         suppress_tries        => 'Suppress number of tries in printing',                          suppress_tries        => 'Suppress number of tries in printing',
Line 710  sub process_changes { Line 705  sub process_changes {
                         next if (($entry eq 'categories') &&                          next if (($entry eq 'categories') &&
                                  (!$can_categorize));                                   (!$can_categorize));
                         next if (($entry eq 'loncaparev') ||                           next if (($entry eq 'loncaparev') || 
                                 ($entry eq 'owner') ||                                  ($entry eq 'owner'));
                                 ($entry eq 'clonedfrom'));  
                         push(@ordered,$entry);                          push(@ordered,$entry);
                     }                      }
                 } elsif ($action eq 'classlists') {                  } elsif ($action eq 'classlists') {
Line 1033  sub process_changes { Line 1027  sub process_changes {
                             my ($classorder,$classtitles) = &discussion_vote_classes();                              my ($classorder,$classtitles) = &discussion_vote_classes();
                             my $fontchange = 0;                              my $fontchange = 0;
                             foreach my $class (@{$classorder}) {                              foreach my $class (@{$classorder}) {
                                 my $ext_entry = $entry.'_'.$class;                                  my $ext_entry = $entry.'_'.$class; 
                                 my $size = $env{'form.'.$ext_entry.'_size'};                                  my $size = $env{'form.'.$ext_entry.'_size'};
                                 my $unit = $env{'form.'.$ext_entry.'_unit'};                                  my $unit = $env{'form.'.$ext_entry.'_unit'};
                                 my $weight = $env{'form.'.$ext_entry.'_weight'};                                  my $weight = $env{'form.'.$ext_entry.'_weight'};
                                 my $style = $env{'form.'.$ext_entry.'_style'};                                  my $style = $env{'form.'.$ext_entry.'_style'};
                                 my $other = $env{'form.'.$ext_entry.'_other'};                                  my $other = $env{'form.'.$ext_entry.'_other'};
                                 $size =~ s/,//g;                                  $size =~ s/,//g;
                                 $unit =~ s/,//g;                                  $unit =~ s/,//g; 
                                 $weight =~ s/,//g;                                  $weight =~ s/,//g;
                                 $style =~ s/,//g;                                  $style =~ s/,//g;
                                 $other =~ s/[^\w;:\s\-\%.]//g;                                  $other =~ s/[^\w;:\s\-\%.]//g;
Line 1048  sub process_changes { Line 1042  sub process_changes {
                                 $newvalues{$ext_entry} = join(',',($size.$unit,$weight,$style,$other));                                  $newvalues{$ext_entry} = join(',',($size.$unit,$weight,$style,$other));
                                 my $current = $values->{$ext_entry};                                  my $current = $values->{$ext_entry};
                                 if ($values->{$ext_entry} eq '') {                                  if ($values->{$ext_entry} eq '') {
                                     $current = ',,,';                                      $current = ',,,'; 
                                 }                                  }
                                 if ($newvalues{$ext_entry} ne $current) {                                  if ($newvalues{$ext_entry} ne $current) {
                                     $changes->{$ext_entry} = $newvalues{$ext_entry};                                      $changes->{$ext_entry} = $newvalues{$ext_entry};
Line 1057  sub process_changes { Line 1051  sub process_changes {
                             }                              }
                             if ($fontchange) {                              if ($fontchange) {
                                 $changes->{$entry} = 1;                                  $changes->{$entry} = 1;
                             }                              } 
                         } elsif ($entry eq 'nothideprivileged') {                          } elsif ($entry eq 'nothideprivileged') {
                             my @curr_nothide;                              my @curr_nothide;
                             my @new_nothide;                              my @new_nothide;
Line 1132  sub process_changes { Line 1126  sub process_changes {
                             my $newtext = $maxnum-1;                              my $newtext = $maxnum-1;
                             $newhdr[$env{'form.printfmthdr_pos_'.$newtext}] = $env{'form.printfmthdr_text_'.$newtext};                              $newhdr[$env{'form.printfmthdr_pos_'.$newtext}] = $env{'form.printfmthdr_text_'.$newtext};
                             $newvalues{$entry} = join('',@newhdr);                              $newvalues{$entry} = join('',@newhdr);
                         } elsif (($entry eq 'languages') ||                          } elsif (($entry eq 'languages') || 
                                  ($entry eq 'checkforpriv')) {                                   ($entry eq 'checkforpriv')) {
                             my $settings;                              my $settings;
                             my $total = $env{'form.'.$entry.'_total'};                              my $total = $env{'form.'.$entry.'_total'};
Line 1148  sub process_changes { Line 1142  sub process_changes {
                             }                              }
                             if ($env{'form.'.$entry.'_'.$total} ne '') {                              if ($env{'form.'.$entry.'_'.$total} ne '') {
                                 my $new = $env{'form.'.$entry.'_'.$total};                                  my $new = $env{'form.'.$entry.'_'.$total};
                                 if ($entry eq 'languages') {                                  if ($entry eq 'languages') { 
                                     my %langchoices = &get_lang_choices();                                      my %langchoices = &get_lang_choices();
                                     if ($langchoices{$new}) {                                      if ($langchoices{$new}) {
                                         $settings .= $new;                                          $settings .= $new;
Line 1700  function loncaparevinfo() { Line 1694  function loncaparevinfo() {
 }  }
 ENDSCRIPT  ENDSCRIPT
     }      }
     my $cnum = $env{'course.'.$cid.'.num'};  
     my $syllabus_js = <<ENDSCRIPT;  
 function syllabusinfo() {  
     var syllwin = null;  
     var url = '/public/$cdom/$cnum/syllabus?only_body=1';  
     if (!syllwin || syllwin.closed) {  
         syllwin=window.open(url,'syllabuswin','height=480,width=600,resizable=yes,scrollbars=yes,location=no,menubar=no,toolbar=no');  
     } else {  
         syllwin.focus();  
     }  
 }  
 ENDSCRIPT  
     $jscript = '<script type="text/javascript" language="Javascript">'."\n".      $jscript = '<script type="text/javascript" language="Javascript">'."\n".
                '// <![CDATA['."\n".                 '// <![CDATA['."\n".  
                $browse_js."\n".$categorize_js."\n".$loncaparev_js."\n".                 $browse_js."\n".$categorize_js."\n".$loncaparev_js."\n".
                $cloners_js."\n".                 $cloners_js."\n".'// ]]>'."\n".
                $syllabus_js."\n".'//]]>'."\n".  
                '</script>'."\n".$stubrowse_js."\n";                 '</script>'."\n".$stubrowse_js."\n";
     return $jscript;      return $jscript;
 }  }
Line 1827  sub print_courseinfo { Line 1808  sub print_courseinfo {
     }      }
   
     my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom,$crstype);      my ($can_toggle_cat,$can_categorize) = &can_modify_catsettings($cdom,$crstype);
     my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};  
   
     my $replace;      my $replace;
     if ($crstype eq 'Community') {      if ($crstype eq 'Community') {
Line 1858  sub print_courseinfo { Line 1838  sub print_courseinfo {
         'co-owners'    => {          'co-owners'    => {
                    text => '<b>'.&mt($itemtext->{'co-owners'}).'</b>',                     text => '<b>'.&mt($itemtext->{'co-owners'}).'</b>',
                           },                            },
         'clonedfrom'   => {  
                    text => '<b>'.&mt($itemtext->{'clonedfrom'}).'</b>',  
                           },  
         'courseid'     => {           'courseid'     => { 
                    text => '<b>'.&mt($itemtext->{'courseid'}).'</b><br />'.'('.                     text => '<b>'.&mt($itemtext->{'courseid'}).'</b><br />'.'('.
                            &mt('internal, optional').')',                             &mt('internal, optional').')',
                    input => 'textbox',                     input => 'textbox',
                    size  => '25',                     size  => '25',
                           },                            },
         'uniquecode'   => {  
                    text => '<b>'.&mt($itemtext->{'uniquecode'}).'</b>',  
                           },  
         'cloners'      => {           'cloners'      => { 
                    text => '<b>'.&mt($itemtext->{'cloners'}).'</b><br />'.                     text => '<b>'.&mt($itemtext->{'cloners'}).'</b><br />'.
                            &mt('Owner and Coordinators included automatically'),                             &mt('Owner and Coordinators included automatically'),
Line 1884  sub print_courseinfo { Line 1858  sub print_courseinfo {
                    advanced => 1                     advanced => 1
                         },                          },
         'externalsyllabus' => {          'externalsyllabus' => {
                    text => '<b>'.&mt($itemtext->{'externalsyllabus'}).'</b><br />'.                     text => '<b>'.&mt($itemtext->{'externalsyllabus'}).'</b><br />('.
                            &mt('(Syllabus type in use)').('&nbsp;' x2).                             &mt('not using syllabus template)'),
                            &mt('[_1]Edit[_2]','<a href="/public/'.$cdom.'/'.$cnum.'/syllabus?forceedit=1">',                     input => 'textbox',
                                '</a>'),                     size  => '40',
                         },                          },
         'hidefromcat' => {          'hidefromcat' => {
                    text => '<b>'.&mt($itemtext->{'hidefromcat'}).'</b><br />'.                     text => '<b>'.&mt($itemtext->{'hidefromcat'}).'</b><br />'.
Line 1915  sub print_courseinfo { Line 1889  sub print_courseinfo {
             next if (!$can_toggle_cat);              next if (!$can_toggle_cat);
         } elsif ($item eq 'categories') {          } elsif ($item eq 'categories') {
             next if (!$can_categorize);              next if (!$can_categorize);
         } elsif ($item eq 'uniquecode') {  
             next if (!$env{'course.'.$env{'request.course.id'}.'.internal.uniquecode'});  
         }          }
         unless (($item eq 'cloners') || ($item eq 'rolenames')) {          unless (($item eq 'cloners') || ($item eq 'rolenames')) {
             $colspan = 2;              $colspan = 2; 
         }          }
         $count ++;          $count ++;
         if (exists $items{$item}{advanced} && $items{$item}{advanced} == 1) {          if (exists $items{$item}{advanced} && $items{$item}{advanced} == 1) {
Line 2052  sub print_courseinfo { Line 2024  sub print_courseinfo {
                 $owner = &mt('None specified');                  $owner = &mt('None specified');
             }              }
             $datatable .= $owner;              $datatable .= $owner;
         } elsif ($item eq 'clonedfrom') {  
             my $clonesrc = $env{'course.'.$env{'request.course.id'}.'.clonedfrom'};  
             my $clonedfrom = &mt('None');  
             if ($clonesrc =~ m{/$match_domain/$match_courseid}) {  
                 my %clonesrcinfo = &Apache::lonnet::coursedescription($cdom.'/'.$cnum);  
                 if ($clonesrcinfo{'description'}) {  
                     $clonedfrom = $clonesrcinfo{'description'}.' '.($clonesrc);  
                 }  
             }  
             $datatable .= $clonedfrom;  
         } elsif ($item eq 'uniquecode') {  
             my $code = $env{'course.'.$env{'request.course.id'}.'.internal.uniquecode'};  
             if ($code) {  
                 $datatable .= $code;  
             }  
         } elsif ($item eq 'co-owners') {          } elsif ($item eq 'co-owners') {
               my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
             my $coowners = $env{'course.'.$env{'request.course.id'}.'.internal.co-owners'};              my $coowners = $env{'course.'.$env{'request.course.id'}.'.internal.co-owners'};
             my @currcoown;              my @currcoown;
             if ($coowners) {              if ($coowners) {
Line 2086  sub print_courseinfo { Line 2044  sub print_courseinfo {
                     $datatable .= &manage_coownership($cnum,$cdom,@currcoown);                      $datatable .= &manage_coownership($cnum,$cdom,@currcoown);
                 }                  }
             }              }
         } elsif ($item eq 'externalsyllabus') {  
             my $external = $env{'course.'.$env{'request.course.id'}.'.externalsyllabus'};  
             my $uploaded = $env{'course.'.$env{'request.course.id'}.'.uploadedsyllabus'};  
             my $minimal =  $env{'course.'.$env{'request.course.id'}.'.minimalsyllabus'};  
             if (($minimal =~/\w/) || ($uploaded =~/\w/)) {  
                 if ($minimal =~/\w/) {  
                     if ($external =~ m{\Q$minimal\E$}) {  
                         undef($external);  
                     }  
                 } elsif ($uploaded =~/\w/) {  
                     if ($external =~ m{\Q$uploaded\E$}) {  
                         undef($external);  
                     }  
                 }  
             } elsif ($external!~/\w/) {  
                 undef($external);  
             }  
             if ($external) {  
                 $datatable .= &mt('External URL');  
             } elsif ($minimal) {  
                 $datatable .= &mt('Minimal template');  
             } elsif ($uploaded) {  
                 $datatable .= &mt('Uploaded file');  
             } else {  
                 $datatable .= &mt('Standard template');  
             }  
             $datatable .= ('&nbsp;' x 2).  
                           &mt('[_1]View[_2]',  
                               '<a href="javascript:syllabusinfo();">',  
                               '</a>');  
         } elsif ($item eq 'loncaparev') {          } elsif ($item eq 'loncaparev') {
             my $loncaparev = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};              my $loncaparev = $env{'course.'.$env{'request.course.id'}.'.internal.releaserequired'};
             my $showreqd;              my $showreqd;
Line 2887  sub print_localization { Line 2815  sub print_localization {
         $count ++;          $count ++;
         my $colspan;          my $colspan;
         unless ($item eq 'languages') {          unless ($item eq 'languages') {
             $colspan = 2;              $colspan = 2; 
         }          }
         $datatable .= &item_table_row_start($items{$item}{text},$count,undef,$colspan);          $datatable .= &item_table_row_start($items{$item}{text},$count,undef,$colspan);
         if ($item eq 'timezone') {          if ($item eq 'timezone') {
Line 3007  sub print_feedback { Line 2935  sub print_feedback {
         }          }
         if ($position eq 'top') {          if ($position eq 'top') {
             my $includeempty = 0;              my $includeempty = 0;
             $datatable .= '</td><td align="right">'.              $datatable .=  '</td><td align="right">'.
                           &user_table($cdom,$item,\@sections,                             &user_table($cdom,$item,\@sections,
                                       $settings->{$item},\%lt);                                        $settings->{$item},\%lt);
         } else {          } else {
             $datatable .= &Apache::lonhtmlcommon::textbox($item.'.text',              $datatable .= &Apache::lonhtmlcommon::textbox($item.'.text',
Line 3197  sub print_discussion { Line 3125  sub print_discussion {
         my $colspan;          my $colspan;
         if ($item eq 'allow_limited_html_in_feedback') {          if ($item eq 'allow_limited_html_in_feedback') {
             $colspan = 2;              $colspan = 2;
         }          } 
         $datatable .= &item_table_row_start($items{$item}{text},$count,undef,$colspan);          $datatable .= &item_table_row_start($items{$item}{text},$count,undef,$colspan);
         if ($item eq 'plc.roles.denied') {          if ($item eq 'plc.roles.denied') {
             $datatable .= '</td><td align="right">'.              $datatable .= '</td><td align="right">'.
                           '<table>'.&role_checkboxes($cdom,$cnum,$item,$settings).                            '<table>'.&role_checkboxes($cdom,$cnum,$item,$settings).
                           '</table>';                            '</table>';
         } elsif ($item eq 'plc.users.denied') {          } elsif ($item eq 'plc.users.denied') {
             $datatable .= '</td><td align="right">'.              $datatable .=  '</td><td align="right">'.
                           &user_table($cdom,$item,undef,                             &user_table($cdom,$item,undef,
                                       $settings->{$item},\%lt);                                        $settings->{$item},\%lt);
         } elsif ($item eq 'pch.roles.denied') {          } elsif ($item eq 'pch.roles.denied') {
             $datatable .= '</td><td align="right">'.              $datatable .= '</td><td align="right">'.
Line 3234  sub print_discussion { Line 3162  sub print_discussion {
                           '<th align="center">'.&mt('font-size').'</th>'.                            '<th align="center">'.&mt('font-size').'</th>'.
                           '<th align="center">'.&mt('font-weight').'</th>'.                            '<th align="center">'.&mt('font-weight').'</th>'.
                           '<th align="center">'.&mt('font-style').'</th>'.                            '<th align="center">'.&mt('font-style').'</th>'.
                           '<th align="center">'.&mt('Other css').'</th>'.                            '<th align="center">'.&mt('Other css').'</th>'. 
                           &Apache::loncommon::end_data_table_row().                            &Apache::loncommon::end_data_table_row().
                           &set_discussion_fonts($cdom,$cnum,$item,$settings).                            &set_discussion_fonts($cdom,$cnum,$item,$settings).
                           &Apache::loncommon::end_data_table().'<br />';                            &Apache::loncommon::end_data_table().'<br />';
Line 3406  sub set_discussion_fonts { Line 3334  sub set_discussion_fonts {
   
 sub discussion_vote_classes {  sub discussion_vote_classes {
     my $classorder = ['twoplus','oneplus','zero','oneminus','twominus'];      my $classorder = ['twoplus','oneplus','zero','oneminus','twominus'];
     my %classtitles = &Apache::lonlocal::texthash(      my %classtitles = &Apache::lonlocal::texthash( 
                         'twoplus'  => 'Two sigma above mean',                          'twoplus'  => 'Two sigma above mean',
                         'oneplus'  => 'One sigma above mean',                          'oneplus'  => 'One sigma above mean',
                         'zero'     => 'Within one sigma of mean',                          'zero'     => 'Within one sigma of mean',
Line 3472  sub print_classlists { Line 3400  sub print_classlists {
         'defaultcredits' => {          'defaultcredits' => {
                    text => '<b>'.&mt($itemtext->{'defaultcredits'}).'</b>',                     text => '<b>'.&mt($itemtext->{'defaultcredits'}).'</b>',
                  },                   },
                 
         'nothideprivileged'   => {          'nothideprivileged'   => {
                    text => '<b>'.&mt($itemtext->{'nothideprivileged'}).'</b>',                     text => '<b>'.&mt($itemtext->{'nothideprivileged'}).'</b>',
                    input => 'checkbox',                     input => 'checkbox',
Line 3539  sub print_appearance { Line 3467  sub print_appearance {
                    text => '<b>'.&mt($itemtext->{'texengine'}).'</b>',                     text => '<b>'.&mt($itemtext->{'texengine'}).'</b>',
                    input => 'selectbox',                     input => 'selectbox',
                    options => {                     options => {
                                 MathJax  => 'MathJax',  
                                 jsMath   => 'jsMath',                                  jsMath   => 'jsMath',
                                 mimetex => &mt('Convert to Images'),                                  mimetex => &mt('Convert to Images'),
                                 tth      => &mt('TeX to HTML'),                                  tth      => &mt('TeX to HTML'),
                               },                                },
                    order  => ['MathJax','jsMath','mimetex','tth'],                     order  => ['jsMath','mimetex','tth'],
                    nullval => $mathdef,                     nullval => $mathdef,
                  },                   },
         'tthoptions' => {          'tthoptions' => {
Line 3568  sub print_grading { Line 3495  sub print_grading {
                    input => 'selectbox',                     input => 'selectbox',
                    options => {                     options => {
                                 standard => &mt('Standard: shows points'),                                  standard => &mt('Standard: shows points'),
                                   categories => &mt('Categories: shows points according to categories'),
                                 external => &mt('External: shows number of completed parts and totals'),                                  external => &mt('External: shows number of completed parts and totals'),
                                 externalnototals => &mt('External: shows only number of completed parts'),                                  externalnototals => &mt('External: shows only number of completed parts'),
                                 spreadsheet => &mt('Spreadsheet: (with link to detailed scores)'),                                   spreadsheet => &mt('Spreadsheet: (with link to detailed scores)'), 
                               },                                },
                    order => ['standard','external','externalnototals','spreadsheet'],                     order => ['standard','categories','external','externalnototals','spreadsheet'],
                  },                   },
         'rndseed' => {          'rndseed' => {
                    text => '<b>'.&mt($itemtext->{'rndseed'}).'</b>'.                     text => '<b>'.&mt($itemtext->{'rndseed'}).'</b>'.
Line 3782  sub get_other_items { Line 3710  sub get_other_items {
                     ($parameter =~ m/^selfenroll_/) || ($parameter =~ /_selfenroll$/)                      ($parameter =~ m/^selfenroll_/) || ($parameter =~ /_selfenroll$/)
                     || ($parameter eq 'type') ||                      || ($parameter eq 'type') ||
                     ($parameter =~ m/^(cc|co|in|ta|ep|ad|st)\.plaintext$/)                      ($parameter =~ m/^(cc|co|in|ta|ep|ad|st)\.plaintext$/)
                     || ($parameter =~ m/^discussion_post_fonts/) ||                      || ($parameter =~ m/^discussion_post_fonts/)) {
                     ($parameter =~ m{^(minimal|updated|uploaded|external)syllabus$}) ||  
                     ($parameter eq 'clonedfrom')) {  
                 push(@ordered,$parameter);                  push(@ordered,$parameter);
             }              }
         }          }
Line 3947  sub nothidepriv_row { Line 3873  sub nothidepriv_row {
             }              }
         }          }
         if ($settings->{'checkforpriv'}) {          if ($settings->{'checkforpriv'}) {
             @checkdoms = split(/,/,$settings->{'checkforpriv'});              @checkdoms = split(/,/,$settings->{'checkforpriv'}); 
         }          }
     }      }
     push(@checkdoms,$cdom);      push(@checkdoms,$cdom);
Line 3961  sub nothidepriv_row { Line 3887  sub nothidepriv_row {
         if ($end == -1 || $start == -1) {          if ($end == -1 || $start == -1) {
             next;              next;
         }          }
         foreach my $dom (@checkdoms) {          foreach my $dom (@checkdoms) { 
             if (&Apache::lonnet::privileged($uname,$udom,\@checkdoms,['dc','su'])) {              if (&Apache::lonnet::privileged($uname,$udom,\@checkdoms,['dc','su'])) {
                 unless (grep(/^\Q$user\E$/,@privusers)) {                  unless (grep(/^\Q$user\E$/,@privusers)) {
                     push(@privusers,$user);                      push(@privusers,$user);
Line 4027  sub checkforpriv_row { Line 3953  sub checkforpriv_row {
                 my $domdesc = &Apache::lonnet::domain($currdom,'description');                  my $domdesc = &Apache::lonnet::domain($currdom,'description');
                 if ($domdesc eq '') {                  if ($domdesc eq '') {
                     $domdesc = $currdom;                      $domdesc = $currdom;
                 }                  } 
                 $datatable .=                  $datatable .=
                     &Apache::loncommon::start_data_table_row().                      &Apache::loncommon::start_data_table_row().
                     '<td align="left"><span class="LC_nobreak">'.                      '<td align="left"><span class="LC_nobreak">'.
Line 4039  sub checkforpriv_row { Line 3965  sub checkforpriv_row {
                     &mt('Delete').'</label></span></td>'.                      &mt('Delete').'</label></span></td>'.
                     &Apache::loncommon::end_data_table_row();                      &Apache::loncommon::end_data_table_row();
                 $num ++;                  $num ++;
                 unless (grep(/^\Q$currdom\E$/,@excdoms)) {                  unless (grep(/^\Q$currdom\E$/,@excdoms)) { 
                     push(@excdoms,$currdom);                      push(@excdoms,$currdom);
                 }                  }
             }              }
         }          }
         if ((scalar(keys(%domains)) - scalar(@excdoms)) > 0) {          if ((scalar(keys(%domains)) - scalar(@excdoms)) > 0) {
             $datatable .=              $datatable .= 
                 &Apache::loncommon::start_data_table_row().                  &Apache::loncommon::start_data_table_row().
                 '<td align="left"><span class="LC_nobreak">'.                  '<td align="left"><span class="LC_nobreak">'.
                 &mt('Additional domain:'). '</span><br />'.                  &mt('Additional domain:'). '</span><br />'.

Removed from v.1.49.2.12  
changed lines
  Added in v.1.59


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