[LON-CAPA-cvs] cvs: loncom /enrollment Autoupdate.pl

raeburn raeburn@source.lon-capa.org
Sun, 01 Feb 2009 20:10:27 -0000


raeburn		Sun Feb  1 20:10:27 2009 EDT

  Modified files:              
    /loncom/enrollment	Autoupdate.pl 
  Log:
  - Unescape each status type.
  
  
Index: loncom/enrollment/Autoupdate.pl
diff -u loncom/enrollment/Autoupdate.pl:1.11 loncom/enrollment/Autoupdate.pl:1.12
--- loncom/enrollment/Autoupdate.pl:1.11	Thu Nov 15 21:24:56 2007
+++ loncom/enrollment/Autoupdate.pl	Sun Feb  1 20:10:26 2009
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 # Automated Userinfo update script
-# $Id: Autoupdate.pl,v 1.11 2007/11/15 21:24:56 raeburn Exp $
+# $Id: Autoupdate.pl,v 1.12 2009/02/01 20:10:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -205,7 +205,7 @@
             @inststatuses = @{$insthashref->{'inststatus'}};
         }
     }
-    my @currstatuses = &unescape(split(/:/,$userhash->{'inststatus'}));
+    my @currstatuses = map { &unescape($_); } (split(/:/,$userhash->{'inststatus'}));
     foreach my $status (@inststatuses) {
         if (!grep/^\Q$status\E/,@currstatuses) {
             $insttypechg = 1;