--- loncom/homework/structuretags.pm 2023/11/07 12:26:00 1.579
+++ loncom/homework/structuretags.pm 2023/11/17 17:02:21 1.580
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# definition of tags that give a structure to a document
#
-# $Id: structuretags.pm,v 1.579 2023/11/07 12:26:00 raeburn Exp $
+# $Id: structuretags.pm,v 1.580 2023/11/17 17:02:21 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -835,13 +835,18 @@ sub problem_edit_action_button {
sub problem_edit_buttons {
my ($mode)=@_;
+ my %editors = &Apache::loncommon::permitted_editors();
# Buttons that save
my $result = '
';
if ($mode eq 'editxml') {
- $result.=&problem_edit_action_button('subsaveedit','saveeditxml','s','Save and EditXML');
+ if ($editors{'xml'}) {
+ $result.=&problem_edit_action_button('subsaveedit','saveeditxml','s','Save and EditXML');
+ }
$result.=&problem_edit_action_button('subsaveview','saveviewxml','v','Save and View');
} else {
- $result.=&problem_edit_action_button('subsaveedit','saveedit','s','Save and Edit');
+ if ($editors{'edit'}) {
+ $result.=&problem_edit_action_button('subsaveedit','saveedit','s','Save and Edit');
+ }
$result.=&problem_edit_action_button('subsaveview','saveview','v','Save and View');
}
$result.="\n
\n";
@@ -849,13 +854,17 @@ sub problem_edit_buttons {
$result .= ''.
&problem_edit_action_button('subdiscview','discard','d','Discard Edits and View',1);
if ($mode eq 'editxml') {
- $result.=&problem_edit_action_button('subedit','edit','e','Edit',1);
+ if ($editors{'edit'}) {
+ $result.=&problem_edit_action_button('subedit','edit','e','Edit',1);
+ }
$result.=&problem_edit_action_button('subundo','undoxml','u','Undo',1);
if (&Apache::loncommon::nocodemirror()) {
$result.=&Apache::lonhtmlcommon::dragmath_button("LC_editxmltext",1);
}
} else {
- $result.=&problem_edit_action_button('subeditxml','editxml','x','EditXML',1);
+ if ($editors{'xml'}) {
+ $result.=&problem_edit_action_button('subeditxml','editxml','x','EditXML',1);
+ }
$result.=&problem_edit_action_button('subundo','undo','u','Undo',1);
}
$result.="\n
";
@@ -927,6 +936,7 @@ sub option {
sub problem_web_to_edit_header {
my ($rndseed)=@_;
+ my %editors = &Apache::loncommon::permitted_editors();
my $result .= '