version 1.344.2.10.4.5, 2024/01/13 12:31:32
|
version 1.344.2.10.4.8, 2024/02/28 21:03:29
|
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::loncapamath(); |
use Apache::loncourseuser(); |
use Apache::loncourseuser(); |
use Apache::grades(); |
use Apache::grades(); |
use Apache::Constants qw(:common); |
use Apache::Constants qw(:common); |
Line 162 sub get_target {
|
Line 163 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 881 sub analyze_header {
|
Line 892 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 1135 sub editxmlmode {
|
Line 1154 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 1167 sub editxmlmode {
|
Line 1187 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 1603 sub handler {
|
Line 1623 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 1811 sub helpmenu_datastructure {
|
Line 1837 sub helpmenu_datastructure {
|
['Other_Symbols.hlp', &mt('Other Symbols'), 500, 600], |
['Other_Symbols.hlp', &mt('Other Symbols'), 500, 600], |
['Authoring_Output_Tags.hlp', &mt('Output Tags'), 800, 600], |
['Authoring_Output_Tags.hlp', &mt('Output Tags'), 800, 600], |
['Authoring_Multilingual_Problems.hlp', &mt('Languages'), 800, 600], |
['Authoring_Multilingual_Problems.hlp', &mt('Languages'), 800, 600], |
|
['loncapa.html', &mt('Reference'), 800, 600], |
]; |
]; |
|
|
my $help_structure = []; |
my $help_structure = []; |
Line 1857 sub do_ltipassback {
|
Line 1884 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'}; |