version 1.461.2.1, 2010/08/09 23:39:50
|
version 1.462, 2009/12/06 21:22:50
|
Line 254 sub page_start {
|
Line 254 sub page_start {
|
my $page_start = &Apache::loncommon::start_page($name,$extra_head, |
my $page_start = &Apache::loncommon::start_page($name,$extra_head, |
\%body_args); |
\%body_args); |
$page_start .= $pageheader; |
$page_start .= $pageheader; |
|
if (!defined($found{'body'}) |
unless ($env{'request.gcicontext'} eq 'buildtest') { |
&& $env{'request.state'} ne 'construct' |
if (!defined($found{'body'}) |
&& ($target eq 'web' || $target eq 'webgrade')) { |
&& $env{'request.state'} ne 'construct' |
|
&& ($target eq 'web' || $target eq 'webgrade')) { |
my ($symb,undef,undef,undef,$publicuser)= &Apache::lonnet::whichuser(); |
|
if ($symb eq '' && !$publicuser) { |
my ($symb,undef,undef,undef,$publicuser)= &Apache::lonnet::whichuser(); |
$page_start .= '<p class="LC_info">' |
if ($symb eq '' && !$publicuser) { |
.&mt('Browsing resource, all submissions are temporary.') |
$page_start .= '<p class="LC_info">' |
.'</p>'; |
.&mt('Browsing resource, all submissions are temporary.') |
|
.'</p>'; |
|
} |
|
} |
} |
} |
} |
|
|
Line 654 item store_aggregates()
|
Line 651 item store_aggregates()
|
|
|
sub store_aggregates { |
sub store_aggregates { |
my ($symb,$courseid) = @_; |
my ($symb,$courseid) = @_; |
my (%aggregate,%subtracker); |
my %aggregate; |
my $tracksub; |
|
if ($symb =~ m{^uploaded/gcitest/$LONCAPA::match_courseid/default_1261144274.sequence___\d+___gci/gci/}) { |
|
$tracksub = 1; |
|
} |
|
my @parts; |
my @parts; |
my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cdomain = $env{'course.'.$env{'request.course.id'}.'.domain'}; |
my $cname = $env{'course.'.$env{'request.course.id'}.'.num'}; |
my $cname = $env{'course.'.$env{'request.course.id'}.'.num'}; |
Line 673 sub store_aggregates {
|
Line 666 sub store_aggregates {
|
$Apache::lonhomework::results{'resource.'.$part.'.award'} |
$Apache::lonhomework::results{'resource.'.$part.'.award'} |
eq 'EXACT_ANS') { |
eq 'EXACT_ANS') { |
$aggregate{$symb."\0".$part."\0correct"} = 1; |
$aggregate{$symb."\0".$part."\0correct"} = 1; |
if ($tracksub) { |
|
$subtracker{$env{'user.name'}.':'.$env{'user.domain'}."\0correct"} ++; |
|
} |
|
} |
} |
if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) { |
if ($Apache::lonhomework::results{'resource.'.$part.'.tries'} == 1) { |
$aggregate{$symb."\0".$part."\0users"} = 1; |
$aggregate{$symb."\0".$part."\0users"} = 1; |
Line 688 sub store_aggregates {
|
Line 678 sub store_aggregates {
|
} |
} |
} |
} |
$aggregate{$symb."\0".$part."\0attempts"} = 1; |
$aggregate{$symb."\0".$part."\0attempts"} = 1; |
if ($tracksub) { |
|
if ($Apache::lonhomework::type eq 'survey') { |
|
$subtracker{$env{'user.name'}.':'.$env{'user.domain'}."\0surveysubs"} ++; |
|
} else { |
|
$subtracker{$env{'user.name'}.':'.$env{'user.domain'}."\0attempts"} ++; |
|
} |
|
} |
|
} |
} |
if (keys (%aggregate) > 0) { |
if (keys (%aggregate) > 0) { |
&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate, |
&Apache::lonnet::cinc('nohist_resourcetracker',\%aggregate, |
$cdomain,$cname); |
$cdomain,$cname); |
} |
} |
if (keys(%subtracker) > 0) { |
|
&Apache::lonnet::cinc('nohist_submissiontracker',\%subtracker, |
|
$cdomain,$cname); |
|
} |
|
} |
} |
|
|
sub checkout_msg { |
sub checkout_msg { |
Line 935 sub start_problem {
|
Line 914 sub start_problem {
|
if ($env{'request.state'} ne "construct" && |
if ($env{'request.state'} ne "construct" && |
($symb eq '' || $Apache::lonhomework::type eq 'practice')) { |
($symb eq '' || $Apache::lonhomework::type eq 'practice')) { |
$form_tag_start.='<input type="hidden" name="rndseed" value="'. |
$form_tag_start.='<input type="hidden" name="rndseed" value="'. |
$rndseed.'" />'; |
$rndseed.'" />'. |
unless ($env{'request.gcicontext'} eq 'buildtest') { |
'<input type="submit" name="resetdata" |
$form_tag_start .= '<input type="submit" name="resetdata"'. |
value="'.&mt('New Problem Variation').'" />'; |
' value="'.&mt('New Problem Variation').'" />'; |
|
} |
|
if (exists($env{'form.username'})) { |
if (exists($env{'form.username'})) { |
$form_tag_start.= |
$form_tag_start.= |
'<input type="hidden" name="username" |
'<input type="hidden" name="username" |
value="'.$env{'form.username'}.'" />'; |
value="'.$env{'form.username'}.'" />'; |
} |
} |
unless ($env{'request.gcicontext'} eq 'buildtest') { |
if ($env{'request.role.adv'}) { |
if ($env{'request.role.adv'}) { |
$form_tag_start.= ' <label class="LC_nobreak">' |
$form_tag_start.= ' <label class="LC_nobreak">' |
.'<input type="checkbox" name="showallfoils"'; |
.'<input type="checkbox" name="showallfoils"'; |
if (defined($env{'form.showallfoils'})) { |
if (defined($env{'form.showallfoils'})) { |
$form_tag_start.=' checked="checked"'; |
$form_tag_start.=' checked="checked"'; |
} |
} |
$form_tag_start.= ' /> ' |
$form_tag_start.= ' /> ' |
.&mt('Show All Foils') |
.&mt('Show All Foils') |
.'</label>'; |
.'</label>'; |
} |
} |
|
} |
|
if ($Apache::lonhomework::type eq 'practice') { |
if ($Apache::lonhomework::type eq 'practice') { |
$form_tag_start.=&practice_problem_header(); |
$form_tag_start.=&practice_problem_header(); |
} |
} |
unless ($env{'request.gcicontext'} eq 'buildtest') { |
$form_tag_start.='<hr />'; |
$form_tag_start.='<hr />'; |
|
} |
|
} |
} |
|
|
($status,$accessmsg,my $slot_name,my $slot) = |
($status,$accessmsg,my $slot_name,my $slot) = |