#!/bin/env perl ################################### # # Put this course and its students/faculty into the database. # # $Id: configure 117 2005-02-02 00:13:38Z mahoney $ ################################# use warnings; use strict; use cs::Database; use cs::Utilities qw(populateCourse); my $semester = 'Spring 2005'; my $coursename = 'Empirical Science Workshop'; my @faculty = qw( bengel mahoney norsen matt jenram todds allisont ); my @students = qw( randerso mlewis jshumway chatesnj pkoskemc dgg wpasour jwelch rnash mose kristen leo glein eschraff); populateCourse( semester => $semester, coursename => $coursename, faculty => \@faculty, students => \@students, );