--- loncom/xml/lonxml.pm 2024/03/31 02:02:32 1.531.2.24.2.3 +++ loncom/xml/lonxml.pm 2024/09/04 17:22:51 1.531.2.24.2.5 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # XML Parser Module # -# $Id: lonxml.pm,v 1.531.2.24.2.3 2024/03/31 02:02:32 raeburn Exp $ +# $Id: lonxml.pm,v 1.531.2.24.2.5 2024/09/04 17:22:51 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1734,7 +1734,7 @@ FULLPAGE $onclick{$item} = 'onclick="is_submit=true;setmode(this.form,'."'$item'".')"'; } unless ($uri =~ m{^/uploaded/}) { - $undo = ''."\n"; } $initialize .= &setmode_javascript(); @@ -1797,14 +1797,62 @@ ENDSCRIPT } sub seteditor_javascript { + my ($is_course_doc,$is_supp,$supp_path,$supp_title) = @_; + my $symb; + if ($is_course_doc) { + if (!$is_supp) { + ($symb) = &Apache::lonnet::whichuser(); + if ($symb) { + $symb = &escape($symb); + } + } + } return <<"ENDSCRIPT";