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

Diff for /loncom/xml/londefdef.pm between versions 1.474 and 1.475

version 1.474, 2023/11/28 04:48:14 version 1.475, 2024/04/14 17:12:28
Line 50  use Apache::lonlocal; Line 50  use Apache::lonlocal;
 use Apache::loncommon();  use Apache::loncommon();
 use Apache::Constants qw(:common);  use Apache::Constants qw(:common);
 use File::Basename;  use File::Basename;
 use LONCAPA();  use LONCAPA;
 # use Data::Dumper;  # use Data::Dumper;
   
 BEGIN {  BEGIN {
Line 658  sub start_body { Line 658  sub start_body {
   
 sub edit_controls {  sub edit_controls {
     my ($nochgview) = @_;      my ($nochgview) = @_;
     my $result = &Apache::lonxml::seteditor_javascript().'       my ($is_course_doc,$is_supp,$supp_path,$supp_title);
       my $result = '
 <form method="post" action="">  <form method="post" action="">
 <div class="LC_edit_problem_header">'."\n";  <div class="LC_edit_problem_header">'."\n";
     unless ($nochgview) {      unless ($nochgview) {
Line 676  sub edit_controls { Line 677  sub edit_controls {
     if ($env{'browser.type'} ne 'explorer' || $env{'browser.version'} > 9) {      if ($env{'browser.type'} ne 'explorer' || $env{'browser.version'} > 9) {
         my $uri = $env{'request.uri'};          my $uri = $env{'request.uri'};
         if ($uri =~ /\.(xml|html|htm|xhtml|xhtm)$/) {          if ($uri =~ /\.(xml|html|htm|xhtml|xhtm)$/) {
             my %editors = &Apache::loncommon::permitted_editors();              my %editors = &Apache::loncommon::permitted_editors($uri);
             if ($editors{'daxe'}) {              if ($editors{'daxe'}) {
                 my $daxeurl = '/daxepage'.$uri;                  my $daxeurl = '/daxepage'.$uri;
                 $result .= '<input type="button" name="editordaxe" value="'.&mt('Edit with Daxe').                  $result .= '<input type="button" name="editordaxe" value="'.&mt('Edit with Daxe').
Line 691  sub edit_controls { Line 692  sub edit_controls {
             if ($env{'request.course.id'}) {              if ($env{'request.course.id'}) {
                 $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};                  $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                 $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};                  $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                   if ($url =~ m{^\Q/uploaded/$cdom/$cnum/\E(supplemental|docs)/}) {
                       if ($1 eq 'supplemental') {
                           $is_supp = 1;
                       }
                       $is_course_doc = 1;
                   }
                 if ($env{'request.filename'} =~ m{/userfiles/supplemental/default|\d+/}) {                  if ($env{'request.filename'} =~ m{/userfiles/supplemental/default|\d+/}) {
                     if (&Apache::lonnet::is_course_upload($env{'request.filename'},                      my $fn=&Apache::lonnet::declutter($env{'request.filename'});
                                                           $cnum,$cdom)) {                      if (&Apache::lonnet::is_course_upload($fn,$cnum,$cdom)) {
                         &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},                          &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
                                                                 ['folderpath','title']);                                                                  ['folderpath','title']);
                           $supp_path = &escape(&HTML::Entities::decode($Apache::lonnet::env{'form.folderpath'}));
                           $supp_title = &escape(&HTML::Entities::decode($Apache::lonnet::env{'form.title'}));
                     }                      }
                 }                  }
             }              }
Line 723  sub edit_controls { Line 732  sub edit_controls {
 </div>  </div>
 </form>  </form>
 ';  ';
     return $result;      my $setedit_js = &Apache::lonxml::seteditor_javascript($is_course_doc,$is_supp,
                                                              $supp_path,$supp_title);
       return $setedit_js."\n".$result;
 }  }
   
 sub end_body {  sub end_body {
Removed from v.1.474  
changed lines
  Added in v.1.475

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