version 1.135, 2010/03/15 17:27:40
|
version 1.136, 2010/03/30 16:06:21
|
Line 61 described at http://www.lon-capa.org.
|
Line 61 described at http://www.lon-capa.org.
|
|
|
=item creation_display_filter() |
=item creation_display_filter() |
|
|
=item course_types() |
|
|
|
=item context_names() |
=item context_names() |
|
|
=item instcode_srchstr() |
=item instcode_srchstr() |
Line 722 sub print_intro_page {
|
Line 720 sub print_intro_page {
|
name => &mt('Approve or reject requests'), |
name => &mt('Approve or reject requests'), |
short_description => |
short_description => |
&mt('Display course and community creation requests submitted by authorized users, held pending approval by a Domain Coordinator.'), |
&mt('Display course and community creation requests submitted by authorized users, held pending approval by a Domain Coordinator.'), |
}, |
}, |
|
{ internal_name => 'pendingdisplay', |
|
name => &mt('Display official course requests'), |
|
short_description => |
|
&mt('Display official course requests submitted by authorized users, held pending validation of instructor status.'), |
|
}, |
{ internal_name => 'creationlog', |
{ internal_name => 'creationlog', |
name => &mt('View creation log'), |
name => &mt('View creation log'), |
short_description => |
short_description => |
&mt('Display information about when, how and by whom courses and communities were created in this domain.'), |
&mt('Display information about when, how and by whom courses and communities were created in this domain.'), |
}, |
}, |
); |
); |
my $options; |
my $options; |
foreach my $choice (@choices) { |
foreach my $choice (@choices) { |
Line 814 sub courserequestbrowser_javascript {
|
Line 817 sub courserequestbrowser_javascript {
|
<script type="text/javascript"> |
<script type="text/javascript"> |
// <![CDATA[ |
// <![CDATA[ |
var steditbrowser; |
var steditbrowser; |
function opencoursereqdisplay(cdom,cnum) { |
function opencoursereqdisplay(cdom,cnum,queue) { |
var url = '/adm/requestcourse?action=display'; |
var url = '/adm/requestcourse?action=display'; |
url += '&showdom='+cdom+'&cnum='+cnum; |
url += '&showdom='+cdom+'&cnum='+cnum+'&queue='+queue; |
var title = 'Course_Request_Browser'; |
var title = 'Course_Request_Browser'; |
var options = 'scrollbars=1,resizable=1,menubar=0'; |
var options = 'scrollbars=1,resizable=1,menubar=0'; |
options += ',width=700,height=600'; |
options += ',width=700,height=600'; |
var stdeditbrowser = open(url,title,options,'1'); |
var stdeditbrowser = open(url,title,options,'1'); |
stdeditbrowser.focus(); |
stdeditbrowser.focus(); |
} |
} |
|
|
// ]]> |
// ]]> |
</script> |
</script> |
ENDREQBRW |
ENDREQBRW |
Line 850 sub print_creation_logs {
|
Line 854 sub print_creation_logs {
|
foreach my $item ('show','page','type','context') { |
foreach my $item ('show','page','type','context') { |
$curr{$item} = $env{'form.'.$item}; |
$curr{$item} = $env{'form.'.$item}; |
} |
} |
my $createdafter = &Apache::lonhtmlcommon::get_date_from_form('created_after_date'); |
|
my $createdbefore = &Apache::lonhtmlcommon::get_date_from_form('created_before_date'); |
|
$curr{'created_after_date'} = &Apache::lonhtmlcommon::get_date_from_form('created_after_date'); |
$curr{'created_after_date'} = &Apache::lonhtmlcommon::get_date_from_form('created_after_date'); |
$curr{'created_before_date'} = &Apache::lonhtmlcommon::get_date_from_form('created_before_date'); |
$curr{'created_before_date'} = &Apache::lonhtmlcommon::get_date_from_form('created_before_date'); |
foreach my $key (keys(%defaults)) { |
foreach my $key (keys(%defaults)) { |
Line 925 sub print_creation_logs {
|
Line 927 sub print_creation_logs {
|
undef,undef,undef,$curr{'created_before_date'}, |
undef,undef,undef,$curr{'created_before_date'}, |
$curr{'created_after_date'},$creationcontext); |
$curr{'created_after_date'},$creationcontext); |
foreach my $cid (sort { $courses{$b}{'created'}<=>$courses{$a}{'created'} } (keys(%courses))) { |
foreach my $cid (sort { $courses{$b}{'created'}<=>$courses{$a}{'created'} } (keys(%courses))) { |
|
if ($curr{'show'} ne &mt('all')) { |
|
if ($count >= $curr{'page'} * $curr{'show'}) { |
|
$more_records = 1; |
|
last; |
|
} |
|
} |
$count ++; |
$count ++; |
next if ($count < $minshown); |
next if ($count < $minshown); |
if (!$showntablehdr) { |
if (!$showntablehdr) { |
Line 1060 sub creation_display_filter {
|
Line 1068 sub creation_display_filter {
|
&Apache::lonhtmlcommon::date_setter($formname,'created_before_date', |
&Apache::lonhtmlcommon::date_setter($formname,'created_before_date', |
$curr->{'created_before_date'},undef, |
$curr->{'created_before_date'},undef, |
undef,undef,undef,undef,undef,undef,$nolink); |
undef,undef,undef,undef,undef,undef,$nolink); |
$output .= '<td valign="top"><b>'.&mt('Window during which course was created:').'</b><br />'. |
$output .= '<td valign="top"><b>'.&mt('Window during which course/community was created:').'</b><br />'. |
'<table><tr><td>'.&mt('After:'). |
'<table><tr><td>'.&mt('After:'). |
'</td><td>'.$startform.'</td></tr>'. |
'</td><td>'.$startform.'</td></tr>'. |
'<tr><td>'.&mt('Before:').'</td>'. |
'<tr><td>'.&mt('Before:').'</td>'. |
'<td>'.$endform.'</td></tr></table>'. |
'<td>'.$endform.'</td></tr></table>'. |
'</td>'. |
'</td>'. |
'<td> </td>'; |
'<td> </td>'; |
my ($types,$typenames) = &course_types(); |
my ($types,$typenames) = &Apache::loncommon::course_types(); |
if (ref($types) eq 'ARRAY') { |
if (ref($types) eq 'ARRAY') { |
if (@{$types} > 1) { |
if (@{$types} > 1) { |
$output .= '<td valign="top"><b>'. |
$output .= '<td valign="top"><b>'. |
Line 1119 sub creation_display_filter {
|
Line 1127 sub creation_display_filter {
|
return $output; |
return $output; |
} |
} |
|
|
sub course_types { |
|
my @types = qw(official unofficial community); |
|
my %typename = ( |
|
official => 'Official course', |
|
unofficial => 'Unofficial course', |
|
community => 'Community', |
|
); |
|
return (\@types,\%typename); |
|
} |
|
|
|
sub context_names { |
sub context_names { |
my @contexts = qw(auto web dc_create requestcourses); |
my @contexts = qw(auto web dc_create requestcourses); |
my %contextnames = |
my %contextnames = |
Line 1253 sub handler {
|
Line 1251 sub handler {
|
'domain',$env{'request.role.domain'}).'</div>'. |
'domain',$env{'request.role.domain'}).'</div>'. |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
} elsif ($env{'form.phase'} eq 'requestchange') { |
} elsif ($env{'form.phase'} eq 'requestchange') { |
|
if ($env{'form.queue'} eq 'pending') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"/adm/createcourse?phase=pendingdisplay", |
|
text=>&mt('Display Pending Queue',), |
|
faq=>9,bug=>'Dom Coord Interface',}); |
|
} else { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"/adm/createcourse?phase=requestdisplay", |
|
text=>&mt('[_1] Display Request Queue',), |
|
faq=>9,bug=>'Dom Coord Interface',}); |
|
} |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"/adm/createcourse?phase=requestdisplay", |
({href=>"/adm/createcourse?phase=requestchange", |
text=>&mt('[_1] Display Request Queue',), |
text=>&mt('[_1] Requests Updated',), |
faq=>9,bug=>'Dom Coord Interface',}, |
faq=>9,bug=>'Dom Coord Interface',},); |
{href=>"/adm/createcourse?phase=requestchange", |
|
text=>&mt('[_1] Requests Updated',), |
|
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_Request',undef,'Course_Request'); |
$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>'. |
&Apache::loncommon::end_page()); |
&Apache::loncommon::end_page()); |
|
} elsif ($env{'form.phase'} eq 'pendingdisplay') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"/adm/createcourse?phase=$env{'form.phase'}", |
|
text=>&mt('Display Pending Queue',), |
|
faq=>9,bug=>'Dom Coord Interface',}); |
|
my $js = &courserequestbrowser_javascript(); |
|
my $start_page=&Apache::loncommon::start_page('Display Pending Queue',$js); |
|
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Display Pending Queue','Course_Request',undef,'Course_Request'); |
|
$r->print($start_page.$crumbs."\n".'<div>'. |
|
&Apache::loncoursequeueadmin::display_queued_requests( |
|
'pending',$env{'request.role.domain'}).'</div>'. |
|
&Apache::loncommon::end_page()); |
|
} elsif ($env{'form.phase'} eq 'requestvalidation') { |
|
my $js = &courserequestbrowser_javascript(); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"/adm/createcourse?phase=pendingdisplay", |
|
text=>&mt('Display Pending Queue'),}, |
|
{href=>"/adm/createcourse?phase=requestvalidation", |
|
text=>&mt('Validation Attempted'),},); |
|
my $start_page=&Apache::loncommon::start_page('Requests Validation Result',$js); |
|
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('Validation Attempted','Course_Request',undef,'Course_Request'); |
|
$r->print($start_page.$crumbs."\n".'<div>'. |
|
&Apache::loncoursequeueadmin::process_official_reqs('domain',$env{'request.role.domain'}).'</div>'. |
|
&Apache::loncommon::end_page()); |
} elsif ($env{'form.phase'} eq 'creationlog') { |
} elsif ($env{'form.phase'} eq 'creationlog') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"/adm/createcourse?phase=creationlog", |
({href=>"/adm/createcourse?phase=creationlog", |