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

Diff for /loncom/interface/lonsyllabus.pm between versions 1.138.2.8.2.4 and 1.156

version 1.138.2.8.2.4, 2023/10/06 16:44:42 version 1.156, 2025/01/28 19:49:20
Line 40  use Apache::lonannounce; Line 40  use Apache::lonannounce;
 use Apache::lonlocal;  use Apache::lonlocal;
 use Apache::lonhtmlcommon;  use Apache::lonhtmlcommon;
 use Apache::lonspeller();  use Apache::lonspeller();
   use Apache::lonwrapper();
 use HTML::Entities();  use HTML::Entities();
   
 sub handler {  sub handler {
Line 520  sub handler { Line 521  sub handler {
  $r->print($urls);   $r->print($urls);
  $r->print("<br /><div>");   $r->print("<br /><div>");
  &Apache::lontemplate::print_textarea_template($r, $data{$field},   &Apache::lontemplate::print_textarea_template($r, $data{$field},
  $field, Apache::lontemplate->RICH_TEXT_ALWAYS_OFF);   $field, $fields{$field}, Apache::lontemplate->RICH_TEXT_ALWAYS_OFF);
  &Apache::lontemplate::print_saveall_template($r);                            &Apache::lontemplate::print_saveall_template($r);                         
  $r->print("</div>");   $r->print("</div>");
  &Apache::lontemplate::print_end_template($r);   &Apache::lontemplate::print_end_template($r);
Line 778  sub get_breadcrumbs{ Line 779  sub get_breadcrumbs{
     my ($cdom,$cnum,$crstype,$args) = @_;      my ($cdom,$cnum,$crstype,$args) = @_;
     return unless (ref($args) eq 'HASH');      return unless (ref($args) eq 'HASH');
     if ($env{'form.folderpath'} =~ /^supplemental/) {      if ($env{'form.folderpath'} =~ /^supplemental/) {
         &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);            &Apache::loncommon::validate_folderpath(1,'',$cnum,$cdom);
         my $title = $env{'form.title'};          my $title = $env{'form.title'};
         if ($title eq '') {          if ($title eq '') {
             $title = &mt('Syllabus');              $title = &mt('Syllabus');
Line 859  sub chooser { Line 860  sub chooser {
         $output .= '<label><input type="radio" name="choice" value="'.$item.'" '.$checked{$item}.' onclick="toggleEditor('."'$item'".')" />'.          $output .= '<label><input type="radio" name="choice" value="'.$item.'" '.$checked{$item}.' onclick="toggleEditor('."'$item'".')" />'.
                    $lt{$item}.'</label><br />';                     $lt{$item}.'</label><br />';
     }      }
       my $urllabeltext = &HTML::Entities::encode(&mt('Enter URL'),'"&<>');
     $output .= '</fieldset></div>'."\n".      $output .= '</fieldset></div>'."\n".
                '<div id="url" class="LC_left_float" style="display: '.$display{'url'}.'">'."\n".                 '<div id="url" class="LC_left_float" style="display: '.$display{'url'}.'">'."\n".
                '<fieldset><legend>'.$lt{'chourl'}.'</legend><span class="LC_nobreak">'."\n".                 '<fieldset><legend>'.$lt{'chourl'}.'</legend><span class="LC_nobreak">'."\n".
                '<a href="javascript:extUrlPreview('."'syllabusurl','$protocol'".');">'.$lt{'pr'}.'</a></span>&nbsp;'."\n".                 '<a href="javascript:extUrlPreview('."'syllabusurl','$protocol'".');">'.$lt{'pr'}.'</a></span>&nbsp;'."\n".
                '<input type="text" id="syllabusurl" name="externalsyllabus" value="'.$external.'" size="55" />'."\n".                 '<input type="text" id="syllabusurl" name="externalsyllabus" value="'.$external.'" size="55" aria-label="'.$urllabeltext.'" />'."\n".
                '&nbsp;<input type="submit" name="storeurl" value="'.$lt{'save'}.'" />'."\n".                 '&nbsp;<input type="submit" name="storeurl" value="'.$lt{'save'}.'" />'."\n".
                '</fieldset></div>'."\n".                 '</fieldset></div>'."\n".
                '<div id="minimal" class="LC_left_float" style="display: '.$display{'minimal'}.'">'."\n".                 '<div id="minimal" class="LC_left_float" style="display: '.$display{'minimal'}.'">'."\n".
Line 874  sub chooser { Line 876  sub chooser {
                    '<input type="hidden" name="minimalfile" value="'.&HTML::Entities::encode($absurl).'?inhibitmenu=yes" id="currminimal" />'.                     '<input type="hidden" name="minimalfile" value="'.&HTML::Entities::encode($absurl).'?inhibitmenu=yes" id="currminimal" />'.
                    $depbutton;                     $depbutton;
     } else {      } else {
         $output .= &mt('Title of Syllabus Page:').'&nbsp;'.          $output .= '<label>'.&mt('Title of Syllabus Page:').'&nbsp;'.
                    '<input type="text" id="minimaltitle" name="syllabustitle" value="'.&mt('Syllabus').'" size="30" />'."\n".                     '<input type="text" id="minimaltitle" name="syllabustitle" value="'.&mt('Syllabus').'" size="30" /></label>'."\n".
                    '&nbsp;<input type="submit" name="storeminimal" value="'.$lt{'sved'}.'" />'."\n";                     '&nbsp;<input type="submit" name="storeminimal" value="'.$lt{'sved'}.'" />'."\n";
     }      }
     $output .= '</fieldset></div>'."\n".      $output .= '</fieldset></div>'."\n".
Line 890  sub chooser { Line 892  sub chooser {
     } else {      } else {
         $output .= $lt{'upl'};          $output .= $lt{'upl'};
     }      }
       my $labeltext = &HTML::Entities::encode(&mt('Choose syllabus file'),'"&<>');
     $output .= '<br />'."\n".      $output .= '<br />'."\n".
                '<span class="LC_nobreak">'.                 '<span class="LC_nobreak">'.
                '<input type="file" name="syllabusfile" size="55" />'."\n".                 '<input type="file" name="syllabusfile" size="55" aria-label="'.$labeltext.'" />'."\n".
                '&nbsp;<input type="submit" name="storefile" value="'.$lt{'save'}.'" />'.                 '&nbsp;<input type="submit" name="storefile" value="'.$lt{'save'}.'" />'.
                '</span><br />'.                 '</span><br />'.
                '<label>'.                 '<label>'.
Line 1056  sub get_personnel { Line 1059  sub get_personnel {
         if ($allowed) {          if ($allowed) {
             $r->print(&Apache::loncommon::start_data_table().              $r->print(&Apache::loncommon::start_data_table().
                       &Apache::loncommon::start_data_table_header_row().                        &Apache::loncommon::start_data_table_header_row().
                       '<th>'.&mt('Role hidden?').'</th><th>'.&mt('Role').'</th>'.                        '<th>'.&mt('Role (hidden if checked)').'</th>'.
                       '<th>'.&mt('Personnel (hidden if checked)').'</th>'.                        '<th>'.&mt('Personnel (hidden if checked)').'</th>'.
                       &Apache::loncommon::end_data_table_header_row());                        &Apache::loncommon::end_data_table_header_row());
         } else {          } else {
Line 1088  sub get_personnel { Line 1091  sub get_personnel {
                     $checked = ' checked="checked"';                      $checked = ' checked="checked"';
                 }                  }
                 $r->print(&Apache::loncommon::start_data_table_row().                  $r->print(&Apache::loncommon::start_data_table_row().
                           '<td>'.                            '<td><span class="LC_nobreak"><label>'.
                           '<input type="checkbox" name="hiderole" value="'.$element.'" '.                            '<input type="checkbox" name="hiderole" value="'.$element.'" '.
                           $checked.' />'.                            $checked.' />'.$roletext.'</label></span></td><td>');
                           '</td><td>'.$roletext.'</td><td>');  
             } else {              } else {
                 $r->print(&Apache::lonhtmlcommon::row_title($roletext));                  $r->print(&Apache::lonhtmlcommon::row_title($roletext));
             }              }
Removed from v.1.138.2.8.2.4  
changed lines
  Added in v.1.156

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