--- trunk/webwork/system/scripts/readURClassList.pl	2001/06/14 17:08:51	2
+++ trunk/webwork/system/scripts/readURClassList.pl	2002/08/27 16:24:33	513
@@ -1,8 +1,16 @@
-#!/usr/bin/perl
+#!/usr/local/bin/webwork-perl
 
 ## $Id$
 
-use lib '/ww/webwork/development/'; # mainWeBWorKDirectory;
+BEGIN {
+	my $useLibDir = '.';
+	if    ($0 =~ m|^(/.*)/|)  { $useLibDir = $1; }
+	elsif ($0 =~ m|^(\..*)/|) { $useLibDir = $1; }
+	elsif ($0 =~ m|^(.+)/|)   { $useLibDir = "./$1"; }
+	unshift @INC, $useLibDir;
+}
+
+use webworkInit; # WeBWorKInitLine
 use Global;
 
 
@@ -62,10 +70,11 @@
     my($lname, $fname) = ($name =~ /^(.*),\s*(.*)$/);
     if ($login =~/\w/) {$email = "$login".'@mail.rochester.edu';}
     else
-	{
-	$email= " ";
-	$login = $id;
+		{
+		$email= " ";
+		$login = $id;
 	}
+	$status = 'C' unless (defined $status and $status =~/\w/);
   ## dump it in our classArray format
   ## our format is: $id, $lname, $fname, $status, 'comment ', $dept, $course, $section,
   ## $hours, $crn, $year, $semester, $school, $gradyear, $major, $degree, $email, $login