version 1.74, 2014/01/04 02:10:36
|
version 1.75, 2014/01/05 10:55:35
|
Line 817 END
|
Line 817 END
|
return true; |
return true; |
} |
} |
END |
END |
my ($pagetitle,$pageinfo,$domaintitle); |
my ($pagetitle,$pageinfo,$domaintitle,$earlyout); |
if (ref($can_request) eq 'HASH') { |
if (ref($can_request) eq 'HASH') { |
if (($can_request->{'official'}) || ($can_request->{'unofficial'}) || $can_request->{'textbook'}) { |
if (($can_request->{'official'}) || ($can_request->{'unofficial'}) || $can_request->{'textbook'}) { |
if ($can_request->{'community'}) { |
if ($can_request->{'community'}) { |
Line 833 END
|
Line 833 END
|
$pagetitle = 'Community Requests'; |
$pagetitle = 'Community Requests'; |
$pageinfo = &mt('Request creation of a new course, or review your pending requests.'); |
$pageinfo = &mt('Request creation of a new course, or review your pending requests.'); |
$domaintitle = &mt('Community Domain'); |
$domaintitle = &mt('Community Domain'); |
} else { |
} elsif ((ref($incdoms) eq 'ARRAY') && ((@{$incdoms} > 1) || |
|
((@{$incdoms} == 1) && ($incdoms->[0] ne $dom)))) { |
$pagetitle = 'Course/Community Requests'; |
$pagetitle = 'Course/Community Requests'; |
$pageinfo = &mt('You do not have rights to request creation of courses in this domain; please choose a different domain.'); |
$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'); |
$domaintitle = &mt('Course/Community Domain'); |
|
} else { |
|
$pagetitle = 'Course/Community Requests'; |
|
$pageinfo = &mt('You do not have rights to request creation of courses or communities.'); |
|
$earlyout = 1; |
} |
} |
} |
} |
$r->print(&header($pagetitle,$js.$jscript,$loaditems).$crumb. |
$r->print(&header($pagetitle,$js.$jscript,$loaditems).$crumb. |
'<p>'.$pageinfo.'</p>'. |
'<p>'.$pageinfo.'</p>'); |
'<div>'. |
if ($earlyout) { |
|
$r->print(&Apache::loncommon::end_page()); |
|
return; |
|
} |
|
$r->print('<div>'. |
&Apache::lonhtmlcommon::start_pick_box(). |
&Apache::lonhtmlcommon::start_pick_box(). |
&Apache::lonhtmlcommon::row_title($domaintitle). |
&Apache::lonhtmlcommon::row_title($domaintitle). |
'<form name="domforcourse" method="post" action="/adm/requestcourse">'. |
'<form name="domforcourse" method="post" action="/adm/requestcourse">'. |