version 1.344.2.10.4.2, 2023/07/05 16:58:52
|
version 1.344.2.10.4.7, 2024/02/27 17:10:23
|
Line 49 use Apache::matchresponse();
|
Line 49 use Apache::matchresponse();
|
use Apache::chemresponse(); |
use Apache::chemresponse(); |
use Apache::functionplotresponse(); |
use Apache::functionplotresponse(); |
use Apache::drawimage(); |
use Apache::drawimage(); |
|
use Apache::loncourseuser(); |
|
use Apache::grades(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
use Apache::loncommon(); |
use Apache::loncommon(); |
use Apache::lonparmset(); |
use Apache::lonparmset(); |
Line 160 sub get_target {
|
Line 162 sub get_target {
|
return ('web','answer'); |
return ('web','answer'); |
} elsif (($env{'form.problemmode'} eq 'saveedit') || |
} elsif (($env{'form.problemmode'} eq 'saveedit') || |
($env{'form.problemmode'} eq 'undo')) { |
($env{'form.problemmode'} eq 'undo')) { |
return ('modified','no_output_web','edit'); |
my %editors = &Apache::loncommon::permitted_editors(); |
|
if ($editors{'edit'}) { |
|
return ('modified','no_output_web','edit'); |
|
} else { |
|
return ('web'); |
|
} |
} elsif ($env{'form.problemmode'} eq 'edit') { |
} elsif ($env{'form.problemmode'} eq 'edit') { |
return ('no_output_web','edit'); |
my %editors = &Apache::loncommon::permitted_editors(); |
|
if ($editors{'edit'}) { |
|
return ('no_output_web','edit'); |
|
} else { |
|
return ('web'); |
|
} |
} else { |
} else { |
return ('web'); |
return ('web'); |
} |
} |
Line 721 sub setuppermissions {
|
Line 733 sub setuppermissions {
|
$env{'request.course.sec'} !~ /^\s*$/) { |
$env{'request.course.sec'} !~ /^\s*$/) { |
$viewgrades = &Apache::lonnet::allowed('vgr',$env{'request.course.id'}. |
$viewgrades = &Apache::lonnet::allowed('vgr',$env{'request.course.id'}. |
'/'.$env{'request.course.sec'}); |
'/'.$env{'request.course.sec'}); |
|
if ($viewgrades) { |
|
$Apache::lonhomework::viewgradessec = $env{'request.course.sec'}; |
|
} |
} |
} |
$Apache::lonhomework::viewgrades = $viewgrades; |
$Apache::lonhomework::viewgrades = $viewgrades; |
|
|
Line 738 sub setuppermissions {
|
Line 753 sub setuppermissions {
|
$modifygrades = |
$modifygrades = |
&Apache::lonnet::allowed('mgr',$env{'request.course.id'}. |
&Apache::lonnet::allowed('mgr',$env{'request.course.id'}. |
'/'.$env{'request.course.sec'}); |
'/'.$env{'request.course.sec'}); |
|
if ($modifygrades) { |
|
$Apache::lonhomework::modifygradessec = $env{'request.course.sec'}; |
|
} |
} |
} |
$Apache::lonhomework::modifygrades = $modifygrades; |
$Apache::lonhomework::modifygrades = $modifygrades; |
|
|
Line 756 sub setuppermissions {
|
Line 774 sub setuppermissions {
|
sub unset_permissions { |
sub unset_permissions { |
undef($Apache::lonhomework::queuegrade); |
undef($Apache::lonhomework::queuegrade); |
undef($Apache::lonhomework::modifygrades); |
undef($Apache::lonhomework::modifygrades); |
|
undef($Apache::lonhomework::modifygradessec); |
undef($Apache::lonhomework::viewgrades); |
undef($Apache::lonhomework::viewgrades); |
|
undef($Apache::lonhomework::viewgradessec); |
undef($Apache::lonhomework::browse); |
undef($Apache::lonhomework::browse); |
} |
} |
|
|
Line 855 STATE
|
Line 875 STATE
|
|
|
sub analyze_header { |
sub analyze_header { |
my ($request) = @_; |
my ($request) = @_; |
my $js = &Apache::structuretags::setmode_javascript(); |
my $js = &Apache::lonxml::setmode_javascript(); |
|
|
# Breadcrumbs |
# Breadcrumbs |
my $brcrum = [{'href' => &Apache::loncommon::authorspace($request->uri), |
my $brcrum = [{'href' => &Apache::loncommon::authorspace($request->uri), |
Line 871 sub analyze_header {
|
Line 891 sub analyze_header {
|
{'bread_crumbs' => $brcrum,}) |
{'bread_crumbs' => $brcrum,}) |
.&Apache::loncommon::head_subbox( |
.&Apache::loncommon::head_subbox( |
&Apache::loncommon::CSTR_pageheader()); |
&Apache::loncommon::CSTR_pageheader()); |
|
my %lt = &Apache::lonlocal::texthash( |
|
edit => 'Edit', |
|
editxml => 'EditXML', |
|
); |
$result .= |
$result .= |
'<form name="lonhomework" method="post" action="'. |
'<form name="lonhomework" method="post" action="'. |
&HTML::Entities::encode($env{'request.uri'},'<>&"').'">'. |
&HTML::Entities::encode($env{'request.uri'},'<>&"').'">'. |
'<input type="hidden" name="problemmode" value="'. |
'<input type="hidden" name="problemmode" value="'. |
$env{'form.problemmode'}.'" />'. |
$env{'form.problemmode'}.'" />'. |
&Apache::structuretags::remember_problem_state().' |
&Apache::structuretags::remember_problem_state().' |
<div class="LC_edit_problem_analyze_header"> |
<div class="LC_edit_problem_analyze_header">'; |
<input type="button" name="submitmode" value="'.&mt("EditXML").'" '. |
my %editors = &Apache::loncommon::permitted_editors(); |
'onclick="javascript:setmode(this.form,'."'editxml'".')" /> |
foreach my $item ('editxml','edit') { |
<input type="button" name="submitmode" value="'.&mt('Edit').'" '. |
next unless ($editors{$item}); |
'onclick="javascript:setmode(this.form,'."'edit'".')" /> |
$result .= '<input type="button" name="submitmode" value="'.$lt{$item}.'" '. |
<hr /> |
'onclick="javascript:setmode(this.form,'."'$item'".')" />'. |
|
"\n"; |
|
} |
|
$result .= |
|
'<hr /> |
<input type="button" name="submitmode" value="'.&mt("View").'" '. |
<input type="button" name="submitmode" value="'.&mt("View").'" '. |
'onclick="javascript:setmode(this.form,'."'view'".')" /> |
'onclick="javascript:setmode(this.form,'."'view'".')" /> |
<hr /> |
<hr /> |
Line 1087 sub editxmlmode {
|
Line 1115 sub editxmlmode {
|
my $js = |
my $js = |
&Apache::edit::js_change_detection(). |
&Apache::edit::js_change_detection(). |
&Apache::loncommon::resize_textarea_js(). |
&Apache::loncommon::resize_textarea_js(). |
&Apache::structuretags::setmode_javascript(). |
&Apache::lonxml::setmode_javascript(). |
&Apache::lonhtmlcommon::dragmath_js("EditMathPopup"); |
&Apache::lonhtmlcommon::dragmath_js("EditMathPopup"); |
|
|
# Breadcrumbs |
# Breadcrumbs |
Line 1125 sub editxmlmode {
|
Line 1153 sub editxmlmode {
|
|
|
$result .= '<ol class="LC_primary_menu" style="display:inline-block;font-size:90%;vertical-align:middle;">'; |
$result .= '<ol class="LC_primary_menu" style="display:inline-block;font-size:90%;vertical-align:middle;">'; |
|
|
unless ($env{'environment.nocodemirror'}) { |
my $nocodemirror = &Apache::loncommon::nocodemirror(); |
|
unless ($nocodemirror) { |
# dropdown menus |
# dropdown menus |
$result .= Apache::lonmenu::create_submenu("#", "", |
$result .= Apache::lonmenu::create_submenu("#", "", |
&mt("Problem Templates"), template_dropdown_datastructure()); |
&mt("Problem Templates"), template_dropdown_datastructure()); |
Line 1157 sub editxmlmode {
|
Line 1186 sub editxmlmode {
|
'</textarea> <div id="LC_aftertextarea"> </div> </form>'; |
'</textarea> <div id="LC_aftertextarea"> </div> </form>'; |
|
|
my $resource = $env{'request.ambiguous'}; |
my $resource = $env{'request.ambiguous'}; |
unless($env{'environment.nocodemirror'}){ |
unless ($nocodemirror) { |
$result .= '<link rel="stylesheet" href="/adm/codemirror/codemirror-combined-xml.css"> |
$result .= '<link rel="stylesheet" href="/adm/codemirror/codemirror-combined-xml.css"> |
<script src="/adm/codemirror/codemirror-compressed-xml.js"></script> |
<script src="/adm/codemirror/codemirror-compressed-xml.js"></script> |
<script> |
<script> |
Line 1204 sub editxmlmode {
|
Line 1233 sub editxmlmode {
|
# Render the page in whatever target desired. |
# Render the page in whatever target desired. |
# |
# |
sub renderpage { |
sub renderpage { |
my ($request,$file,$targets,$return_string,$donebuttonmsg) = @_; |
my ($request,$file,$targets,$return_string,$donebuttonmsg,$viewasuser,$symb) = @_; |
|
|
my @targets = @{$targets || [&get_target()]}; |
my @targets = @{$targets || [&get_target()]}; |
&Apache::lonhomework::showhashsubset(\%env,'form.'); |
&Apache::lonhomework::showhashsubset(\%env,'form.'); |
Line 1243 sub renderpage {
|
Line 1272 sub renderpage {
|
if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); } |
if ($target eq 'answer') { &showhash(%Apache::lonhomework::history); } |
if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%env,'^form');} |
if ($target eq 'web') {&Apache::lonhomework::showhashsubset(\%env,'^form');} |
|
|
|
if (($target eq 'web') && ($viewasuser ne '') && ($symb ne '')) { |
|
$env{'request.user_in_effect'} = $viewasuser; |
|
} |
|
|
&Apache::lonxml::debug("Should be parsing now"); |
&Apache::lonxml::debug("Should be parsing now"); |
$result .= &Apache::lonxml::xmlparse($request, $target, $problem, |
$result .= &Apache::lonxml::xmlparse($request, $target, $problem, |
&setup_vars($target),%mystyle); |
&setup_vars($target),%mystyle); |
Line 1268 sub renderpage {
|
Line 1301 sub renderpage {
|
#} |
#} |
# $request->print($result); |
# $request->print($result); |
$overall_result.=$result; |
$overall_result.=$result; |
|
if (($target eq 'web') && ($viewasuser ne '') && ($symb ne '')) { |
|
my ($vuname,$vudom) = split(/:/,$viewasuser); |
|
$overall_result .= &Apache::grades::view_as_user($symb,$vuname,$vudom). |
|
'</body></html>'; |
|
} |
# $request->rflush(); |
# $request->rflush(); |
} |
} |
|
if (($target eq 'web') && ($viewasuser ne '') && ($symb ne '')) { |
|
undef($env{'request.user_in_effect'}); |
|
} |
#$request->print(":Result ends"); |
#$request->print(":Result ends"); |
#my $td=&tv_interval($t0); |
#my $td=&tv_interval($t0); |
} |
} |
if (!$return_string) { |
if (!$return_string) { |
&Apache::lonxml::add_messages(\$overall_result); |
&Apache::lonxml::add_messages(\$overall_result); |
$request->print($overall_result); |
$request->print($overall_result); |
$request->rflush(); |
$request->rflush(); |
} else { |
} else { |
return $overall_result; |
return $overall_result; |
} |
} |
Line 1581 sub handler {
|
Line 1622 sub handler {
|
($env{'form.problemmode'} eq 'saveeditxml') || |
($env{'form.problemmode'} eq 'saveeditxml') || |
($env{'form.problemmode'} eq 'saveviewxml') || |
($env{'form.problemmode'} eq 'saveviewxml') || |
($env{'form.problemmode'} eq 'undoxml')) { |
($env{'form.problemmode'} eq 'undoxml')) { |
&editxmlmode($request,$file); |
my %editors = &Apache::loncommon::permitted_editors(); |
|
if (($editors{'xml'}) || ($env{'form.problemmode'} eq 'saveviewxml') || ($env{'form.problemmode'} eq 'undoxml')) { |
|
&editxmlmode($request,$file); |
|
} else { |
|
&update_construct_style(); |
|
&renderpage($request,$file); |
|
} |
} elsif ($env{'form.problemmode'} eq 'calcanswers') { |
} elsif ($env{'form.problemmode'} eq 'calcanswers') { |
&analyze($request,$file); |
&analyze($request,$file); |
} else { |
} else { |
Line 1597 sub handler {
|
Line 1644 sub handler {
|
} else { |
} else { |
# Set the event timer to zero if the "done button" was clicked. The button is |
# Set the event timer to zero if the "done button" was clicked. The button is |
# part of the doneButton form created in lonmenu.pm |
# part of the doneButton form created in lonmenu.pm |
my ($donebuttonresult,$donemsg); |
my ($donebuttonresult,$donemsg,$viewasuser); |
if ($symb && $env{'form.LC_interval_done'} eq 'true') { |
if ($symb && $env{'form.LC_interval_done'} eq 'true') { |
($donebuttonresult,$donemsg) = &zero_timer($symb); |
($donebuttonresult,$donemsg) = &zero_timer($symb); |
undef($env{'form.LC_interval_done'}); |
undef($env{'form.LC_interval_done'}); |
undef($env{'form.LC_interval_done_proctorpass'}); |
undef($env{'form.LC_interval_done_proctorpass'}); |
} |
} |
|
if (($env{'form.LC_viewas'} ne '') && $symb && $env{'request.course.id'} && |
|
($Apache::lonhomework::viewgrades || $Apache::lonhomework::modifygrades)) { |
|
if ($env{'form.LC_viewas'} =~ /^($match_username):($match_domain)$/) { |
|
my ($possuname,$possudom) = ($1,$2); |
|
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
|
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'}; |
|
my ($canview,$posssec); |
|
if ($env{'request.course.sec'} ne '') { |
|
if ($Apache::lonhomework::modifygradessec eq $env{'request.course.sec'}) { |
|
$canview = 'section'; |
|
$posssec = $env{'request.course.sec'}; |
|
} elsif ($Apache::lonhomework::viewgradessec eq $env{'request.course.sec'}) { |
|
$canview = 'section'; |
|
$posssec = $env{'request.course.sec'}; |
|
} |
|
} |
|
my $crstype = &Apache::loncommon::course_type(); |
|
if (&Apache::loncourseuser::is_course_user($possudom,$possuname,$cdom,$cnum, |
|
$canview,$crstype,$posssec)) { |
|
$viewasuser = $possuname.':'.$possudom; |
|
} |
|
} |
|
undef($env{'form.LC_viewas'}); |
|
} |
# just render the page normally outside of construction space |
# just render the page normally outside of construction space |
&Apache::lonxml::debug("not construct"); |
&Apache::lonxml::debug("not construct"); |
undef(@Apache::lonhomework::ltipassback); |
undef(@Apache::lonhomework::ltipassback); |
&renderpage($request,$file,undef,undef,$donemsg); |
&renderpage($request,$file,undef,undef,$donemsg,$viewasuser,$symb); |
if (@Apache::lonhomework::ltipassback) { |
if (@Apache::lonhomework::ltipassback) { |
unless ($registered_cleanup) { |
unless ($registered_cleanup) { |
my $handlers = $request->get_handlers('PerlCleanupHandler'); |
my $handlers = $request->get_handlers('PerlCleanupHandler'); |
Line 1811 sub do_ltipassback {
|
Line 1882 sub do_ltipassback {
|
my $url = $item->{'pburl'}; |
my $url = $item->{'pburl'}; |
my $type = $item->{'pbtype'}; |
my $type = $item->{'pbtype'}; |
my $scope = $item->{'scope'}; |
my $scope = $item->{'scope'}; |
my $map = $item->{'ltimap'}; |
my $map = $item->{'pbmap'}; |
my $symb = $item->{'ltisymb'}; |
my $symb = $item->{'pbsymb'}; |
my $uname = $item->{'uname'}; |
my $uname = $item->{'uname'}; |
my $udom = $item->{'udom'}; |
my $udom = $item->{'udom'}; |
my $keynum = $item->{'lti'}->{'cipher'}; |
my $keynum = $item->{'lti'}->{'cipher'}; |
Line 1822 sub do_ltipassback {
|
Line 1893 sub do_ltipassback {
|
if ($scope eq 'resource') { |
if ($scope eq 'resource') { |
$total = $item->{'total'}; |
$total = $item->{'total'}; |
$possible = $item->{'possible'}; |
$possible = $item->{'possible'}; |
} elsif ($scope eq 'map') { |
} elsif (($scope eq 'map') || ($scope eq 'nonrec')) { |
($total,$possible) = &get_lti_score($uname,$udom,$map); |
($total,$possible) = &get_lti_score($uname,$udom,$map,$scope); |
} elsif ($scope eq 'course') { |
} elsif ($scope eq 'course') { |
($total,$possible) = &get_lti_score($uname,$udom); |
($total,$possible) = &get_lti_score($uname,$udom); |
} |
} |
Line 1838 sub do_ltipassback {
|
Line 1909 sub do_ltipassback {
|
} |
} |
|
|
sub get_lti_score { |
sub get_lti_score { |
my ($uname,$udom,$mapurl) = @_; |
my ($uname,$udom,$mapurl,$scope) = @_; |
my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom); |
my $navmap = Apache::lonnavmaps::navmap->new($uname,$udom); |
if (ref($navmap)) { |
if (ref($navmap)) { |
my $iterator; |
my $iterator; |
Line 1846 sub get_lti_score {
|
Line 1917 sub get_lti_score {
|
my $map = $navmap->getResourceByUrl($mapurl); |
my $map = $navmap->getResourceByUrl($mapurl); |
my $firstres = $map->map_start(); |
my $firstres = $map->map_start(); |
my $finishres = $map->map_finish(); |
my $finishres = $map->map_finish(); |
$iterator = $navmap->getIterator($firstres,$finishres,undef,1); |
my $recursive = 1; |
|
if ($scope eq 'nonrec') { |
|
$recursive = 0; |
|
} |
|
$iterator = $navmap->getIterator($firstres,$finishres,undef,$recursive); |
} else { |
} else { |
$iterator = $navmap->getIterator(undef,undef,undef,1); |
$iterator = $navmap->getIterator(undef,undef,undef,1); |
} |
} |