[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.7 and 1.156

version 1.138.2.7, 2022/01/01 20:45:09 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 170  sub handler { Line 183  sub handler {
                 } else {                  } else {
                     my $brcrum;                      my $brcrum;
                     if ($env{'form.folderpath'} =~ /^supplemental/) {                      if ($env{'form.folderpath'} =~ /^supplemental/) {
                           &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 178  sub handler { Line 192  sub handler {
                             &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);                              &Apache::lonhtmlcommon::docs_breadcrumbs(undef,$crstype,undef,$title,1);
                     }                      }
                     $r->print(&Apache::lonwrapper::wrapper($r,$item,$brcrum,$env{'request.use_absolute'},                      $r->print(&Apache::lonwrapper::wrapper($r,$item,$brcrum,$env{'request.use_absolute'},
                                                            undef,$is_pdf,&mt('Syllabus')));                                                             undef,$is_pdf,undef,'','',&mt('Syllabus')));
                 }                  }
             }              }
             return OK;              return OK;
Line 205  sub handler { Line 219  sub handler {
                     $is_pdf = 1;                      $is_pdf = 1;
                 }                  }
                 if ($env{'form.folderpath'} =~ /^supplemental/) {                  if ($env{'form.folderpath'} =~ /^supplemental/) {
                       &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');
                     }                      }
                       $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);
                 }                  }
                 $r->print(&Apache::lonwrapper::wrapper($r,$external,$brcrum,$env{'request.use_absolute'},                  $r->print(&Apache::lonwrapper::wrapper($r,$external,$brcrum,$env{'request.use_absolute'},
                                                        $is_ext,$is_pdf,&mt('Syllabus')));                                                         $is_ext,$is_pdf,undef,'','',&mt('Syllabus')));
             }              }
             return OK;              return OK;
         }          }
Line 314  sub handler { Line 330  sub handler {
     if ($allowed) {      if ($allowed) {
 #---------------------------------- Print External URL Syllabus Info if editing  #---------------------------------- Print External URL Syllabus Info if editing
         if ($target ne 'tex') {          if ($target ne 'tex') {
             my $hostname = &Apache::lonnet::hostname($homeserver);              my $link = &Apache::lonnet::url_prefix($r,$cdom,$homeserver,'web').
             my $protocol = $Apache::lonnet::protocol{$homeserver};                         $r->uri;
             $protocol = 'http' if ($protocol ne 'https');  
             my $alias = &Apache::lonnet::use_proxy_alias($r,$homeserver);  
             $hostname = $alias if ($alias ne '');  
             my $link = $protocol.'://'.$hostname.$r->uri;  
             $r->print('<div class="LC_left_float">'              $r->print('<div class="LC_left_float">'
                      .'<span class="LC_help_open_topic LC_info">'                       .'<span class="LC_help_open_topic LC_info">'
                      .'<span class="LC_info">'                       .'<span class="LC_info">'
Line 509  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 767  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);
         my $title = $env{'form.title'};          my $title = $env{'form.title'};
         if ($title eq '') {          if ($title eq '') {
             $title = &mt('Syllabus');              $title = &mt('Syllabus');
Line 775  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 846  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 861  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 877  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 1043  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 1075  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));
             }              }
Line 1320  sub save_changes { Line 1335  sub save_changes {
                               &mt('An error occurred storing the external URL: [_1]',$putres).                                &mt('An error occurred storing the external URL: [_1]',$putres).
                               '</div>';                                '</div>';
                 }                  }
                 $is_ext = $external;  
             }              }
               $is_ext = $external;
         } else {          } else {
             $output = '<div class="LC_error">'.              $output = '<div class="LC_error">'.
                       &mt('External URL not saved -- invalid URL.').                        &mt('External URL not saved -- invalid URL.').
Removed from v.1.138.2.7  
changed lines
  Added in v.1.156

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