version 1.175, 2003/05/15 21:44:23
|
version 1.177, 2003/05/23 16:26:28
|
Line 193 sub problem_web_to_edit_header {
|
Line 193 sub problem_web_to_edit_header {
|
$result.= ' /> Show All Foils |
$result.= ' /> Show All Foils |
<hr />'; |
<hr />'; |
my $numtoanalyze=$ENV{'form.numtoanalyze'}; |
my $numtoanalyze=$ENV{'form.numtoanalyze'}; |
if (!$numtoanalyze) { $numtoanalyze=100; } |
if (!$numtoanalyze) { $numtoanalyze=20; } |
$result.= '<input type="submit" name="problemmode" value="Answer Distribution" /> |
$result.= '<input type="submit" name="problemmode" value="Calculate answers" /> for |
<input type="text" name="numtoanalyze" value="'. |
<input type="text" name="numtoanalyze" value="'. |
$numtoanalyze.'" size="5" /> <hr />'; |
$numtoanalyze.'" size="5" /> versions of this problem.'. |
|
&Apache::loncommon::help_open_topic("Analyze_Problem", |
|
'',undef,undef,300). |
|
'<hr />'; |
return $result; |
return $result; |
} |
} |
|
|
Line 271 sub start_problem {
|
Line 274 sub start_problem {
|
} |
} |
#initialize globals |
#initialize globals |
$Apache::inputtags::part='0'; |
$Apache::inputtags::part='0'; |
|
@Apache::inputtags::partlist=('0'); |
@Apache::inputtags::responselist = (); |
@Apache::inputtags::responselist = (); |
|
@Apache::inputtags::importlist = (); |
@Apache::inputtags::previous=(); |
@Apache::inputtags::previous=(); |
@Apache::inputtags::previous_version=(); |
@Apache::inputtags::previous_version=(); |
$Apache::structuretags::printanswer='No'; |
$Apache::structuretags::printanswer='No'; |
Line 526 sub end_problem {
|
Line 531 sub end_problem {
|
$result = &problem_edit_footer(); |
$result = &problem_edit_footer(); |
} |
} |
|
|
|
if ($ENV{'request.state'} eq 'construct' && $target eq 'web') { |
|
&Apache::inputtags::check_for_duplicate_ids(); |
|
} |
undef(%Apache::lonhomework::history); |
undef(%Apache::lonhomework::history); |
undef(%Apache::lonhomework::results); |
undef(%Apache::lonhomework::results); |
undef($Apache::inputtags::part); |
undef($Apache::inputtags::part); |
Line 851 sub start_part {
|
Line 859 sub start_part {
|
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
my $id= &Apache::lonxml::get_param('id',$parstack,$safeeval); |
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
if ($id eq '') { $id = $Apache::lonxml::curdepth; } |
$Apache::inputtags::part=$id; |
$Apache::inputtags::part=$id; |
@Apache::inputtags::responselist = (); |
push(@Apache::inputtags::partlist,$id); |
|
@Apache::inputtags::response=(); |
@Apache::inputtags::previous=(); |
@Apache::inputtags::previous=(); |
@Apache::inputtags::previous_version=(); |
@Apache::inputtags::previous_version=(); |
$Apache::lonhomework::problemstatus= |
$Apache::lonhomework::problemstatus= |