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

Diff for /loncom/interface/courseprefs.pm between versions 1.80 and 1.84

version 1.80, 2016/10/11 22:58:55 version 1.84, 2017/02/07 15:44:23
Line 1978  sub print_courseinfo { Line 1978  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 1987  sub print_courseinfo { Line 1990  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 2054  sub print_courseinfo { Line 2057  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 2106  sub print_courseinfo { Line 2115  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 2129  sub print_courseinfo { Line 2137  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') {
Line 3953  sub set_discussion_fonts { Line 3957  sub set_discussion_fonts {
                             ($currsize,$currunit) = ($1,$2);                              ($currsize,$currunit) = ($1,$2);
                             $curr{'size'} = $currunit;                              $curr{'size'} = $currunit;
                         }                          }
                         $output .= '<input type="textbox" name="discussion_post_fonts_'.$cat.'_'.$item.'" value="'.$currsize.'" size="5"'.$disabled.'>'.                          $output .= '<input type="textbox" name="discussion_post_fonts_'.$cat.'_'.$item.'" value="'.$currsize.'" size="5"'.$disabled.' />'.
                                    '&nbsp;';                                     '&nbsp;';
                         $selitem = 'unit';                          $selitem = 'unit';
                     }                      }
Line 4662  sub checkforpriv_row { Line 4666  sub checkforpriv_row {
                     '</b><input type="hidden" name="checkforpriv_'.$num.                      '</b><input type="hidden" name="checkforpriv_'.$num.
                     '" value="'.$currdom.'" /></span><br />'.                      '" value="'.$currdom.'" /></span><br />'.
                     '<span class="LC_nobreak"><label><input type="checkbox" '.                      '<span class="LC_nobreak"><label><input type="checkbox" '.
                     'name="checkforpriv_delete" value="'.$num.'" />'.                      'name="checkforpriv_delete" value="'.$num.'"'.$disabled.' />'.
                     &mt('Delete').$disabled.'</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)) { 
Line 4795  ENDJS Line 4799  ENDJS
                &substitution_selector($currnum).'</td>'.                 &substitution_selector($currnum).'</td>'.
                '</tr>';                  '</tr>'; 
         $pos ++;          $pos ++;
        $currnum ++;          $currnum ++;
        $output .=           $output .= 
                '<tr>'.                 '<tr>'.
                '<td align="left"><span class="LC_nobreak">'.                 '<td align="left"><span class="LC_nobreak">'.
                &position_selector($pos,$currnum,$maxnum).                 &position_selector($pos,$currnum,$maxnum).
Line 4857  sub substitution_selector { Line 4861  sub substitution_selector {
     }      }
     $output .= '</select></td><td align="left">'.&mt('Size limit').'<br />'.      $output .= '</select></td><td align="left">'.&mt('Size limit').'<br />'.
                '<input type="textbox" name="printfmthdr_limit_'.$num.                 '<input type="textbox" name="printfmthdr_limit_'.$num.
                '" value="'.$limit.'" size="5" /></span>';                 '" value="'.$limit.'" size="5"'.$disabled.' /></span>';
     return $output;      return $output;
 }  }
   
Removed from v.1.80  
changed lines
  Added in v.1.84

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