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

[raeburn]

raeburn		Thu Dec  4 12:05:32 2003 EDT

  Modified files:              
    /modules/raeburn	localenroll.pm 
  Log:
  Updating for consistency with revision to Enrollment.pm and lonpopulate.pm
  
  
Index: modules/raeburn/localenroll.pm
diff -u modules/raeburn/localenroll.pm:1.1 modules/raeburn/localenroll.pm:1.2
--- modules/raeburn/localenroll.pm:1.1	Mon Dec  1 19:21:28 2003
+++ modules/raeburn/localenroll.pm	Thu Dec  4 12:05:32 2003
@@ -9,17 +9,17 @@
   $ENV{SYBASE} = '/usr/local/freetds';
 
   my $DB_PATH = "dbi:Sybase:server=ESDB1;database=RO_ClassList";
-  my $DB_USER ="loncapa";
-  my $DB_PASSWD = "";  # Not stored in CVS
+  my $DB_USER =""; # Not stored in CVS
+  my $DB_PASSWD = ""; # Not stored in CVS
 
-  my %configvars = &LONCAPA::Configuration::read_conf('loncapa.conf');
+  my $configvars = &LONCAPA::Configuration::read_conf('loncapa.conf');
 
   my $dbh= DBI->connect($DB_PATH,$DB_USER,$DB_PASSWD);
   my $dbflag = 0;
   if (defined $dbh) {
      $dbflag = 1; 
      foreach my $crs (sort keys %{$affiliatesref}) {
-         my $xmlfile =  $configvars{'lonDaemons'}."/tmp/".$dom."_".$crs."_classlist.xml";
+         my $xmlfile =  $$configvars{'lonDaemons'}."/tmp/".$dom."_".$crs."_classlist.xml";
          $$replyref{$crs} = &write_class_data ($dbh,$xmlfile,\@{$$affiliatesref{$crs}});
      }
      $dbh->disconnect;
@@ -37,7 +37,6 @@
 |;
   foreach my $class (@{$coursesref}) {
       if ($class =~ m/^([suf]s\d{2})(\w{2,3})(\d{3,4}\w?)(\d{3})$/) {
-          print STDERR "Looking for data for $1 $2 $3 $4\n";
           my $sth = $dbh->prepare("SELECT Pid,Pilot_Id,Student_Name FROM LONCAPA_ClassList WHERE Term_Code = '$1' AND Subj_Code = '$2' AND Crse_Code = '$3' AND Sctn_Code = '$4'  ORDER BY Student_Name");
           $sth->execute();
           while ( my($pid,$pilot,$name)  = $sth->fetchrow_array ) {