'.
&Apache::loncommon::help_open_topic('Problem_Editor_XML_Index',
'Problem Editing Help').' | '.
&Apache::loncommon::help_open_faq(5).
@@ -213,10 +213,10 @@ sub option {
sub problem_web_to_edit_header {
my ($rndseed)=@_;
my $result.='
-
-
-
-
+
+
+
+
- ".&option('exam' ,'problemtype')."Exam Problem
- ".&option('problem','problemtype')."Homework problem
- ".&option('survey' ,'problemtype')."Survey Question
+ ".&option('exam' ,'problemtype').&mt("Exam Problem")."
+ ".&option('problem','problemtype').&mt("Homework problem")."
+ ".&option('survey' ,'problemtype').&mt("Survey Question")."
Feedback Mode:
-
+
";
my $numtoanalyze=$ENV{'form.numtoanalyze'};
if (!$numtoanalyze) { $numtoanalyze=20; }
@@ -336,14 +336,8 @@ sub init_problem_globals {
if ($type eq 'problem') {
$Apache::inputtags::part='0';
@Apache::inputtags::partlist=('0');
- $Apache::lonhomework::problemstatus=
- &Apache::lonnet::EXT('resource.0.problemstatus');
- &Apache::lonxml::debug("problem status is $Apache::lonhomework::problemstatus");
- &Apache::lonxml::debug("env probstat is ".$ENV{'form.problemstatus'});
- if ($ENV{'request.state'} eq 'construct' &&
- defined($ENV{'form.problemstatus'})) {
- $Apache::lonhomework::problemstatus=$ENV{'form.problemstatus'};
- }
+
+ $Apache::lonhomework::problemstatus=&get_problem_status('0')
} else {
$Apache::inputtags::part='';
@Apache::inputtags::partlist=();
@@ -373,6 +367,26 @@ sub reset_problem_globals {
undef($Apache::lonhomework::name);
}
+sub set_problem_state {
+ my ($part)=@_;
+ if ($ENV{'form.problemstate'} eq 'CANNOT_ANSWER_correct') {
+ $Apache::lonhomework::history{"resource.$part.solved"}=
+ 'correct_by_student';
+ }
+}
+
+sub get_problem_status {
+ my ($part)=@_;
+ my $problem_status=&Apache::lonnet::EXT("resource.$part.problemstatus");
+ &Apache::lonxml::debug("problem status for $part is $problem_status");
+ &Apache::lonxml::debug("env probstat is ".$ENV{'form.problemstatus'});
+ if ($ENV{'request.state'} eq 'construct' &&
+ defined($ENV{'form.problemstatus'})) {
+ $problem_status=$ENV{'form.problemstatus'};
+ }
+ return $problem_status;
+}
+
sub start_problem {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
@@ -395,17 +409,13 @@ sub start_problem {
if ($target eq 'web') {
&Apache::lonhomework::showhash(%Apache::lonhomework::history);
}
- if ($ENV{'request.state'} eq 'construct' &&
- $ENV{'form.problemstate'} eq 'CANNOT_ANSWER_correct' ) {
- $Apache::lonhomework::history{'resource.0.solved'}=
- 'correct_by_student';
- }
+ if ($ENV{'request.state'} eq 'construct') { &set_problem_state('0'); }
$Apache::lonhomework::type=&Apache::lonnet::EXT('resource.0.type');
if (($ENV{'request.state'} eq 'construct') &&
defined($ENV{'form.problemtype'})) {
$Apache::lonhomework::type=$ENV{'form.problemtype'};
}
- &Apache::lonxml::debug("Found this to be of type :$Apache::lonhomework::type:");
+ &Apache::lonxml::debug("Found this to be of type :$Apache::ltonhomework::type:");
}
if ($Apache::lonhomework::type eq '' ) {
my $uri=$ENV{'request.uri'};
@@ -646,7 +656,10 @@ sub end_problem {
sub start_library {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;
my ($result,$head_tag_start,$body_tag_start,$form_tag_start);
- if ($$tagstack[0] eq 'library') { &init_problem_globals('library') };
+ if ($$tagstack[0] eq 'library') {
+ &init_problem_globals('library');
+ $Apache::lonhomework::type='problem';
+ }
if ($target eq 'edit') {
($result,$head_tag_start,$body_tag_start,$form_tag_start)=
&page_start($target,$token,$tagstack,$parstack,$parser,$safeeval);
@@ -990,8 +1003,7 @@ sub start_part {
@Apache::inputtags::response=();
@Apache::inputtags::previous=();
@Apache::inputtags::previous_version=();
- $Apache::lonhomework::problemstatus=
- &Apache::lonnet::EXT("resource.$id.problemstatus");
+ $Apache::lonhomework::problemstatus=&get_problem_status($id);
my $hidden=&Apache::loncommon::check_if_partid_hidden($Apache::inputtags::part);
my $expression='$external::part=\''.$Apache::inputtags::part.'\';';
&Apache::run::run($expression,$safeeval);
@@ -1010,6 +1022,9 @@ sub start_part {
my $expression='$external::datestatus="'.$status.'";';
$expression.='$external::gradestatus="'.$Apache::lonhomework::history{"resource.$id.solved"}.'";';
&Apache::run::run($expression,$safeeval);
+ if ($ENV{'request.state'} eq 'construct') {
+ &set_problem_state($Apache::inputtags::part);
+ }
if (( $status eq 'CLOSED' ) ||
( $status eq 'UNCHECKEDOUT') ||
( $status eq 'BANNED') ||
|