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

[albertel]

albertel		Thu Dec 11 10:45:26 2003 EDT

  Modified files:              
    /loncom/enrollment	Autoenroll.pl localenroll.pm 
  Log:
  - setting things up so the nightly script has no effect
  
  
Index: loncom/enrollment/Autoenroll.pl
diff -u loncom/enrollment/Autoenroll.pl:1.5 loncom/enrollment/Autoenroll.pl:1.6
--- loncom/enrollment/Autoenroll.pl:1.5	Thu Dec 11 10:39:37 2003
+++ loncom/enrollment/Autoenroll.pl	Thu Dec 11 10:45:25 2003
@@ -1,7 +1,7 @@
 #!/usr/bin/perl
 #
 #Automated Enrollment script
-# $Id: Autoenroll.pl,v 1.5 2003/12/11 15:39:37 albertel Exp $
+# $Id: Autoenroll.pl,v 1.6 2003/12/11 15:45:25 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -35,6 +35,9 @@
     use Apache::loncoursedata;
     use Apache::lonmsg;
     use HTML::Entities;
+
+#only run if configured to
+    if (! &localenroll::run()) { exit; }
 
 # Determine the library server's domain
     my $perlvarref = LONCAPA::Configuration::read_conf('loncapa.conf');
Index: loncom/enrollment/localenroll.pm
diff -u loncom/enrollment/localenroll.pm:1.5 loncom/enrollment/localenroll.pm:1.6
--- loncom/enrollment/localenroll.pm:1.5	Thu Dec 11 10:43:29 2003
+++ loncom/enrollment/localenroll.pm	Thu Dec 11 10:45:25 2003
@@ -1,6 +1,6 @@
 # functions to glue school database system into Lon-CAPA for 
 # automated enrollment
-# $Id: localenroll.pm,v 1.5 2003/12/11 15:43:29 albertel Exp $
+# $Id: localenroll.pm,v 1.6 2003/12/11 15:45:25 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -27,6 +27,13 @@
 package localenroll;
 
 use strict;
+
+################################
+# sub run
+# set this to return 1 if you want the auto enrollment to run
+################################
+
+sub run { return 0; }
 
 ################################
 # sub fetch_enrollment