--- loncom/homework/daxepage.pm 2016/02/14 16:07:13 1.4 +++ loncom/homework/daxepage.pm 2024/04/19 03:48:23 1.17 @@ -1,7 +1,7 @@ # The LearningOnline Network # Page with Daxe on the left side and the preview on the right side # -# $Id: daxepage.pm,v 1.4 2016/02/14 16:07:13 raeburn Exp $ +# $Id: daxepage.pm,v 1.17 2024/04/19 03:48:23 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -28,39 +28,289 @@ ### package Apache::daxepage; +use strict; -use Apache::Constants; +use Apache::loncommon(); +use Apache::lonnet(); +use Apache::lonhtmlcommon(); +use Apache::lonxml(); +use Apache::edit(); +use Apache::lonmenu(); +use Apache::lonlocal; +use Apache::Constants qw(:common); +use LONCAPA qw(:DEFAULT :match); +use HTML::Entities(); sub handler { my $request = shift; my $uri = $request->uri; - $uri =~ s/^\/daxepage//; + $uri =~ s{^/daxepage}{}; &Apache::loncommon::content_type($request,'text/html'); - if ($uri !~ /\.(task|problem|exam|quiz|assess|survey|library|xml|html|htm|xhtml|xhtm)$/) { + my ($is_not_assess,$is_assess,$is_course_doc,$is_supp,$supp_path,$supp_title); + if ($uri =~/\.(xml|html|htm|xhtml|xhtm)$/) { + $is_not_assess = 1; + if ($Apache::lonnet::env{'request.course.id'}) { + my $cid = $Apache::lonnet::env{'request.course.id'}; + my $cdom = $Apache::lonnet::env{'course.'.$cid.'.domain'}; + my $cnum = $Apache::lonnet::env{'course.'.$cid.'.num'}; + if ($uri =~ m{^/uploaded/\Q$cdom/$cnum\E/(docs|supplemental)/}) { + if ($1 eq 'supplemental') { + &Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, + ['folderpath','title']); + $is_supp = 1; + $supp_path = &escape(&HTML::Entities::decode($Apache::lonnet::env{'form.folderpath'})); + $supp_title = &escape(&HTML::Entities::decode($Apache::lonnet::env{'form.title'})); + } + $is_course_doc = 1; + $Apache::lonnet::env{'form.forceedit'} = 1; + } + } + } elsif ($uri =~ /$LONCAPA::assess_re/) { + unless ($uri =~ /\.form$/) { + $is_assess = 1; + } + } + unless ($is_not_assess || $is_assess) { $request->status(406); return OK; } - my $result = ''; - $result .= "\n"; - $result .= "\n"; - $result .= "
\n"; + my %editors = &Apache::loncommon::permitted_editors($uri); + unless ($editors{'daxe'}) { + my $msg = ''. + &mt('Daxe editor is not enabled for this Authoring Space.').'
'; + &do_redirect($request,$uri,$msg); + return OK; + } + if ($is_not_assess) { + delete($editors{'xml'}); + $editors{'edit'} = 1; + $Apache::lonnet::env{'form.editmode'} = 'daxe'; + } else { + $Apache::lonnet::env{'form.problemmode'} = 'daxe'; + } + &Apache::lonhtmlcommon::clear_breadcrumbs(); + my %lt = &Apache::lonlocal::texthash( + 'noif' => 'No iframe support.', + 'show' => 'Show content in pop-up window', + 'save' => 'Save', + 'text' => 'Text Editor', + 'oeds' => 'other editors', + 'othe' => 'other editor', + 'edit' => 'Save and Edit', + 'disc' => 'Discard and View', + 'save' => 'Save and View', + ); my $name = $uri; $name =~ s/^.*\/([^\/]+)$/$1/; - $result .= "