version 1.36, 2009/09/13 03:13:55
|
version 1.39, 2009/11/04 17:42:17
|
Line 52 described at http://www.lon-capa.org.
|
Line 52 described at http://www.lon-capa.org.
|
|
|
=item onload_action() |
=item onload_action() |
|
|
=item check_can_request() |
|
|
|
=item course_types() |
|
|
|
=item print_main_menu() |
=item print_main_menu() |
|
|
=item request_administration() |
=item request_administration() |
Line 134 sub handler {
|
Line 130 sub handler {
|
} |
} |
|
|
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'}, |
['action','showdom','cnum','state']); |
['action','showdom','cnum','state','crstype']); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
my $dom = &get_course_dom(); |
my $dom = &get_course_dom(); |
my $action = $env{'form.action'}; |
my $action = $env{'form.action'}; |
Line 276 sub handler {
|
Line 272 sub handler {
|
|
|
my $loaditems = &onload_action($action,$state); |
my $loaditems = &onload_action($action,$state); |
|
|
my %can_request; |
my (%can_request,%request_domains); |
my $canreq = &check_can_request($dom,\%can_request); |
my $canreq = |
|
&Apache::lonnet::check_can_request($dom,\%can_request,\%request_domains); |
if ($action eq 'new') { |
if ($action eq 'new') { |
if ($canreq) { |
if ($canreq) { |
if ($state eq 'crstype') { |
if ($state eq 'crstype') { |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems, |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems, |
$crumb); |
$crumb,\%request_domains); |
} else { |
} else { |
&request_administration($r,$action,$state,$page,\%states,$dom, |
&request_administration($r,$action,$state,$page,\%states,$dom, |
$jscript,$loaditems,$crumb,$newinstcode, |
$jscript,$loaditems,$crumb,$newinstcode, |
Line 297 sub handler {
|
Line 294 sub handler {
|
} |
} |
} elsif ($action eq 'view') { |
} elsif ($action eq 'view') { |
if ($state eq 'crstype') { |
if ($state eq 'crstype') { |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,$crumb); |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,$loaditems,$crumb,\%request_domains); |
} else { |
} else { |
&request_administration($r,$action,$state,$page,\%states,$dom,$jscript, |
&request_administration($r,$action,$state,$page,\%states,$dom,$jscript, |
$loaditems,$crumb); |
$loaditems,$crumb); |
Line 316 sub handler {
|
Line 313 sub handler {
|
} elsif ($action eq 'log') { |
} elsif ($action eq 'log') { |
&print_request_logs($jscript,$loaditems,$crumb); |
&print_request_logs($jscript,$loaditems,$crumb); |
} else { |
} else { |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb); |
&print_main_menu($r,\%can_request,\%states,$dom,$jscript,'',$crumb,\%request_domains); |
} |
} |
return OK; |
return OK; |
} |
} |
Line 594 sub onload_action {
|
Line 591 sub onload_action {
|
return \%loaditems; |
return \%loaditems; |
} |
} |
|
|
sub check_can_request { |
|
my ($dom,$can_request) = @_; |
|
my $canreq = 0; |
|
my ($types,$typename) = &course_types(); |
|
my @options = ('approval','validate','autolimit'); |
|
my $optregex = join('|',@options); |
|
if ((ref($can_request) eq 'HASH') && (ref($types) eq 'ARRAY')) { |
|
foreach my $type (@{$types}) { |
|
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
|
$env{'user.domain'}, |
|
$type,undef,'requestcourses')) { |
|
$canreq ++; |
|
if ($dom eq $env{'user.domain'}) { |
|
$can_request->{$type} = 1; |
|
} |
|
} |
|
if ($env{'environment.reqcrsotherdom.'.$type} ne '') { |
|
my @curr = split(',',$env{'environment.reqcrsotherdom.'.$type}); |
|
if (@curr > 0) { |
|
$canreq ++; |
|
unless ($dom eq $env{'user.domain'}) { |
|
if (grep(/^\Q$dom\E:($optregex)(=?\d*)$/,@curr)) { |
|
$can_request->{$type} = 1; |
|
} |
|
} |
|
} |
|
} |
|
} |
|
} |
|
return $canreq; |
|
} |
|
|
|
sub course_types { |
|
my @types = ('official','unofficial','community'); |
|
my %typename = ( |
|
official => 'Official course', |
|
unofficial => 'Unofficial course', |
|
community => 'Community', |
|
); |
|
return (\@types,\%typename); |
|
} |
|
|
|
|
|
sub print_main_menu { |
sub print_main_menu { |
my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb) = @_; |
my ($r,$can_request,$states,$dom,$jscript,$loaditems,$crumb,$request_domains) = @_; |
my ($types,$typename) = &course_types(); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
my $onchange; |
my $onchange; |
unless ($env{'form.interface'} eq 'textual') { |
unless ($env{'form.interface'} eq 'textual') { |
$onchange = 1; |
$onchange = 'this.form.submit()'; |
} |
} |
|
|
my $nextstate_setter = "\n"; |
my $nextstate_setter = "\n"; |
Line 682 function check_can_request(crschoice,act
|
Line 636 function check_can_request(crschoice,act
|
var unofficial = ''; |
var unofficial = ''; |
var community = ''; |
var community = ''; |
END |
END |
|
if (ref($can_request) eq 'HASH') { |
foreach my $item (keys(%{$can_request})) { |
foreach my $item (keys(%{$can_request})) { |
$js .= " |
$js .= " |
$item = 1; |
$item = 1; |
"; |
"; |
|
} |
} |
} |
my %lt = &Apache::lonlocal::texthash( |
my %lt = &Apache::lonlocal::texthash( |
official => 'You are not permitted to request creation of an official course in this domain.', |
official => 'You are not permitted to request creation of an official course in this domain.', |
Line 722 END
|
Line 677 END
|
} |
} |
return true; |
return true; |
} |
} |
|
|
END |
END |
|
my ($pagetitle,$pageinfo,$domaintitle); |
$r->print(&header('Course Requests',$js.$jscript,$loaditems).$crumb. |
if (ref($can_request) eq 'HASH') { |
'<p>'.&mt('Request creation of a new course, or review your pending course requests.').'</p>'. |
if (($can_request->{'official'}) || ($can_request->{'unofficial'})) { |
|
if ($can_request->{'community'}) { |
|
$pagetitle = 'Course/Community Requests'; |
|
$pageinfo = &mt('Request creation of a new course or community, or review your pending requests.'); |
|
$domaintitle = &mt('Course/Community Domain'); |
|
} else { |
|
$pagetitle = 'Course Requests'; |
|
$pageinfo = &mt('Request creation of a new course, or review your pending course requests.'); |
|
$domaintitle = &mt('Course Domain'); |
|
} |
|
} elsif ($can_request->{'community'}) { |
|
$pagetitle = 'Course/Community Requests'; |
|
$pageinfo = &mt('Request creation of a new course or community, or review your pending requests.'); |
|
$domaintitle = &mt('Community Domain'); |
|
} else { |
|
$pagetitle = 'Course/Community Requests'; |
|
$pageinfo = &mt('You do not have rights to request creation of courses in this domain; please choose a different domain.'); |
|
$domaintitle = &mt('Course/Community Domain'); |
|
} |
|
} |
|
my @incdoms; |
|
if (ref($request_domains) eq 'HASH') { |
|
foreach my $item (keys(%{$request_domains})) { |
|
if (ref($request_domains->{$item}) eq 'ARRAY') { |
|
foreach my $possdom (@{$request_domains->{$item}}) { |
|
unless(grep(/^\Q$possdom\E$/,@incdoms)) { |
|
push(@incdoms,$possdom); |
|
} |
|
} |
|
} |
|
} |
|
} |
|
$r->print(&header($pagetitle,$js.$jscript,$loaditems).$crumb. |
|
'<p>'.$pageinfo.'</p>'. |
'<div>'. |
'<div>'. |
&Apache::lonhtmlcommon::start_pick_box(). |
&Apache::lonhtmlcommon::start_pick_box(). |
&Apache::lonhtmlcommon::row_title(&mt('Course Domain')). |
&Apache::lonhtmlcommon::row_title($domaintitle). |
'<form name="domforcourse" method="post" action="/adm/requestcourse">'. |
'<form name="domforcourse" method="post" action="/adm/requestcourse">'. |
&Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange)); |
&Apache::loncommon::select_dom_form($dom,'showdom','',1,$onchange,\@incdoms)); |
if (!$onchange) { |
if (!$onchange) { |
$r->print(' <input type="submit" name="godom" value="'. |
$r->print(' <input type="submit" name="godom" value="'. |
&mt('Change').'" />'); |
&mt('Change').'" />'); |
} |
} |
|
unless ((ref($can_request) eq 'HASH') && (keys(%{$can_request}) > 0)) { |
|
$r->print(&Apache::lonhtmlcommon::row_closure(1)."\n". |
|
&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n". |
|
&Apache::loncommon::end_page()); |
|
return; |
|
} |
$r->print('</form>'.&Apache::lonhtmlcommon::row_closure()); |
$r->print('</form>'.&Apache::lonhtmlcommon::row_closure()); |
|
|
my $formname = 'requestcrs'; |
my $formname = 'requestcrs'; |
my $nexttext = &mt('Next'); |
my $nexttext = &mt('Next'); |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Action')).' |
$r->print(&Apache::lonhtmlcommon::row_title(&mt('Action')).' |
Line 748 END
|
Line 740 END
|
<option value="log">'.&mt('View request history').'</option> |
<option value="log">'.&mt('View request history').'</option> |
</select></form>'. |
</select></form>'. |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_title(&mt('Course Type')).' |
&Apache::lonhtmlcommon::row_title(&mt('Type')).' |
<form name="mainmenu_coursetype" method="post" action=""> |
<form name="mainmenu_coursetype" method="post" action=""> |
<select size="1" name="crstype"> |
<select size="1" name="crstype">'); |
<option value="any">'.&mt('All types').'</option>'); |
if (ref($can_request) eq 'HASH') { |
if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) { |
if (keys(%{$can_request}) > 1) { |
foreach my $type (@{$types}) { |
$r->print(' <option value="any">'.&mt('All types').'</option>'); |
my $selected = ''; |
} |
if ($type eq 'official') { |
if ((ref($types) eq 'ARRAY') && (ref($typename) eq 'HASH')) { |
$selected = ' selected="selected"'; |
foreach my $type (@{$types}) { |
|
next unless($can_request->{$type}); |
|
my $selected = ''; |
|
if ($env{'form.crstype'} eq '') { |
|
if ($type eq 'official') { |
|
$selected = ' selected="selected"'; |
|
} |
|
} else { |
|
if ($type eq $env{'form.crstype'}) { |
|
$selected = ' selected="selected"'; |
|
} |
|
} |
|
$r->print('<option value="'.$type.'"'.$selected.'>'.&mt($typename->{$type}). |
|
'</option>'."\n"); |
} |
} |
$r->print('<option value="'.$type.'"'.$selected.'>'.&mt($typename->{$type}). |
|
'</option>'."\n"); |
|
} |
} |
} |
} |
$r->print('</select></form>'."\n". |
$r->print('</select></form>'."\n". |
&Apache::lonhtmlcommon::row_closure(1)."\n". |
&Apache::lonhtmlcommon::row_closure(1)."\n". |
&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n". |
&Apache::lonhtmlcommon::end_pick_box().'</div>'."\n". |
'<div><form name="'.$formname.'" method="post" action="">'."\n". |
'<div><form name="'.$formname.'" method="post" action="/adm/requestcourse">'."\n". |
'<input type="hidden" name="state" value="crstype" />'."\n". |
'<input type="hidden" name="state" value="crstype" />'."\n". |
'<input type="hidden" name="showdom" value="'.$dom.'" />'."\n". |
'<input type="hidden" name="showdom" value="'.$dom.'" />'."\n". |
'<input type="hidden" name="crstype" value="" />'."\n". |
'<input type="hidden" name="crstype" value="" />'."\n". |
Line 1751 sub print_request_status {
|
Line 1754 sub print_request_status {
|
my %statusinfo = &Apache::lonnet::dump('courserequests',$env{'user.domain'}, |
my %statusinfo = &Apache::lonnet::dump('courserequests',$env{'user.domain'}, |
$env{'user.name'},'^status:'.$dom); |
$env{'user.name'},'^status:'.$dom); |
my ($output,$formname,%queue_by_date); |
my ($output,$formname,%queue_by_date); |
my ($types,$typenames) = &course_types(); |
my ($types,$typenames) = &Apache::loncommon::course_types(); |
foreach my $key (keys(%statusinfo)) { |
foreach my $key (keys(%statusinfo)) { |
if (($statusinfo{$key} eq 'approval') || ($statusinfo{$key} eq 'pending')) { |
if (($statusinfo{$key} eq 'approval') || ($statusinfo{$key} eq 'pending')) { |
(undef,my($cdom,$cnum)) = split(':',$key); |
(undef,my($cdom,$cnum)) = split(':',$key); |
Line 1873 sub print_cancel_request {
|
Line 1876 sub print_cancel_request {
|
} |
} |
$output = &mt('No further action will be taken'); |
$output = &mt('No further action will be taken'); |
} elsif (ref($history{'details'}) eq 'HASH') { |
} elsif (ref($history{'details'}) eq 'HASH') { |
my ($types,$typename) = &course_types(); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
my $showtype = $crstype; |
my $showtype = $crstype; |
if (defined($typename->{$crstype})) { |
if (defined($typename->{$crstype})) { |
$showtype = $typename->{$crstype}; |
$showtype = $typename->{$crstype}; |
Line 1959 sub print_request_logs {
|
Line 1962 sub print_request_logs {
|
sub print_review { |
sub print_review { |
my ($dom,$codetitles,$cat_titles,$cat_order,$code_order,$uname,$udom, |
my ($dom,$codetitles,$cat_titles,$cat_order,$code_order,$uname,$udom, |
$disallowed,$disallowmsg) = @_; |
$disallowed,$disallowmsg) = @_; |
my ($types,$typename) = &course_types(); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
my ($owner,$ownername,$owneremail); |
my ($owner,$ownername,$owneremail); |
if ($uname eq '' || $udom eq '') { |
if ($uname eq '' || $udom eq '') { |
$uname = $env{'user.name'}; |
$uname = $env{'user.name'}; |
Line 2082 sub print_review {
|
Line 2085 sub print_review {
|
if (($env{'form.clonecrs'} =~ /^$match_name$/) && |
if (($env{'form.clonecrs'} =~ /^$match_name$/) && |
($env{'form.clonedom'} =~ /^$match_domain$/)) { |
($env{'form.clonedom'} =~ /^$match_domain$/)) { |
my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'}, |
my $canclone = &Apache::loncoursequeueadmin::can_clone_course($env{'user.name'}, |
$env{'user.domain'},$env{'form.clonecrs'}, $env{'form.clonedom'}); |
$env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'}, |
|
$env{'form.crstype'}); |
if ($canclone) { |
if ($canclone) { |
my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'}, |
my %courseenv = &Apache::lonnet::userenvironment($env{'form.clonedom'}, |
$env{'form.clonecrs'},('description','internal.coursecode')); |
$env{'form.clonecrs'},('description','internal.coursecode')); |
Line 2425 sub get_course_dom {
|
Line 2429 sub get_course_dom {
|
} |
} |
} |
} |
if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) { |
if (($env{'user.domain'} ne '') && ($env{'user.domain'} ne 'public')) { |
my ($types,$typename) = &course_types(); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
if (ref($types) eq 'ARRAY') { |
if (ref($types) eq 'ARRAY') { |
foreach my $type (@{$types}) { |
foreach my $type (@{$types}) { |
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
if (&Apache::lonnet::usertools_access($env{'user.name'}, |
Line 2648 sub print_request_outcome {
|
Line 2652 sub print_request_outcome {
|
if ($clonehome ne 'no_host') { |
if ($clonehome ne 'no_host') { |
my $canclone = |
my $canclone = |
&Apache::loncoursequeueadmin::can_clone_course($env{'user.name'}, |
&Apache::loncoursequeueadmin::can_clone_course($env{'user.name'}, |
$env{'user.domain'},$env{'form.clonecrs'}, $env{'form.clonedom'}); |
$env{'user.domain'},$env{'form.clonecrs'},$env{'form.clonedom'}, |
|
$crstype); |
if ($canclone) { |
if ($canclone) { |
$clonecrs = $env{'form.clonecrs'}; |
$clonecrs = $env{'form.clonecrs'}; |
$clonedom = $env{'form.clonedom'}; |
$clonedom = $env{'form.clonedom'}; |
Line 3090 sub check_autolimit {
|
Line 3095 sub check_autolimit {
|
my ($uname,$udom,$dom,$crstype,$limit,$message) = @_; |
my ($uname,$udom,$dom,$crstype,$limit,$message) = @_; |
my %crsroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'}, |
my %crsroles = &Apache::lonnet::get_my_roles($env{'user.name'},$env{'user.domain'}, |
'userroles',['active','future'],['cc'],[$dom]); |
'userroles',['active','future'],['cc'],[$dom]); |
my ($types,$typename) = &course_types(); |
my ($types,$typename) = &Apache::loncommon::course_types(); |
my %requests = &Apache::lonnet::dumpstore('courserequests',$udom,$uname); |
my %requests = &Apache::lonnet::dumpstore('courserequests',$udom,$uname); |
my %count; |
my %count; |
if (ref($types) eq 'ARRAY') { |
if (ref($types) eq 'ARRAY') { |