version 1.30.2.1, 2010/01/06 18:23:27
|
version 1.32, 2010/06/06 21:34:23
|
Line 433 sub display_values {
|
Line 433 sub display_values {
|
my ($action,$values)=@_; |
my ($action,$values)=@_; |
my $result='<table>'; |
my $result='<table>'; |
if ($action eq 'CSTORE') { |
if ($action eq 'CSTORE') { |
|
my $is_anon; |
my %values=map {split('=',$_,-1)} split(/\&/,$values); |
my %values=map {split('=',$_,-1)} split(/\&/,$values); |
foreach my $key (sort(keys(%values))) { |
foreach my $key (sort(keys(%values))) { |
|
my $unesc_key = &unescape($key); |
|
if ($values{$key} eq 'anonsurvey' || $values{$key} eq 'anonsurveycred') { |
|
if ($unesc_key =~ /^resource\..+\.type$/) { |
|
$is_anon = 1; |
|
last; |
|
} |
|
} |
$result.='<tr><td align="right">'. |
$result.='<tr><td align="right">'. |
&unescape($key). |
$unesc_key. |
'</td><td>=</td><td align="left">'. |
'</td><td>=</td><td align="left">'. |
&unescape($values{$key}).'</td></tr>'; |
&unescape($values{$key}).'</td></tr>'; |
} |
} |
$result.='</table>'; |
$result.='</table>'; |
|
if ($is_anon) { |
|
$result = '<span class="LC_warning">'.&mt('Anonymous Survey Submission: details not shown').'</span>'; |
|
} |
} elsif ($action eq 'POST') { |
} elsif ($action eq 'POST') { |
my %values; |
my %values; |
foreach my $pair (split(/\&/,$values)) { |
foreach my $pair (split(/\&/,$values)) { |
Line 525 sub handler {
|
Line 536 sub handler {
|
my $r=shift; |
my $r=shift; |
my $c = $r->connection(); |
my $c = $r->connection(); |
# |
# |
# Check for overloading here and on the course home server |
|
my $loaderror=&Apache::lonnet::overloaderror($r); |
|
if ($loaderror) { return $loaderror; } |
|
$loaderror= |
|
&Apache::lonnet::overloaderror |
|
($r, |
|
$env{'course.'.$env{'request.course.id'}.'.home'}); |
|
if ($loaderror) { return $loaderror; } |
|
# |
|
# Check for access |
# Check for access |
if (! &Apache::lonnet::allowed('vsa',$env{'request.course.id'})) { |
if (! &Apache::lonnet::allowed('vsa',$env{'request.course.id'})) { |
$env{'user.error.msg'}= |
$env{'user.error.msg'}= |
Line 553 sub handler {
|
Line 555 sub handler {
|
&Apache::loncommon::content_type($r,'text/html'); |
&Apache::loncommon::content_type($r,'text/html'); |
$r->send_http_header; |
$r->send_http_header; |
if ($r->header_only) { return OK; } |
if ($r->header_only) { return OK; } |
|
|
if (&Apache::loncommon::needs_gci_custom()) { |
|
$r->print(&Apache::loncommon::start_page("Student Activity")); |
|
$r->print('<h3>'. |
|
&mt('No student activity display available for Concept Tests') . |
|
'</h3>'); |
|
$r->print(&Apache::loncommon::end_page()); |
|
return OK; |
|
} |
|
|
|
# |
# |
# Extract form elements from query string |
# Extract form elements from query string |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |