[LON-CAPA-cvs] cvs: loncom /interface lontrackstudent.pm

raeburn raeburn@source.lon-capa.org
Sun, 06 Jun 2010 21:34:23 -0000


raeburn		Sun Jun  6 21:34:23 2010 EDT

  Modified files:              
    /loncom/interface	lontrackstudent.pm 
  Log:
  - bug 6119 Anonymous Surveys.
   - Do not display submission data from a CSTORE transaction when the submission 
     was for an Anonymous Survey.
  
  
Index: loncom/interface/lontrackstudent.pm
diff -u loncom/interface/lontrackstudent.pm:1.31 loncom/interface/lontrackstudent.pm:1.32
--- loncom/interface/lontrackstudent.pm:1.31	Mon May  3 16:41:51 2010
+++ loncom/interface/lontrackstudent.pm	Sun Jun  6 21:34:23 2010
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lontrackstudent.pm,v 1.31 2010/05/03 16:41:51 www Exp $
+# $Id: lontrackstudent.pm,v 1.32 2010/06/06 21:34:23 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -433,14 +433,25 @@
     my ($action,$values)=@_;
     my $result='<table>';
     if ($action eq 'CSTORE') {
+        my $is_anon;
 	my %values=map {split('=',$_,-1)} split(/\&/,$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">'.
-		&unescape($key).
+		$unesc_key.
 		'</td><td>=</td><td align="left">'.
 		&unescape($values{$key}).'</td></tr>';
 	}
 	$result.='</table>';
+        if ($is_anon) {
+            $result = '<span class="LC_warning">'.&mt('Anonymous Survey Submission: details not shown').'</span>';
+        }
     } elsif ($action eq 'POST') {
 	my %values;
         foreach my $pair (split(/\&/,$values)) {