version 1.173, 2004/04/16 19:10:27
|
version 1.175, 2004/05/25 21:25:53
|
Line 207 sub check_access {
|
Line 207 sub check_access {
|
if ( ! ($ENV{'form.problemstate'} eq 'CANNOT_ANSWER_correct' && |
if ( ! ($ENV{'form.problemstate'} eq 'CANNOT_ANSWER_correct' && |
lc($Apache::lonhomework::problemstatus) eq 'no')) { |
lc($Apache::lonhomework::problemstatus) eq 'no')) { |
return ('CANNOT_ANSWER', |
return ('CANNOT_ANSWER', |
&mt('is in this state by royal decree.')); |
&mt('is in this state due to author settings.')); |
} |
} |
} else { |
} else { |
return ($ENV{'form.problemstate'}, |
return ($ENV{'form.problemstate'}, |
&mt('is in this state by royal decree.')); |
&mt('is in this state due to author settings.')); |
} |
} |
} |
} |
&Apache::lonxml::debug("in construction ignoring dates"); |
&Apache::lonxml::debug("in construction ignoring dates"); |
Line 440 sub analyze_header {
|
Line 440 sub analyze_header {
|
<hr /> |
<hr /> |
<input type="submit" name="submit" value="'.&mt("View").'" /> |
<input type="submit" name="submit" value="'.&mt("View").'" /> |
<hr /> |
<hr /> |
'.&mt('List of possible answers').': |
|
</form>'; |
</form>'; |
&Apache::lonxml::add_messages(\$result); |
&Apache::lonxml::add_messages(\$result); |
$request->print($result); |
$request->print($result); |
Line 465 sub analyze {
|
Line 464 sub analyze {
|
my %prog_state= |
my %prog_state= |
&Apache::lonhtmlcommon::Create_PrgWin($request,&mt('Analyze Progress'), |
&Apache::lonhtmlcommon::Create_PrgWin($request,&mt('Analyze Progress'), |
&mt('Getting Problem Variants'), |
&mt('Getting Problem Variants'), |
$ENV{'form.numtoanalyze'}); |
$ENV{'form.numtoanalyze'}, |
|
'inline',undef); |
for(my $i=1;$i<$ENV{'form.numtoanalyze'}+1;$i++) { |
for(my $i=1;$i<$ENV{'form.numtoanalyze'}+1;$i++) { |
&Apache::lonhtmlcommon::Increment_PrgWin($request,\%prog_state, |
&Apache::lonhtmlcommon::Increment_PrgWin($request,\%prog_state, |
&mt('last problem')); |
&mt('last problem')); |
Line 490 sub analyze {
|
Line 490 sub analyze {
|
} |
} |
&Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state, |
&Apache::lonhtmlcommon::Update_PrgWin($request,\%prog_state, |
&mt('Analyzing Results')); |
&mt('Analyzing Results')); |
|
$request->print('<hr />'.&mt('List of possible answers').': '); |
foreach my $part (sort(keys(%allparts))) { |
foreach my $part (sort(keys(%allparts))) { |
if (defined(@{ $overall{$part.'.answer'} })) { |
if (defined(@{ $overall{$part.'.answer'} })) { |
my $num_cols=scalar(@{ $overall{$part.'.answer'}->[0] }); |
my $num_cols=scalar(@{ $overall{$part.'.answer'}->[0] }); |