version 1.151, 2013/12/17 14:28:36
|
version 1.158, 2015/06/09 21:22:56
|
Line 133 sub print_course_creation_page {
|
Line 133 sub print_course_creation_page {
|
} else { |
} else { |
my $title_alert = &mt('A Community title is required'); |
my $title_alert = &mt('A Community title is required'); |
my $coord_alert = &mt('The username of the Coordinator is required'); |
my $coord_alert = &mt('The username of the Coordinator is required'); |
|
&js_escape(\$title_alert); |
|
&js_escape(\$coord_alert); |
$javascript_validations = qq| |
$javascript_validations = qq| |
function validate(formname) { |
function validate(formname) { |
if (formname.title == '') { |
if (formname.title == '') { |
Line 158 function validate(formname) {
|
Line 160 function validate(formname) {
|
'snid' => "Section Numbers and corresponding LON-CAPA section IDs", |
'snid' => "Section Numbers and corresponding LON-CAPA section IDs", |
'csli' => "a comma separated list of institutional section numbers, each separated by a colon from the (optional) corresponding section ID to be used in LON-CAPA e.g., 001:1,002:2", |
'csli' => "a comma separated list of institutional section numbers, each separated by a colon from the (optional) corresponding section ID to be used in LON-CAPA e.g., 001:1,002:2", |
'crcs' => "Crosslisted courses", |
'crcs' => "Crosslisted courses", |
'cscs' => "a comma separated list of course sections crosslisted with the current course, with each entry including the institutional course section name followed by a colon and then the (optional) sectionID to be used in LON-CAPA, e.g., fs03ent231001:ent1,fs03bot231001:bot1,fs03zol231002:zol2", |
'cscs' => "a comma separated list of course sections crosslisted with the current course, with each entry including the institutional course section name followed by a colon and then the (optional) section ID to be used in LON-CAPA, e.g., fs03ent231001:ent1,fs03bot231001:bot1,fs03zol231002:zol2", |
'ccre' => "Course credits", |
'ccre' => "Course credits", |
|
'crcd' => "Create six character course identifier to share with students", |
'cred' => "the number of institutional credits students will earn by completing this course", |
'cred' => "the number of institutional credits students will earn by completing this course", |
'crco' => "Course Content", |
'crco' => "Course Content", |
'cncr' => "Completely new course", |
'cncr' => "Completely new course", |
Line 317 END
|
Line 320 END
|
$r->print(&Apache::lonhtmlcommon::row_headline() |
$r->print(&Apache::lonhtmlcommon::row_headline() |
.'<h3>'.$lt{'iinf'}.'</h3>' |
.'<h3>'.$lt{'iinf'}.'</h3>' |
.$lt{'stat'}.' ' |
.$lt{'stat'}.' ' |
.&mt('Default credits can also be specified, if different from the domain defaults (official courses: [_1]; unofficial courses: [_2]).', |
.&mt('Default credits can also be specified, if different from the domain defaults (official courses: [_1]; unofficial courses: [_2]; textbook courses: [_3]).', |
$domdefaults{'officialcredits'},$domdefaults{'unofficialcredits'}) |
$domdefaults{'officialcredits'},$domdefaults{'unofficialcredits'},$domdefaults{'textbookcredits'}) |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
|
|
.&Apache::lonhtmlcommon::row_title($lt{'ccod'}) |
.&Apache::lonhtmlcommon::row_title($lt{'ccod'}) |
Line 336 END
|
Line 339 END
|
.'<br />('.$lt{'cscs'}.')' |
.'<br />('.$lt{'cscs'}.')' |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
); |
); |
if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'}) { |
if ($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'} || $domdefaults{'textbookcredits'}) { |
$r->print(&Apache::lonhtmlcommon::row_title($lt{'ccre'}) |
$r->print(&Apache::lonhtmlcommon::row_title($lt{'ccre'}) |
.'<input type="text" size="3" name="defaultcredits" />' |
.'<input type="text" size="3" name="defaultcredits" />' |
.'<br />('.$lt{'cred'}.')' |
.'<br />('.$lt{'cred'}.')' |
.&Apache::lonhtmlcommon::row_closure() |
.&Apache::lonhtmlcommon::row_closure() |
); |
); |
} |
} |
|
$r->print(&Apache::lonhtmlcommon::row_title($lt{'crcd'}) |
|
.'<span class="LC_nobreak">' |
|
.'<input type="radio" name="uniquecode" value="1" />'.&mt('Yes').(' 'x2) |
|
.'<input type="radio" name="uniquecode" value="0" checked="checked" />'.&mt('No') |
|
.&Apache::lonhtmlcommon::row_closure() |
|
); |
} |
} |
# Table: New Course / Clone Course |
# Table: New Course / Clone Course |
$r->print(&Apache::lonhtmlcommon::row_headline() |
$r->print(&Apache::lonhtmlcommon::row_headline() |
Line 649 sub create_course {
|
Line 658 sub create_course {
|
}; |
}; |
|
|
if (($crstype eq 'Course') && |
if (($crstype eq 'Course') && |
($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'})) { |
($domdefaults{'officialcredits'} || $domdefaults{'unofficialcredits'} || $domdefaults{'textbookcredits'})) { |
$args->{'defaultcredits'} = $env{'form.defaultcredits'}; |
$args->{'defaultcredits'} = $env{'form.defaultcredits'}; |
} |
} |
|
|
|
if ($env{'form.uniquecode'}) { |
|
$args->{'uniquecode'} = 1; |
|
} |
|
|
# |
# |
# Verify data |
# Verify data |
# |
# |
Line 681 sub create_course {
|
Line 694 sub create_course {
|
,$env{'form.course_home'}.&Apache::loncommon::end_page())); |
,$env{'form.course_home'}.&Apache::loncommon::end_page())); |
return; |
return; |
} |
} |
my ($courseid,$crsudom,$crsunum); |
my ($courseid,$crsudom,$crsunum,$code); |
my ($success,$output) = |
my ($success,$output) = |
&Apache::loncommon::construct_course($args,\$logmsg,\$courseid, |
&Apache::loncommon::construct_course($args,\$logmsg,\$courseid, |
\$crsudom,\$crsunum, |
\$crsudom,\$crsunum, |
$env{'user.domain'}, |
$env{'user.domain'}, |
$env{'user.name'},'dc_create'); |
$env{'user.name'},'dc_create',undef,undef,\$code); |
$r->print($output); |
$r->print($output); |
if ($success) { |
if ($success) { |
# |
# |
Line 706 sub create_course {
|
Line 719 sub create_course {
|
$r->print( |
$r->print( |
'<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>'); |
'<p><a href="/adm/managekeys?cid='.$crsudom.'_'.$crsunum.'">'.&mt('Manage Access Keys').'</a></p>'); |
} |
} |
|
if ($code) { |
|
$r->print( |
|
'<p>'.&mt('Course identifier to share with students: [_1]',$code).'</p>' |
|
); |
|
} |
# Flush the course logs so reverse user roles immediately updated |
# Flush the course logs so reverse user roles immediately updated |
$r->register_cleanup(\&Apache::lonnet::flushcourselogs); |
$r->register_cleanup(\&Apache::lonnet::flushcourselogs); |
$r->print('<p>'.&mt('Roles will be active at next login').'.</p>'); |
$r->print('<p>'.&mt('Roles will be active at next login').'.</p>'); |
Line 1142 sub creation_display_filter {
|
Line 1160 sub creation_display_filter {
|
$typename = $typenames->{$type}; |
$typename = $typenames->{$type}; |
} |
} |
} |
} |
$output .= '<option value="'.$type.'"'.$selstr.'>'.$typename.'</option>'."\n"; |
$output .= '<option value="'.$type.'"'.$selstr.'>'.&mt($typename).'</option>'."\n"; |
} |
} |
$output .= '</select></td>'; |
$output .= '</select></td>'; |
} |
} |
Line 1300 sub handler {
|
Line 1318 sub handler {
|
faq=>9,bug=>'Dom Coord Interface',}); |
faq=>9,bug=>'Dom Coord Interface',}); |
my $js = &courserequestbrowser_javascript(); |
my $js = &courserequestbrowser_javascript(); |
my $start_page=&Apache::loncommon::start_page('Display Requests',$js); |
my $start_page=&Apache::loncommon::start_page('Display Requests',$js); |
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Display Requests','Course_Request',undef,'Course_Request'); |
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Display Requests','Course_Requests',undef,'Course_Requests'); |
$r->print($start_page.$crumbs."\n".'<div>'. |
$r->print($start_page.$crumbs."\n".'<div>'. |
&Apache::loncoursequeueadmin::display_queued_requests( |
&Apache::loncoursequeueadmin::display_queued_requests( |
'domain',$env{'request.role.domain'}).'</div>'. |
'domain',$env{'request.role.domain'}).'</div>'. |
Line 1322 sub handler {
|
Line 1340 sub handler {
|
text=>&mt('[_1] Requests Updated',), |
text=>&mt('[_1] Requests Updated',), |
faq=>9,bug=>'Dom Coord Interface',},); |
faq=>9,bug=>'Dom Coord Interface',},); |
my $start_page=&Apache::loncommon::start_page('Update Requests Result'); |
my $start_page=&Apache::loncommon::start_page('Update Requests Result'); |
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Requests Updated','Course_Request',undef,'Course_Request'); |
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Requests Updated','Course_Requests',undef,'Course_Requests'); |
$r->print($start_page.$crumbs."\n".'<div>'. |
$r->print($start_page.$crumbs."\n".'<div>'. |
&Apache::loncoursequeueadmin::update_request_queue( |
&Apache::loncoursequeueadmin::update_request_queue( |
'domain',$env{'request.role.domain'}).'</div>'. |
'domain',$env{'request.role.domain'}).'</div>'. |
Line 1334 sub handler {
|
Line 1352 sub handler {
|
faq=>9,bug=>'Dom Coord Interface',}); |
faq=>9,bug=>'Dom Coord Interface',}); |
my $js = &courserequestbrowser_javascript(); |
my $js = &courserequestbrowser_javascript(); |
my $start_page=&Apache::loncommon::start_page('Display Pending Queue',$js); |
my $start_page=&Apache::loncommon::start_page('Display Pending Queue',$js); |
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Display Pending Queue','Course_Request',undef,'Course_Request'); |
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Display Pending Queue','Course_Requests',undef,'Course_Requests'); |
$r->print($start_page.$crumbs."\n".'<div>'. |
$r->print($start_page.$crumbs."\n".'<div>'. |
&Apache::loncoursequeueadmin::display_queued_requests( |
&Apache::loncoursequeueadmin::display_queued_requests( |
'pending',$env{'request.role.domain'}).'</div>'. |
'pending',$env{'request.role.domain'}).'</div>'. |
Line 1347 sub handler {
|
Line 1365 sub handler {
|
{href=>"/adm/createcourse?phase=requestvalidation", |
{href=>"/adm/createcourse?phase=requestvalidation", |
text=>&mt('Validation Attempted'),},); |
text=>&mt('Validation Attempted'),},); |
my $start_page=&Apache::loncommon::start_page('Requests Validation Result',$js); |
my $start_page=&Apache::loncommon::start_page('Requests Validation Result',$js); |
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Validation Attempted','Course_Request',undef,'Course_Request'); |
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Validation Attempted','Course_Requests',undef,'Course_Requests'); |
$r->print($start_page.$crumbs."\n".'<div>'. |
$r->print($start_page.$crumbs."\n".'<div>'. |
&Apache::loncoursequeueadmin::process_official_reqs('domain',$env{'request.role.domain'}).'</div>'. |
&Apache::loncoursequeueadmin::process_official_reqs('domain',$env{'request.role.domain'}).'</div>'. |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |