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

albertel lon-capa-cvs@mail.lon-capa.org
Sat, 12 Nov 2005 03:58:56 -0000


albertel		Fri Nov 11 22:58:56 2005 EDT

  Modified files:              
    /loncom/interface/statistics	lonstathelpers.pm 
  Log:
  - ? in a part id was casuing ahvoc here
  
  
Index: loncom/interface/statistics/lonstathelpers.pm
diff -u loncom/interface/statistics/lonstathelpers.pm:1.50 loncom/interface/statistics/lonstathelpers.pm:1.51
--- loncom/interface/statistics/lonstathelpers.pm:1.50	Tue Apr 19 09:59:35 2005
+++ loncom/interface/statistics/lonstathelpers.pm	Fri Nov 11 22:58:55 2005
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstathelpers.pm,v 1.50 2005/04/19 13:59:35 matthew Exp $
+# $Id: lonstathelpers.pm,v 1.51 2005/11/12 03:58:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1135,8 +1135,8 @@
                 }
             }
             # End of logging code
-            next if ($key !~ /^$part/);
-            $key =~ s/^$part\.//;
+            next if ($key !~ /^\Q$part\E/);
+            $key =~ s/^\Q$part\E\.//;
             if (ref($value) eq 'ARRAY') {
                 if ($key eq 'options') {
                     $Partdata{$part}->{'_Options'}=$value;