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

Diff for /loncom/xml/lonxml.pm between versions 1.531.2.13 and 1.531.2.24.2.1

version 1.531.2.13, 2013/12/14 01:22:15 version 1.531.2.24.2.1, 2023/12/29 23:40:37
Line 69  use Safe(); Line 69  use Safe();
 use Safe::Hole();  use Safe::Hole();
 use Math::Cephes();  use Math::Cephes();
 use Math::Random();  use Math::Random();
   use Math::Calculus::Expression();
   use Number::FormatEng();
 use Opcode();  use Opcode();
 use POSIX qw(strftime);  use POSIX qw(strftime);
 use Time::HiRes qw( gettimeofday tv_interval );  use Time::HiRes qw( gettimeofday tv_interval );
Line 323  sub printtokenheader { Line 325  sub printtokenheader {
 }  }
   
 sub printalltags {  sub printalltags {
   my $temp;      my $temp;
   foreach $temp (sort keys %Apache::lonxml::alltags) {      foreach $temp (sort keys %Apache::lonxml::alltags) {
     &Apache::lonxml::debug("$temp -- ".          &Apache::lonxml::debug("$temp -- ".
   join(',',@{ $Apache::lonxml::alltags{$temp} }));                                 join(',',@{ $Apache::lonxml::alltags{$temp} }));
   }      }
 }  }
   
 sub xmlparse {  sub xmlparse {
Line 400  sub xmlparse { Line 402  sub xmlparse {
  &clean_safespace($safeeval);   &clean_safespace($safeeval);
   
  if (@script_var_displays) {   if (@script_var_displays) {
      my $scriptoutput = join('',@script_var_displays);       if ($finaloutput =~ m{</body>\s*</html>\s*$}s) {
      $finaloutput=~s{(</body>\s*</html>)\s*$}{$scriptoutput$1}s;           my $scriptoutput = join('',@script_var_displays);
            $finaloutput=~s{(</body>\s*</html>)\s*$}{$scriptoutput$1}s;
        } else {
            $finaloutput .= join('',@script_var_displays);
        }
      undef(@script_var_displays);       undef(@script_var_displays);
  }   }
  &init_state();   &init_state();
Line 436  sub latex_special_symbols { Line 442  sub latex_special_symbols {
     } else {      } else {
  $string=~s/\\/\\ensuremath{\\backslash}/g;   $string=~s/\\/\\ensuremath{\\backslash}/g;
  $string=~s/\\\%|\%/\\\%/g;   $string=~s/\\\%|\%/\\\%/g;
  $string=~s/\\{|{/\\{/g;   $string=~s/\\\{|\{/\\{/g;
  $string=~s/\\}|}/\\}/g;   $string=~s/\\}|}/\\}/g;
  $string=~s/\\ensuremath\\{\\backslash\\}/\\ensuremath{\\backslash}/g;   $string=~s/\\ensuremath\\\{\\backslash\\}/\\ensuremath{\\backslash}/g;
  $string=~s/\\\$|\$/\\\$/g;   $string=~s/\\\$|\$/\\\$/g;
  $string=~s/\\\_|\_/\\\_/g;   $string=~s/\\\_|\_/\\\_/g;
         $string=~s/([^\\]|^)(\~|\^)/$1\\$2\\strut /g;          $string=~s/([^\\]|^)(\~|\^)/$1\\$2\\strut /g;
Line 459  sub inner_xmlparse { Line 465  sub inner_xmlparse {
   my $result;    my $result;
   my $token;    my $token;
   my $dontpop=0;    my $dontpop=0;
     my $lastdontpop;
     my $lastendtag;
   my $startredirection = $Apache::lonxml::redirection;    my $startredirection = $Apache::lonxml::redirection;
   while ( $#$pars > -1 ) {    while ( $#$pars > -1 ) {
     while ($token = $$pars['-1']->get_token) {      while ($token = $$pars['-1']->get_token) {
Line 554  sub inner_xmlparse { Line 562  sub inner_xmlparse {
       }        }
       $result = '';        $result = '';
   
       if ($token->[0] eq 'E' && !$dontpop) {        if ($token->[0] eq 'E') {
  &end_tag($stack,$parstack,$token);            if ($dontpop) {
                 $lastdontpop = $token;
             } else {
                 $lastendtag = $token->[1];
                 &end_tag($stack,$parstack,$token);
             }
       }        }
       $dontpop=0;        $dontpop=0;
     }      }
     if ($#$pars > -1) {      if ($#$pars > -1) {
  pop @$pars;   pop @$pars;
  pop @Apache::lonxml::pwd;   pop @Apache::lonxml::pwd;
     }      }
   }    }
   
     if (($#$stack == 0) && ($stack->[0] eq 'physnet') && ($target eq 'web') &&
         ($lastendtag eq 'LONCAPA_INTERNAL_TURN_STYLE_ON')) {
          if ((ref($lastdontpop) eq 'ARRAY') && ($lastdontpop->[1] eq 'physnet')) {
              &end_tag($stack,$parstack,$lastdontpop);
          }
      }
   
   # if ($target eq 'meta') {    # if ($target eq 'meta') {
   #   $finaloutput.=&endredirection;    #   $finaloutput.=&endredirection;
   # }    # }
Line 896  sub init_safespace { Line 916  sub init_safespace {
   $safehole->wrap(\&Apache::functionplotresponse::fpr_objectcoords,$safeeval,'&fpr_objectcoords');    $safehole->wrap(\&Apache::functionplotresponse::fpr_objectcoords,$safeeval,'&fpr_objectcoords');
   $safehole->wrap(\&Apache::functionplotresponse::fpr_vectorlength,$safeeval,'&fpr_vectorlength');    $safehole->wrap(\&Apache::functionplotresponse::fpr_vectorlength,$safeeval,'&fpr_vectorlength');
   $safehole->wrap(\&Apache::functionplotresponse::fpr_vectorangle,$safeeval,'&fpr_vectorangle');    $safehole->wrap(\&Apache::functionplotresponse::fpr_vectorangle,$safeeval,'&fpr_vectorangle');
     $safehole->wrap(\&Math::Calculus::Expression::math_calculus_expression,$safeeval,'&math_calculus_expression');
     $safehole->wrap(\&Number::FormatEng::format_eng,$safeeval,'&number_format_eng');
     $safehole->wrap(\&Number::FormatEng::format_pref,$safeeval,'&number_format_pref');
   
 #  use Data::Dumper;  #  use Data::Dumper;
 #  $safehole->wrap(\&Data::Dumper::Dumper,$safeeval,'&LONCAPA_INTERNAL_Dumper');  #  $safehole->wrap(\&Data::Dumper::Dumper,$safeeval,'&LONCAPA_INTERNAL_Dumper');
Line 904  sub init_safespace { Line 927  sub init_safespace {
   $safeeval->permit("require");    $safeeval->permit("require");
   $safeinit .= ';$external::target="'.$target.'";';    $safeinit .= ';$external::target="'.$target.'";';
   &Apache::run::run($safeinit,$safeeval);    &Apache::run::run($safeinit,$safeeval);
   &initialize_rndseed($safeeval);    my $rawrndseed = &initialize_rndseed($safeeval);
     if ($target eq 'grade') {
         $Apache::lonhomework::rawrndseed = $rawrndseed;
     }
 }  }
   
 sub clean_safespace {  sub clean_safespace {
Line 943  sub initialize_rndseed { Line 969  sub initialize_rndseed {
     my $safeinit = '$external::randomseed="'.$rndseed.'";';      my $safeinit = '$external::randomseed="'.$rndseed.'";';
     &Apache::lonxml::debug("Setting rndseed to $rndseed");      &Apache::lonxml::debug("Setting rndseed to $rndseed");
     &Apache::run::run($safeinit,$safeeval);      &Apache::run::run($safeinit,$safeeval);
       return $rndseed;
 }  }
   
 sub default_homework_load {  sub default_homework_load {
Line 1064  sub decreasedepth { Line 1091  sub decreasedepth {
 sub get_id {  sub get_id {
     my ($parstack,$safeeval)=@_;      my ($parstack,$safeeval)=@_;
     my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);      my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval);
     if ($env{'request.state'} eq 'construct' && $id =~ /([._]|[^\w\d\s[:punct:]])/) {      if ($env{'request.state'} eq 'construct' && $id =~ /([._]|[^\w\s\-])/) { 
  &error(&mt('ID [_1] contains invalid characters. IDs are only allowed to contain letters, numbers, spaces and -','"<tt>'.$id.'</tt>"'));   &error(&mt('ID [_1] contains invalid characters. IDs are only allowed to contain letters, numbers, spaces and -','"<tt>'.$id.'</tt>"'));
     }      }
     if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; }      if ($id =~ /^\s*$/) { $id = $Apache::lonxml::curdepth; }
Line 1417  sub extlink { Line 1444  sub extlink {
     if (!$exact) {      if (!$exact) {
  $res=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$res);   $res=&Apache::lonnet::hreflocation($Apache::lonxml::pwd[-1],$res);
     }      }
     push(@Apache::lonxml::extlinks,$res)        push(@Apache::lonxml::extlinks,$res);
 }  }
   
 sub writeallows {  sub writeallows {
Line 1453  sub do_registered_ssi { Line 1480  sub do_registered_ssi {
   
 sub add_script_result {  sub add_script_result {
     my ($display) = @_;      my ($display) = @_;
     push(@script_var_displays, $display);      if ($display ne '') {
           push(@script_var_displays, $display);
       }
 }  }
   
 #  #
Line 1545  SIMPLECONTENT Line 1574  SIMPLECONTENT
   
 sub verify_html {  sub verify_html {
     my ($filecontents)=@_;      my ($filecontents)=@_;
     my ($is_html,$is_xml);      my ($is_html,$is_xml,$is_physnet);
     if ($filecontents =~/(?:\<|\&lt\;)\?xml[^\<]*\?(?:\>|\&gt\;)/is) {      if ($filecontents =~/(?:\<|\&lt\;)\?xml[^\<]*\?(?:\>|\&gt\;)/is) {
         $is_xml = 1;          $is_xml = 1;
     } elsif ($filecontents =~/(?:\<|\&lt\;)html(?:\s+[^\<]+|\s*)(?:\>|\&gt\;)/is) {      } elsif ($filecontents =~/(?:\<|\&lt\;)html(?:\s+[^\<]+|\s*)(?:\>|\&gt\;)/is) {
         $is_html = 1;          $is_html = 1;
       } elsif ($filecontents =~/(?:\<|\&lt\;)physnet[^\<]*(?:\>|\&gt\;)/is) {
           $is_physnet = 1;
     }      }
     unless ($is_xml || $is_html) {      unless ($is_xml || $is_html || $is_physnet) {
         return &mt('File does not have [_1] or [_2] starting tag','&lt;html&gt;','&lt;?xml ?&gt;');          return &mt('File does not have [_1] or [_2] starting tag','&lt;html&gt;','&lt;?xml ?&gt;');
     }      }
     if ($is_html) {      if ($is_html) {
Line 1597  sub renderingoptions { Line 1628  sub renderingoptions {
                (''        => '',                 (''        => '',
                 'tth'     => 'tth (TeX to HTML)',                  'tth'     => 'tth (TeX to HTML)',
                 'MathJax' => 'MathJax',                  'MathJax' => 'MathJax',
   'jsMath'  => 'jsMath',  
                 'mimetex' => 'mimetex (Convert to Images)')}).                  'mimetex' => 'mimetex (Convert to Images)')}).
      '</span>';       '</span>';
     return $output;      return $output;
Line 1609  sub inserteditinfo { Line 1639  sub inserteditinfo {
       my $xml_help = '';        my $xml_help = '';
       my $initialize='';        my $initialize='';
       my $textarea_id = 'filecont';        my $textarea_id = 'filecont';
       my ($dragmath_button,$deps_button);        my ($dragmath_button,$deps_button,$context,$cnum,$cdom,$add_to_onload,
       my ($add_to_onload, $add_to_onresize);            $add_to_onresize,$init_dragmath);
       $initialize=&Apache::lonhtmlcommon::spellheader();        $initialize=&Apache::lonhtmlcommon::spellheader();
       if (($filetype eq 'html') && (&Apache::lonhtmlcommon::htmlareabrowser())) {        if ($filetype eq 'html') {
   my $lang = &Apache::lonhtmlcommon::htmlarea_lang();            if ($env{'request.course.id'}) {
           my %textarea_args = (                $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
                                 fullpage => 'true',                $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
                                 dragmath => 'math',                if ($uri =~ m{^\Q/uploaded/$cdom/$cnum/portfolio/syllabus/\E}) {
                               );                    $context = 'syllabus';
           $initialize .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args);                 }
             }
             if (&Apache::lonhtmlcommon::htmlareabrowser()) {
         my $lang = &Apache::lonhtmlcommon::htmlarea_lang();
                 my %textarea_args = (
                                       fullpage => 'true',
                                       dragmath => 'math',
                                     );
                 $initialize .= &Apache::lonhtmlcommon::htmlareaselectactive(\%textarea_args);
                 if ($context eq 'syllabus') {
                     $init_dragmath = "editmath_visibility('filecont','none')";
                 }
             }
       }        }
       $initialize .= (<<FULLPAGE);        $initialize .= (<<FULLPAGE);
 <script type="text/javascript">  <script type="text/javascript">
 // <![CDATA[  // <![CDATA[
     function initDocument() {      function initDocument() {
  resize_textarea('$textarea_id','LC_aftertextarea');   resize_textarea('$textarea_id','LC_aftertextarea');
           $init_dragmath
     }      }
 // ]]>  // ]]>
 </script>  </script>
 FULLPAGE  FULLPAGE
       my $textareaclass;        my $textareaclass;
       if ($filetype eq 'html') {        if ($filetype eq 'html') {
           my $context;            if ($context eq 'syllabus') {
           if ($env{'request.course.id'}) {                $deps_button = &Apache::lonhtmlcommon::dependencies_button()."\n";
               my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};                $initialize .=
               my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};                    &Apache::lonhtmlcommon::dependencycheck_js(undef,&mt('Syllabus'),
               if ($uri =~ m{^\Q/uploaded/$cdom/$cnum/portfolio/syllabus/\E}) {                                                               $uri,undef,
                   $context = 'syllabus';                                                               "/public/$cdom/$cnum/syllabus").
                   $deps_button = &Apache::lonhtmlcommon::dependencies_button()."\n";                    "\n";
                   $initialize .=                if (&Apache::lonhtmlcommon::htmlareabrowser()) {
                       &Apache::lonhtmlcommon::dependencycheck_js(undef,&mt('Syllabus'),                    $textareaclass = 'class="LC_richDefaultOn"';
                                                                  $uri,undef,  
                                                                  "/public/$cdom/$cnum/syllabus").  
                       "\n";  
                   if (&Apache::lonhtmlcommon::htmlareabrowser()) {  
                       $textareaclass = 'class="LC_richDefaultOn"';  
                   }  
               }  
           }  
           unless ($context eq 'syllabus') {  
               if ($symb || $folderpath) {  
                   $deps_button = &Apache::lonhtmlcommon::dependencies_button()."\n";  
                   $initialize .=  
                       &Apache::lonhtmlcommon::dependencycheck_js($symb,$itemtitle,  
                                                                  undef,$folderpath,$uri)."\n";  
               }                }
             } elsif ($symb || $folderpath) {
                 $deps_button = &Apache::lonhtmlcommon::dependencies_button()."\n";
                 $initialize .=
                     &Apache::lonhtmlcommon::dependencycheck_js($symb,$itemtitle,
                                                                undef,$folderpath,$uri)."\n";
           }            }
           $dragmath_button = '<span id="math_filecont">'.&Apache::lonhtmlcommon::dragmath_button('filecont',1).'</span>';            $dragmath_button = '<span id="math_filecont">'.&Apache::lonhtmlcommon::dragmath_button('filecont',1).'</span>';
           $initialize .= "\n".&Apache::lonhtmlcommon::dragmath_js('EditMathPopup');            $initialize .= "\n".&Apache::lonhtmlcommon::dragmath_js('EditMathPopup');
Line 1663  FULLPAGE Line 1697  FULLPAGE
       $add_to_onresize = "resize_textarea('$textarea_id','LC_aftertextarea');";        $add_to_onresize = "resize_textarea('$textarea_id','LC_aftertextarea');";
   
       if ($filetype eq 'html') {        if ($filetype eq 'html') {
   $xml_help=&Apache::loncommon::helpLatexCheatsheet();            my $not_author;
             if ($uri =~ m{^/uploaded/}) {
                 $not_author = 1;
             }
     $xml_help=&Apache::loncommon::helpLatexCheatsheet(undef,undef,$not_author);
       }        }
   
       my $titledisplay=&display_title();        my $titledisplay=&display_title();
Line 1687  FULLPAGE Line 1725  FULLPAGE
               }                }
           }            }
       }        }
         my ($undo,%onclick);
         foreach my $item ('discard','undo','daxe') {
             $onclick{$item} = 'onclick="still_ask=true;setmode(this.form,'."'$item'".')"';
         }
         foreach my $item ('saveedit','saveview') {
             $onclick{$item} = 'onclick="is_submit=true;setmode(this.form,'."'$item'".')"';
         }
         unless ($uri =~ m{^/uploaded/}) {
             $undo = '<input type="button" name="Undo" accesskey="u" value="'.$lt{'un'}.'" '.
                     $onclick{'undo'}.' />'."\n";
         }
         $initialize .= &setmode_javascript();
       my $editfooter=(<<ENDFOOTER);        my $editfooter=(<<ENDFOOTER);
 $initialize  $initialize
 <a name="editsection" />  <a name="editsection" />
 <form $form_events method="post" name="xmledit" action="$action">  <form $form_events method="post" name="xmledit" action="$action">
     <input type="hidden" name="problemmode" value="edit" />
   <div class="LC_edit_problem_editxml_header">    <div class="LC_edit_problem_editxml_header">
     <table class="LC_edit_problem_header_title"><tr><td>      <table class="LC_edit_problem_header_title"><tr><td>
         $filename          $filename
Line 1698  $initialize Line 1749  $initialize
         $xml_help          $xml_help
       </td></tr>        </td></tr>
     </table>      </table>
     <div class="LC_edit_problem_discards">      <div style="float:right">
       <input type="submit" name="discardview" accesskey="d" value="$lt{'dv'}" />        <input type="button" name="savethisfile" accesskey="s" value="$lt{'st'}" $onclick{'saveedit'} />
       <input type="submit" name="Undo" accesskey="u" value="$lt{'un'}" />        <input type="button" name="viewmode" accesskey="v" value="$lt{'vi'}" $onclick{'saveview'} />
       $htmlerror $deps_button $dragmath_button  
     </div>      </div>
     <div class="LC_edit_problem_saves">      <div>
       <input type="submit" name="savethisfile" accesskey="s" value="$lt{'st'}" />        <input type="button" name="discardview" accesskey="d" value="$lt{'dv'}" $onclick{'discard'} />
       <input type="submit" name="viewmode" accesskey="v" value="$lt{'vi'}" />        $undo $htmlerror $deps_button $dragmath_button
     </div>      </div>
   </div>    </div>
   <textarea $textarea_events style="width:100%" cols="80" rows="44" name="filecont" id="filecont" $textareaclass>$filecontents</textarea><br />$spelllink    <textarea $textarea_events style="width:100%" cols="80" rows="44" name="filecont" id="filecont" $textareaclass>$filecontents</textarea><br />$spelllink
Line 1715  $initialize Line 1765  $initialize
   </div>    </div>
 </form>  </form>
 ENDFOOTER  ENDFOOTER
       return ($editfooter,$add_to_onload,$add_to_onresize);;        return ($editfooter,$add_to_onload,$add_to_onresize);
   }
   
   sub setmode_javascript {
       return <<"ENDSCRIPT";
   <script type="text/javascript">
   // <![CDATA[
   function setmode(form,probmode) {
       var initial = form.problemmode.value;
       form.problemmode.value = probmode;
       form.submit();
       form.problemmode.value = initial;
   }
   // ]]>
   </script>
   ENDSCRIPT
   }
   
   sub seteditor_javascript {
       return <<"ENDSCRIPT";
   <script type="text/javascript">
   // <![CDATA[
   function seteditmode(form,editor) {
       form.editmode.value = editor;
       form.submit();
   }
   // ]]>
   </script>
   ENDSCRIPT
 }  }
   
 sub get_target {  sub get_target {
Line 1820  sub handler { Line 1898  sub handler {
 # Edit action? Save file.  # Edit action? Save file.
 #  #
     if (!($env{'request.state'} eq 'published')) {      if (!($env{'request.state'} eq 'published')) {
  if ($env{'form.savethisfile'} || $env{'form.viewmode'} || $env{'form.Undo'}) {          if (($env{'form.problemmode'} eq 'saveedit') ||
               ($env{'form.problemmode'} eq 'saveview') ||
               ($env{'form.problemmode'} eq 'undo')) {
     my $html_file=&Apache::lonnet::getfile($file);      my $html_file=&Apache::lonnet::getfile($file);
     my $error = &Apache::lonhomework::handle_save_or_undo($request, \$html_file, \$env{'form.filecont'});      my $error = &Apache::lonhomework::handle_save_or_undo($request, \$html_file, \$env{'form.filecont'});
             if ($env{'form.savethisfile'}) {              if ($env{'form.problemmode'} eq 'saveedit') {
                 $env{'form.editmode'}='Edit'; #force edit mode                  $env{'form.editmode'}='edit'; #force edit mode
             }              }
  }   }
     }      }
       my $inhibit_menu;
     my %mystyle;      my %mystyle;
     my $result = '';      my $result = '';
     my $filecontents=&Apache::lonnet::getfile($file);      my $filecontents=&Apache::lonnet::getfile($file);
Line 1852  ENDNOTFOUND Line 1933  ENDNOTFOUND
             } elsif ($filetype ne 'css' && $filetype ne 'txt' && $filetype ne 'tex') {              } elsif ($filetype ne 'css' && $filetype ne 'txt' && $filetype ne 'tex') {
  $filecontents=&createnewhtml();   $filecontents=&createnewhtml();
     }      }
     $env{'form.editmode'}='Edit'; #force edit mode      $env{'form.editmode'}='edit'; #force edit mode
  }   }
     } else {      } else {
  unless ($env{'request.state'} eq 'published') {   unless ($env{'request.state'} eq 'published') {
Line 1864  ENDNOTFOUND Line 1945  ENDNOTFOUND
             &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},              &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
     ['editmode']);      ['editmode']);
  }   }
  if (!$env{'form.editmode'} || $env{'form.viewmode'} || $env{'form.discardview'}) {   if ((!$env{'form.editmode'}) ||
               ($env{'form.problemmode'} eq 'saveview') ||
               ($env{'form.problemmode'} eq 'discard')) {
             if ($filetype eq 'html' || $filetype eq 'sty') {              if ($filetype eq 'html' || $filetype eq 'sty') {
         &Apache::structuretags::reset_problem_globals();          &Apache::structuretags::reset_problem_globals();
         $result = &Apache::lonxml::xmlparse($request,$target,          $result = &Apache::lonxml::xmlparse($request,$target,
Line 1885  ENDNOTFOUND Line 1968  ENDNOTFOUND
     &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},      &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
     ['rawmode']);      ['rawmode']);
     if ($env{'form.rawmode'}) { $result = $filecontents; }      if ($env{'form.rawmode'}) { $result = $filecontents; }
               if (($env{'request.state'} eq 'construct') &&
                   (($filetype eq 'css') || ($filetype eq 'js')) && ($ENV{'HTTP_REFERER'})) {
                   if ($ENV{'HTTP_REFERER'} =~ m{^https?\://[^\/]+/priv/$LONCAPA::match_domain/$LONCAPA::match_username/[^\?]+\.(x?html?|swf)(|\?)[^\?]*$}) {
                       $inhibit_menu = 1;
                   }
               }
             if (($filetype ne 'html') &&               if (($filetype ne 'html') && 
                 (!$env{'form.return_only_error_and_warning_counts'})) {                  (!$env{'form.return_only_error_and_warning_counts'}) &&
                   (!$inhibit_menu)) {
                 my $nochgview = 1;                  my $nochgview = 1;
                 my $controls = '';                  my $controls = '';
                     if ($env{'request.state'} eq 'construct') {                      if ($env{'request.state'} eq 'construct') {
Line 1924  ENDNOTFOUND Line 2014  ENDNOTFOUND
 #  #
 # Edit action? Insert editing commands  # Edit action? Insert editing commands
 #  #
     unless ($env{'request.state'} eq 'published') {      unless (($env{'request.state'} eq 'published') || ($inhibit_menu)) {
  if ($env{'form.editmode'} && (!($env{'form.viewmode'})) && (!($env{'form.discardview'})))   if (($env{'form.editmode'}) &&
  {              (!($env{'form.problemmode'} eq 'saveview')) &&
               (!($env{'form.problemmode'} eq 'discard'))) {
             my ($displayfile,$url,$symb,$itemtitle,$action);              my ($displayfile,$url,$symb,$itemtitle,$action);
     $displayfile=$request->uri;      $displayfile=$request->uri;
             if ($request->uri =~ m{^/uploaded/}) {              if ($request->uri =~ m{^/uploaded/}) {
Line 2123  sub error { Line 2214  sub error {
     my $declutter=&Apache::lonnet::declutter($env{'request.filename'});      my $declutter=&Apache::lonnet::declutter($env{'request.filename'});
             my $baseurl = &Apache::lonnet::clutter($declutter);              my $baseurl = &Apache::lonnet::clutter($declutter);
     my @userlist;      my @userlist;
     foreach (keys %users) {      foreach (keys(%users)) {
  my ($user,$domain) = split(/:/, $_);   my ($user,$domain) = split(/:/, $_);
  push(@userlist,"$user:$domain");   push(@userlist,"$user:$domain");
  my $key=$declutter.'_'.$user.'_'.$domain;   my $key=$declutter.'_'.$user.'_'.$domain;
Line 2318  sub register_insert { Line 2409  sub register_insert {
   
 sub dump_insertlist {  sub dump_insertlist {
     my ($ext) = @_;      my ($ext) = @_;
     open(XML,">/tmp/insertlist.xml.$ext");      open(XML,">","/tmp/insertlist.xml.$ext");
     print XML ("<insertlist>");      print XML ("<insertlist>");
     my $i=0;      my $i=0;
   
Removed from v.1.531.2.13  
changed lines
  Added in v.1.531.2.24.2.1

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