--- loncom/interface/loncreatecourse.pm 2008/06/24 15:51:25 1.108 +++ loncom/interface/loncreatecourse.pm 2008/07/01 05:22:59 1.108.2.1 @@ -1,7 +1,7 @@ # The LearningOnline Network # Create a course # -# $Id: loncreatecourse.pm,v 1.108 2008/06/24 15:51:25 bisitz Exp $ +# $Id: loncreatecourse.pm,v 1.108.2.1 2008/07/01 05:22:59 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -44,10 +44,11 @@ use LONCAPA; sub print_course_creation_page { my $r=shift; - my $crstype = 'Group'; - if ($env{'form.phase'} eq 'courseone') { - $crstype = 'Course'; - } + my $crstype = 'Course'; +# my $crstype = 'Group'; +# if ($env{'form.phase'} eq 'courseone') { +# $crstype = 'Course'; +# } my $defdom=$env{'request.role.domain'}; my %host_servers = &Apache::lonnet::get_servers($defdom,'library'); my $course_home = '<select name="course_home" size="1">'."\n"; @@ -716,24 +717,27 @@ sub create_course { sub print_intro_page { my $r = shift; my $start_page = - &Apache::loncommon::start_page('Create a New Course or Group Space'); +# &Apache::loncommon::start_page('Create a New Course or Group Space'); + &Apache::loncommon::start_page('Create a New Course'); my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Creation Options','Create_Course',undef,'Create_Courses'); my $end_page = &Apache::loncommon::end_page(); - my $helplink=&Apache::loncommon::help_open_topic('Create_Course_GroupSpace',&mt('Help on Creating Courses and Groups')); +# my $helplink=&Apache::loncommon::help_open_topic('Create_Course_GroupSpace',&mt('Help on Creating Courses and Groups')); + my $helplink=&Apache::loncommon::help_open_topic('Create_Course_GroupSpace',&mt('Help on Creating Courses')); my @choices = ({ internal_name => 'courseone', name => &mt('Create a single course'), short_description => &mt('Create a new course by completing an online form.'), }, - { internal_name => 'groupone', - name => &mt('Create a single collaborative group space'), - short_description => - &mt('Create a new group space for non-course use by completing an online form.'), - }, +# { internal_name => 'groupone', +# name => &mt('Create a single collaborative group space'), +# short_description => +# &mt('Create a new group space for non-course use by completing an online form.'), +# }, { internal_name => 'batchone', - name => &mt('Create courses/groups by uploading an attributes file'), +# name => &mt('Create courses/groups by uploading an attributes file'), + name => &mt('Create courses by uploading an attributes file'), short_description => &mt('Upload an attributes file containing specifications for one or more courses or groups in XML format.'), help => 'Batch_Creation', @@ -762,18 +766,22 @@ ENDDOCUMENT sub upload_batchfile { my $r = shift; my $start_page = - &Apache::loncommon::start_page('Create a New Course or Group Space'); - my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Upload Course/Group Attributes File','Create_Course',undef,'Create_Courses'); +# &Apache::loncommon::start_page('Create a New Course or Group Space'); + &Apache::loncommon::start_page('Create a New Course'); +# my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Upload Course/Group Attributes File','Create_Course',undef,'Create_Courses'); + my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Upload Course Attributes File','Create_Course',undef,'Create_Courses'); my $end_page = &Apache::loncommon::end_page(); $r->print($start_page.$crumbs); - $r->print('<h3>'.&mt('Upload a courses or groups attributes file').'</h3>'); +# $r->print('<h3>'.&mt('Upload a courses or groups attributes file').'</h3>'); + $r->print('<h3>'.&mt('Upload a courses attributes file').'</h3>'); $r->print('<form name="batchcreate" method="post" '. 'enctype="multipart/form-data" action="/adm/createcourse">'. '<input type="file" name="coursecreatorxml" />'. '<input type="hidden" name="phase" value="batchtwo"><br /><br />'. '<input type="submit" name="batchsubmit" '. - 'value="Create Courses/Groups" /></form>'); +# 'value="Create Courses/Groups" /></form>'); + 'value="'.&mt('Create Courses').'" /></form>'); $r->print($end_page); return; } @@ -781,7 +789,8 @@ sub upload_batchfile { sub process_batchfile { my $r = shift; my $start_page = - &Apache::loncommon::start_page('Create a New Course or Group Space'); +# &Apache::loncommon::start_page('Create a New Course or Group Space'); + &Apache::loncommon::start_page('Create a New Course'); my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Creation Outcome','Create_Course',undef,'Create_Courses'); my $end_page = &Apache::loncommon::end_page();