version 1.31, 2010/05/03 16:41:51
|
version 1.33, 2011/12/21 21:25:40
|
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 581 sub handler {
|
Line 592 sub handler {
|
'<input type="text" name="status" size="60" value="" readonly="readonly" />'). |
'<input type="text" name="status" size="60" value="" readonly="readonly" />'). |
'</div>'); |
'</div>'); |
$r->rflush(); |
$r->rflush(); |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin |
my %prog_state=&Apache::lonhtmlcommon::Create_PrgWin($r); |
($r,&mt('Student Activity Retrieval'), |
|
&mt('Student Activity Retrieval'),undef,'inline',undef, |
|
'trackstudent','status'); |
|
&Apache::lonhtmlcommon::Update_PrgWin |
&Apache::lonhtmlcommon::Update_PrgWin |
($r,\%prog_state,&mt('Contacting course home server')); |
($r,\%prog_state,&mt('Contacting course home server')); |
# |
# |