version 1.38, 2009/10/25 14:48:55
|
version 1.39, 2009/11/04 17:42:17
|
Line 272 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 = &Apache::lonnet::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 293 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 312 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 591 sub onload_action {
|
Line 592 sub onload_action {
|
} |
} |
|
|
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) = &Apache::loncommon::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 635 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 675 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 701 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". |
Line 2035 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 2601 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'}; |