#!/bin/env perl
###################################
#
# Put this course and its students/faculty into the database.
#
# $Id: configure 360 2005-05-23 17:33:02Z mahoney $
#################################
use warnings;
use strict;
use cs::Database;
use cs::Utilities qw(populateCourse);

# Fix course name
#my $course = cs::Course->retrieve(6);
#$course->name('Argentine Tango');
#exit;

my $semester   = 'Spring 2005';
my $coursename = 'Argentine Tango';
my @faculty  = qw( mahoney );
my @students = qw(
		  abolduc lcantora sdarrow lala emmer	      
		  emilyf eliot jgraham mkaiser bryon robokop
		  alatour leeji benjamin sumcc mmrowick hopsahlg
		  blreed kschrull nsmith astimson etate waggoner
		 );

# my @names = qw( nuit stimson harry waggoner saari callaghan martin
#		emmer carter schrull henderson gluckman minna lalae
#		leya sonia graham melissa nathan lee tasha foster downey
#		abigail talia susanna reed
#             
#	      );
#use MarlboroLDAP qw(users_from_names);
#@my @folks = users_from_names(@names);
#print '  ' . $_->{displayName} . ' (' . $_->{uid} . ")\n" for @folks;

# -- registered as of mid-term
#  1 Abigail (Abby) Bolduc (abolduc)
#  2 Leza Cantoral (lcantora)	
#  3 Sonia Darrow (sdarrow)		
#  4 Lalae Deihim-Panah (lala)	
#  5 Elizabeth (Liz) Emmer (emmer)	      
#  6 Emily Foster (emilyf)
#  7 Eliot Gluckman (eliot)
#  8 Jamie Graham (jgraham)
#  9 Melissa Kaiser (mkaiser)
# 10 Bryon Kershaw (bryon)
# 11 Saari Koponen-Robotham (robokop)
# 12 Amee Latour (alatour)
# 13 Jennifer (Jenn) Lee (leeji)
# 14 Benjamin (Ben) Martin (benjamin)
# 15 Susanna McClintock (sumcc)
# 16 Maria Mrowicki (mmrowick)
# 17 Harry Opsahl-Gee (hopsahlg)
# 18 Brian Reed (blreed)
# 19 Kirsten Schrull (kschrull)
# 20 Nathan Smith (nsmith)
# 21 Abraham Stimson (astimson)
# 22 Emily Tate (etate)
# 23 Sarah Waggoner (waggoner)

# ----- originally signed up
# 1  Abigail (Abby) Bolduc (abolduc)
# 2  Leza Cantoral (lcantora)
# 3  John Carter (jcarter)
# 4  Tasha Connolly (tasha)
# 5  Sonia Darrow (sdarrow)
# 6  Lalae Deihim-Panah (lala)
# 7  Cara Downey (cdowney)
# 8  Elizabeth (Liz) Emmer (emmer)
# 9  Emily Foster (emilyf)
#10  Eliot Gluckman (eliot)
#11  Jamie Graham (jgraham)
#12  Carlus (Max) Henderson (chenders)
#13  Callaghan Howard (calla)
#14  Melissa Kaiser (mkaiser)
#15  Saari Koponen-Robotham (robokop)
#16  Atalia (Talia) Krohmal (akrohmal)
#17  Jennifer (Jenn) Lee (leeji)
#18  Benjamin (Ben) Martin (benjamin)
#19  Susanna McClintock (sumcc)
#    Amber Nuite (ambern)
#20  Harry Opsahl-Gee (hopsahlg)
#21  Brian Reed (blreed)
#22  Minna Roussi (minnar)
#23  Kirsten Schrull (kschrull)
#24  Nathan Smith (nsmith)
#25  Abraham Stimson (astimson)
#26  Sarah Waggoner (waggoner)

# Removing old registration info :
#   cssql
#   mysql> select * from Course;
#     ... see that Tango is course 6
#   mysql> delete * from Registration where Registration.course=6;


populateCourse( semester   => $semester,
		coursename => $coursename,
		faculty    => \@faculty,
		students   => \@students,
	      );