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

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

version 1.152, 2022/10/27 20:33:31 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 152  sub handler { Line 153  sub handler {
                     &Apache::structuretags::reset_problem_globals();                      &Apache::structuretags::reset_problem_globals();
                     my $oldfile = $env{'request.filename'};                      my $oldfile = $env{'request.filename'};
                     $env{'request.filename'} = $item;                      $env{'request.filename'} = $item;
                       my $oldinhibit;
                       if ($env{'form.only_body'}) {
                           $oldinhibit = $env{'form.inhibitmenu'};
                           $env{'form.inhibitmenu'} = 'yes';
                       }
                     my $result = &Apache::lonxml::xmlparse($r,$target,$filecontents,                      my $result = &Apache::lonxml::xmlparse($r,$target,$filecontents,
                                                            '',%mystyle);                                                             '',%mystyle);
                       if ($env{'form.only_body'}) {
                           if ($oldinhibit ne '') {
                               $env{'form.inhibitmenu'} = $oldinhibit;
                           } else {
                               delete($env{'form.inhibitmenu'});
                           }
                       }
                     &Apache::structuretags::reset_problem_globals();                      &Apache::structuretags::reset_problem_globals();
                     &Apache::lonhomework::finished_parsing();                      &Apache::lonhomework::finished_parsing();
                     $env{'request.filename'} = $oldfile;                      $env{'request.filename'} = $oldfile;
Line 211  sub handler { Line 224  sub handler {
                     if ($title eq '') {                      if ($title eq '') {
                         $title = &mt('Syllabus');                          $title = &mt('Syllabus');
                     }                      }
                       $title = &HTML::Entities::encode($title,'\'"<>&');
                     $brcrum =                      $brcrum =
                         &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);                          &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                 }                  }
Line 507  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 774  sub get_breadcrumbs{ Line 788  sub get_breadcrumbs{
             &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);              &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
         if (ref($brcrum) eq 'ARRAY') {          if (ref($brcrum) eq 'ARRAY') {
             $args->{'bread_crumbs'} = $brcrum;              $args->{'bread_crumbs'} = $brcrum;
               $args->{'bread_crumbs_nomenu'} = 1;
         }          }
     } else {      } else {
         if ((&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus"))          if ((&Apache::lonnet::is_on_map("public/$cdom/$cnum/syllabus"))
Line 845  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 860  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 876  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 1042  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 1074  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.152  
changed lines
  Added in v.1.156

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