[LON-CAPA-cvs] cvs: modules /msu localenroll.pm

[raeburn]

raeburn		Tue Aug 26 01:01:38 2008 EDT

  Modified files:              
    /modules/msu	localenroll.pm 
  Log:
  - Additional Record_Type (for Graduate Student Instructors with appointments in progress).
  
  
Index: modules/msu/localenroll.pm
diff -u modules/msu/localenroll.pm:1.37 modules/msu/localenroll.pm:1.38
--- modules/msu/localenroll.pm:1.37	Tue Jul  8 01:13:13 2008
+++ modules/msu/localenroll.pm	Tue Aug 26 01:01:35 2008
@@ -1,6 +1,6 @@
 # functions to glue school database system into Lon-CAPA for
 # automated enrollment
-# $Id: localenroll.pm,v 1.37 2008/07/08 05:13:13 raeburn Exp $
+# $Id: localenroll.pm,v 1.38 2008/08/26 05:01:35 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -227,7 +227,7 @@
             my ($dbh,$dbflag) = &connect_DB('RO');
             if ($dbflag) {
 # Check if instructor is in CLIFMS for this course
-                my $clifmscount = $dbh->selectrow_array("SELECT count(*) FROM RO_CLIFMS_VIEW WHERE Term_Code='$sem' AND Subj_Code='$subj' AND Crse_Code='$crse' AND Sctn_Code='$sec' AND MSUNetID='$owner' AND (Record_Type='1' OR Record_Type='2' OR Record_Type ='3')");
+                my $clifmscount = $dbh->selectrow_array("SELECT count(*) FROM RO_CLIFMS_VIEW WHERE Term_Code='$sem' AND Subj_Code='$subj' AND Crse_Code='$crse' AND Sctn_Code='$sec' AND MSUNetID='$owner' AND (Record_Type='1' OR Record_Type='2' OR Record_Type ='3' OR Record_Type = '9')");
                 if ($clifmscount > 0) {
 	       	    my $loncount = $dbh->selectrow_array("SELECT count(*) FROM LONCAPA WHERE Term_Code='$sem' AND Subj_Code='$subj' AND Crse_Code='$crse' AND Sctn_Code='$sec' AND MSUNetID='$owner'");
             	    if ($loncount == 0) {