#!/bin/env perl
###################################
#
# Put this course and its students/faculty into the database.
#
# $Id: configure 118 2005-02-02 00:18:38Z mahoney $
#################################
use warnings;
use strict;
# --------------------------------------

my $semester   = 'Spring 2005';
my $coursename = 'Demo Course';
my @faculty    = qw( mahoney );
my @students   = qw( janedoe );

# --------------------------------------
use cs::Database;
use cs::Utilities qw(populateCourse);
populateCourse( semester   => $semester,
		coursename => $coursename,
		faculty    => \@faculty,
		students   => \@students,
	      );