{ my $seq_id = $app->select_nextval('course___id'); # my $seq_id = 28; my $school_id = $app->select_school_id('Harvard University'); $app->insert_course( $seq_id, 'Intermediate Sanskrit', 'http://www.registrar.fas.harvard.edu/Courses/SanskritandIndianStudies.html', $school_id,

'' , 'Sanskrit 102b');

my $x = $app->select_id_for_person_type('lecturer');
my $cl = $app->select_person($x, 'Kuijp', 'Leonard', 'W. J. van der');
$app->insert_course_lecturer($seq_id, $cl);

# my $mid = 10;# "A Rapid Sanskrit Method" $app->select_id_from_name('Bhagavad Gita', 'book'); # my $mtid = $app->select_id_from_name('book','material_type'); # warn "$app->insert_course_material($seq_id, $mtid, $mid);"; # $app->insert_course_material($seq_id, $mtid, $mid); }