[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.24.2.1 and 1.531.2.26

version 1.531.2.24.2.1, 2023/12/29 23:40:37 version 1.531.2.26, 2024/07/07 21:43:24
Line 1633  sub renderingoptions { Line 1633  sub renderingoptions {
     return $output;      return $output;
 }  }
   
   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 inserteditinfo {  sub inserteditinfo {
       my ($filecontents,$filetype,$filename,$symb,$itemtitle,$folderpath,$uri,$action) = @_;        my ($filecontents,$filetype,$filename,$symb,$itemtitle,$folderpath,$uri,$action) = @_;
       $filecontents = &HTML::Entities::encode($filecontents,'<>&"');        $filecontents = &HTML::Entities::encode($filecontents,'<>&"');
Line 1717  FULLPAGE Line 1732  FULLPAGE
       if ($filetype eq 'html') {        if ($filetype eq 'html') {
           $htmlerror=&verify_html($filecontents);            $htmlerror=&verify_html($filecontents);
           if ($htmlerror) {            if ($htmlerror) {
               $htmlerror='<span class="LC_error">'.$htmlerror.'</span>';                $htmlerror=('&nbsp;'x3).' <span class="LC_error">'.$htmlerror.'</span>';
           }            }
           if (&Apache::lonhtmlcommon::htmlareabrowser()) {            if (&Apache::lonhtmlcommon::htmlareabrowser()) {
               unless ($textareaclass) {                unless ($textareaclass) {
Line 1726  FULLPAGE Line 1741  FULLPAGE
           }            }
       }        }
       my ($undo,%onclick);        my ($undo,%onclick);
       foreach my $item ('discard','undo','daxe') {        foreach my $item ('discard','undo') {
           $onclick{$item} = 'onclick="still_ask=true;setmode(this.form,'."'$item'".')"';            $onclick{$item} = 'onclick="still_ask=true;setmode(this.form,'."'$item'".')"';
       }        }
       foreach my $item ('saveedit','saveview') {        foreach my $item ('saveedit','saveview') {
           $onclick{$item} = 'onclick="is_submit=true;setmode(this.form,'."'$item'".')"';            $onclick{$item} = 'onclick="is_submit=true;setmode(this.form,'."'$item'".')"';
       }        }
       unless ($uri =~ m{^/uploaded/}) {        unless ($uri =~ m{^/uploaded/}) {
           $undo = '<input type="button" name="Undo" accesskey="u" value="'.$lt{'un'}.'" '.            $undo = '<input type="submit" name="Undo" accesskey="u" value="'.$lt{'un'}.'" '.
                   $onclick{'undo'}.' />'."\n";                    $onclick{'undo'}.' />'."\n"; 
       }        }
       $initialize .= &setmode_javascript();        $initialize .= &setmode_javascript();
       my $editfooter=(<<ENDFOOTER);        my $editfooter=(<<ENDFOOTER);
Line 1755  $initialize Line 1770  $initialize
     </div>      </div>
     <div>      <div>
       <input type="button" name="discardview" accesskey="d" value="$lt{'dv'}" $onclick{'discard'} />        <input type="button" name="discardview" accesskey="d" value="$lt{'dv'}" $onclick{'discard'} />
       $undo $htmlerror $deps_button $dragmath_button        $undo $deps_button $dragmath_button $htmlerror
     </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 1768  ENDFOOTER Line 1783  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 {
   my $viewgrades=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});    my $viewgrades=&Apache::lonnet::allowed('vgr',$env{'request.course.id'});
   if ( $env{'request.state'} eq 'published') {    if ( $env{'request.state'} eq 'published') {
Line 1945  ENDNOTFOUND Line 1932  ENDNOTFOUND
             &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},              &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
     ['editmode']);      ['editmode']);
  }   }
  if ((!$env{'form.editmode'}) ||          if ((!$env{'form.editmode'}) ||
             ($env{'form.problemmode'} eq 'saveview') ||              ($env{'form.problemmode'} eq 'saveview') ||
             ($env{'form.problemmode'} eq 'discard')) {              ($env{'form.problemmode'} eq 'discard')) {
             if ($filetype eq 'html' || $filetype eq 'sty') {              if ($filetype eq 'html' || $filetype eq 'sty') {
Line 2015  ENDNOTFOUND Line 2002  ENDNOTFOUND
 # Edit action? Insert editing commands  # Edit action? Insert editing commands
 #  #
     unless (($env{'request.state'} eq 'published') || ($inhibit_menu)) {      unless (($env{'request.state'} eq 'published') || ($inhibit_menu)) {
  if (($env{'form.editmode'}) &&          if (($env{'form.editmode'}) &&
             (!($env{'form.problemmode'} eq 'saveview')) &&              (!($env{'form.problemmode'} eq 'saveview')) &&
             (!($env{'form.problemmode'} eq 'discard'))) {              (!($env{'form.problemmode'} eq 'discard'))) {
             my ($displayfile,$url,$symb,$itemtitle,$action);              my ($displayfile,$url,$symb,$itemtitle,$action);
Removed from v.1.531.2.24.2.1  
changed lines
  Added in v.1.531.2.26

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