[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.21 and 1.49.2.23

version 1.49.2.21, 2016/10/24 18:10:08 version 1.49.2.23, 2017/03/14 12:29:42
Line 1973  sub print_courseinfo { Line 1973  sub print_courseinfo {
     unless ((ref($settings) eq 'HASH') && (ref($ordered) eq 'ARRAY') && (ref($itemtext) eq 'HASH')) {      unless ((ref($settings) eq 'HASH') && (ref($ordered) eq 'ARRAY') && (ref($itemtext) eq 'HASH')) {
         return;          return;
     }      }
     my ($cathash,$categoriesform,$autocoowner,$clonedefaults);      my ($cathash,$categoriesform,$autocoowner,$clonedefaults,$disabled);
       if ($noedit) {
           $disabled = ' disabled="disabled"';
       }
     my %domconf =       my %domconf = 
         &Apache::lonnet::get_dom('configuration',          &Apache::lonnet::get_dom('configuration',
                                  ['coursecategories','autoenroll','coursedefaults'],$cdom);                                   ['coursecategories','autoenroll','coursedefaults'],$cdom);
Line 1982  sub print_courseinfo { Line 1985  sub print_courseinfo {
         if (ref($cathash) eq 'HASH') {          if (ref($cathash) eq 'HASH') {
             $categoriesform =               $categoriesform = 
                 &Apache::loncommon::assign_categories_table($cathash,                  &Apache::loncommon::assign_categories_table($cathash,
                                                 $settings->{'categories'},$crstype)."\n";                                                  $settings->{'categories'},$crstype,$disabled)."\n";
         }          }
     }      }
     if (ref($domconf{'autoenroll'}) eq 'HASH') {      if (ref($domconf{'autoenroll'}) eq 'HASH') {
Line 2049  sub print_courseinfo { Line 2052  sub print_courseinfo {
     } else {      } else {
         $replace = &mt('To replace the standard title for a course role, enter a title, otherwise leave blank');          $replace = &mt('To replace the standard title for a course role, enter a title, otherwise leave blank');
     }      }
       my ($editmap,$editsyllabus);
       unless ($noedit) {
           $editmap = (' 'x2).
                      '<a href="javascript:openbrowser'.
                      "('display','url','sequence')\">".
                      &mt('Select Map').'</a><br /><span class="LC_warning"> '.
                      &mt('Modification may make assessment data inaccessible!').
                      '</span>';
           $editsyllabus = &mt('[_1]Edit[_2]','<a href="/public/'.$cdom.'/'.$cnum.'/syllabus?forceedit=1">',
                               '</a>');
       }
     my %items = (      my %items = (
         'url' => {          'url' => {
                    text => '<b>'.&mt($itemtext->{'url'}).'</b>'.('&nbsp;'x2).                     text => '<b>'.&mt($itemtext->{'url'}).'</b>'.$editmap,
                            '<a href="javascript:openbrowser'.  
                            "('display','url','sequence')\">".  
                            &mt('Select Map').'</a><br /><span class="LC_warning"> '.  
                            &mt('Modification may make assessment data inaccessible!').  
                            '</span>',  
                    input => 'textbox',                     input => 'textbox',
                    size  => '55',                     size  => '55',
                    advanced => 1                     advanced => 1
Line 2101  sub print_courseinfo { Line 2110  sub print_courseinfo {
         'externalsyllabus' => {          'externalsyllabus' => {
                    text => '<b>'.&mt($itemtext->{'externalsyllabus'}).'</b><br />'.                     text => '<b>'.&mt($itemtext->{'externalsyllabus'}).'</b><br />'.
                            &mt('(Syllabus type in use)').('&nbsp;' x2).                             &mt('(Syllabus type in use)').('&nbsp;' x2).
                            &mt('[_1]Edit[_2]','<a href="/public/'.$cdom.'/'.$cnum.'/syllabus?forceedit=1">',                             $editsyllabus,
                                '</a>'),  
                         },                          },
         'hidefromcat' => {          'hidefromcat' => {
                    text => '<b>'.&mt($itemtext->{'hidefromcat'}).'</b><br />'.                     text => '<b>'.&mt($itemtext->{'hidefromcat'}).'</b><br />'.
Line 2124  sub print_courseinfo { Line 2132  sub print_courseinfo {
     );      );
     my $datatable;      my $datatable;
     my $count = 0;      my $count = 0;
     my $disabled;  
     if ($noedit) {  
         $disabled = ' disabled="disabled"';  
     }  
     foreach my $item (@{$ordered}) {      foreach my $item (@{$ordered}) {
         my $colspan;          my $colspan;
         if ($item eq 'hidefromcat') {          if ($item eq 'hidefromcat') {
Removed from v.1.49.2.21  
changed lines
  Added in v.1.49.2.23

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