################################################################################
# WeBWorK Online Homework Delivery System
# Copyright © 2000-2003 The WeBWorK Project, http://openwebwork.sf.net/
# $CVSHeader: webwork-modperl/lib/WeBWorK/ContentGenerator/Skeleton.pm,v 1.2 2004/03/15 21:13:06 sh002i Exp $
#
# This program is free software; you can redistribute it and/or modify it under
# the terms of either: (a) the GNU General Public License as published by the
# Free Software Foundation; either version 2, or (at your option) any later
# version, or (b) the "Artistic License" which comes with this package.
#
# This program is distributed in the hope that it will be useful, but WITHOUT
# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS
# FOR A PARTICULAR PURPOSE. See either the GNU General Public License or the
# Artistic License for more details.
################################################################################
package WeBWorK::ContentGenerator::CourseAdmin;
use base qw(WeBWorK::ContentGenerator);
=head1 NAME
WeBWorK::ContentGenerator::CourseAdmin - Add, rename, and delete courses.
=cut
use strict;
use warnings;
use CGI::Pretty qw();
use Data::Dumper;
use WeBWorK::Utils qw(cryptPassword);
use WeBWorK::Utils::CourseManagement qw(addCourse);
# SKEL: If you need to do any processing before the HTTP header is sent, do it
# in this method:
#
#sub pre_header_initialize {
# my ($self) = @_;
#
# # Do your processing here! Don't print or return anything -- store data in
# # the self hash for later retrieveal.
#}
# SKEL: To emit your own HTTP header, uncomment this:
#
#sub header {
# my ($self) = @_;
#
# # Generate your HTTP header here.
#
# # If you return something, it will be used as the HTTP status code for this
# # request. The Apache::Constants module might be useful for gerating status
# # codes. If you don't return anything, the status code "OK" will be used.
# return "";
#}
# SKEL: If you need to do any processing after the HTTP header is sent, but before
# any template processing occurs, or you need to calculate values that will be
# used in multiple methods, do it in this method:
#
#sub initialize {
# my ($self) = @_;
#
# # Do your processing here! Don't print or return anything -- store data in
# # the self hash for later retrieveal.
#}
# SKEL: If you need to add tags to the document , uncomment this method:
#
#sub head {
# my ($self) = @_;
#
# # You can print head tags here, like ,