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

Diff for /loncom/interface/courseprefs.pm between versions 1.49.2.10 and 1.49.2.11

version 1.49.2.10, 2013/09/01 02:09:23 version 1.49.2.11, 2013/12/13 13:57:22
Line 357  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',
                                  'courseid','categories','hidefromcat',                                   'clonedfrom','courseid','categories','hidefromcat',
                                  'externalsyllabus','cloners','url','rolenames'],                                   'externalsyllabus','cloners','url','rolenames'],
                      itemtext => {                       itemtext => {
                                    'owner'            => $lt{'ownr'},                                     'owner'            => $lt{'ownr'},
Line 371  sub handler { Line 371  sub handler {
                                    '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 705  sub process_changes { Line 706  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 1852  sub print_courseinfo { Line 1854  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').')',
Line 2038  sub print_courseinfo { Line 2043  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 'co-owners') {          } elsif ($item eq 'co-owners') {
             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;
Line 3510  sub print_appearance { Line 3525  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  => ['jsMath','mimetex','tth'],                     order  => ['MathJax','jsMath','mimetex','tth'],
                    nullval => $mathdef,                     nullval => $mathdef,
                  },                   },
         'tthoptions' => {          'tthoptions' => {
Line 3752  sub get_other_items { Line 3768  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);
             }              }
         }          }
Removed from v.1.49.2.10  
changed lines
  Added in v.1.49.2.11

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