[LON-CAPA-cvs] cvs: loncom /enrollment localenroll.pm

matthew lon-capa-cvs@mail.lon-capa.org
Thu, 11 Dec 2003 19:01:33 -0000


matthew		Thu Dec 11 14:01:33 2003 EDT

  Modified files:              
    /loncom/enrollment	localenroll.pm 
  Log:
  Clean up extra '}'.
  
  
Index: loncom/enrollment/localenroll.pm
diff -u loncom/enrollment/localenroll.pm:1.6 loncom/enrollment/localenroll.pm:1.7
--- loncom/enrollment/localenroll.pm:1.6	Thu Dec 11 10:45:25 2003
+++ loncom/enrollment/localenroll.pm	Thu Dec 11 14:01:33 2003
@@ -1,6 +1,6 @@
 # functions to glue school database system into Lon-CAPA for 
 # automated enrollment
-# $Id: localenroll.pm,v 1.6 2003/12/11 15:45:25 albertel Exp $
+# $Id: localenroll.pm,v 1.7 2003/12/11 19:01:33 matthew Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -135,13 +135,12 @@
 ################################
 
 sub fetch_enrollment {
-  my ($dom,$affiliatesref,$replyref) = @_;
-     foreach my $crs (sort keys %{$affiliatesref}) {
-         $$replyref{$crs} = 0;
-     }
-  }
-  my $okflag = 0;
-  return $okflag;
+    my ($dom,$affiliatesref,$replyref) = @_;
+    foreach my $crs (sort keys %{$affiliatesref}) {
+        $$replyref{$crs} = 0;
+    }
+    my $okflag = 0;
+    return $okflag;
 }
 
 ###############################