[LON-CAPA-cvs] cvs: loncom /homework lonhomework.pm

[albertel]

albertel		Fri Feb 10 13:36:37 2006 EDT

  Modified files:              
    /loncom/homework	lonhomework.pm 
  Log:
  - strip trailing and proceeding whitespace
  
  
Index: loncom/homework/lonhomework.pm
diff -u loncom/homework/lonhomework.pm:1.232 loncom/homework/lonhomework.pm:1.233
--- loncom/homework/lonhomework.pm:1.232	Thu Dec 22 17:06:54 2005
+++ loncom/homework/lonhomework.pm	Fri Feb 10 13:36:37 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # The LON-CAPA Homework handler
 #
-# $Id: lonhomework.pm,v 1.232 2005/12/22 22:06:54 albertel Exp $
+# $Id: lonhomework.pm,v 1.233 2006/02/10 18:36:37 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -198,6 +198,8 @@
     my $ip=$ENV{'REMOTE_ADDR'};
     my $name;
     foreach my $pattern (split(',',$acc)) {
+	$pattern =~ s/^\s*//;
+	$pattern =~ s/\s*$//;
 	if ($pattern =~ /\*$/) {
 	    #35.8.*
 	    $pattern=~s/\*//;