version 1.329.2.5, 2010/10/11 15:38:17
|
version 1.329.2.6, 2010/11/08 19:52:01
|
Line 70 use Apache::lonlocal;
|
Line 70 use Apache::lonlocal;
|
use Apache::longroup; |
use Apache::longroup; |
use Apache::lonuserutils; |
use Apache::lonuserutils; |
use Apache::loncoursequeueadmin; |
use Apache::loncoursequeueadmin; |
|
use Apache::lonrequestcourse; |
use LONCAPA qw(:DEFAULT :match); |
use LONCAPA qw(:DEFAULT :match); |
|
|
my $loginscript; # piece of javascript used in two separate instances |
my $loginscript; # piece of javascript used in two separate instances |
Line 4054 sub handler {
|
Line 4055 sub handler {
|
} else { |
} else { |
$context = 'domain'; |
$context = 'domain'; |
} |
} |
|
my ($permission,$allowed) = |
|
&Apache::lonuserutils::get_permission($context,$crstype); |
|
if (!$allowed) { |
|
$env{'user.error.msg'}= |
|
"/adm/createuser:cst:0:0:Cannot create/modify user data ". |
|
"or view user status."; |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
|
|
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
|
my $title = 'User Management'; |
my $title = 'User Management'; |
my $is_custom = &Apache::loncommon::needs_gci_custom(); |
my $is_custom = &Apache::loncommon::needs_gci_custom(); |
if ($context eq 'course') { |
if ($context eq 'course') { |
Line 4068 sub handler {
|
Line 4081 sub handler {
|
my $args; |
my $args; |
my $brcrum = []; |
my $brcrum = []; |
my $bread_crumbs_component = $title; |
my $bread_crumbs_component = $title; |
if ($env{'form.action'} ne 'dateselect') { |
if ($env{'form.context'} eq 'requestcrs') { |
|
my $reqstate = 'uploadroster'; |
|
if ($env{'form.state'} eq 'enrolling') { |
|
$reqstate = 'enrolling'; |
|
} |
|
unless (&Apache::lonrequestcourse::generate_page($r,'new',$reqstate)) { |
|
return OK; |
|
} |
|
} elsif ($env{'form.action'} ne 'dateselect') { |
$brcrum = [{href=>"/adm/createuser", |
$brcrum = [{href=>"/adm/createuser", |
text=>$title, |
text=>$title, |
help=>'Course_Create_Class_List,Course_Change_Privileges,Course_View_Class_List,Course_Editing_Custom_Roles,Course_Add_Student,Course_Drop_Student,Course_Automated_Enrollment,Course_Self_Enrollment,Course_Manage_Group'} |
help=>'Course_Create_Class_List,Course_Change_Privileges,Course_View_Class_List,Course_Editing_Custom_Roles,Course_Add_Student,Course_Drop_Student,Course_Automated_Enrollment,Course_Self_Enrollment,Course_Manage_Group'} |
Line 4076 sub handler {
|
Line 4097 sub handler {
|
} |
} |
#SD Following files not added to help, because the corresponding .tex-files seem to |
#SD Following files not added to help, because the corresponding .tex-files seem to |
#be missing: Course_Approve_Selfenroll,Course_User_Logs, |
#be missing: Course_Approve_Selfenroll,Course_User_Logs, |
my ($permission,$allowed) = |
|
&Apache::lonuserutils::get_permission($context,$crstype); |
|
if (!$allowed) { |
|
$env{'user.error.msg'}= |
|
"/adm/createuser:cst:0:0:Cannot create/modify user data ". |
|
"or view user status."; |
|
return HTTP_NOT_ACCEPTABLE; |
|
} |
|
|
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
|
|
# Main switch on form.action and form.state, as appropriate |
# Main switch on form.action and form.state, as appropriate |
if (! exists($env{'form.action'})) { |
if (! exists($env{'form.action'})) { |
Line 4095 sub handler {
|
Line 4105 sub handler {
|
$r->print(&header(undef,$args)); |
$r->print(&header(undef,$args)); |
$r->print(&print_main_menu($permission,$context,$crstype)); |
$r->print(&print_main_menu($permission,$context,$crstype)); |
} elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) { |
} elsif ($env{'form.action'} eq 'upload' && $permission->{'cusr'}) { |
push(@{$brcrum}, |
unless ($env{'form.context'} eq 'requestcrs') { |
{ href => '/adm/createuser?action=upload&state=', |
push(@{$brcrum}, |
text => 'Upload Users List', |
{ href => '/adm/createuser?action=upload&state=', |
help => 'Course_Create_Class_List', |
text => 'Upload Users List', |
}); |
help => 'Course_Create_Class_List', |
$bread_crumbs_component = 'Upload Users List'; |
}); |
$args = {bread_crumbs => $brcrum, |
$bread_crumbs_component = 'Upload Users List'; |
bread_crumbs_component => $bread_crumbs_component}; |
$args = {bread_crumbs => $brcrum, |
$r->print(&header(undef,$args)); |
bread_crumbs_component => $bread_crumbs_component}; |
$r->print('<form name="studentform" method="post" '. |
$r->print(&header(undef,$args)); |
'enctype="multipart/form-data" '. |
} |
' action="/adm/createuser">'."\n"); |
unless (($env{'form.context'} eq 'requestcrs') && ($env{'form.state'} eq 'enrolling')) { |
|
$r->print('<form name="studentform" method="post" '. |
|
'enctype="multipart/form-data" '. |
|
' action="/adm/createuser">'."\n"); |
|
} |
if (! exists($env{'form.state'})) { |
if (! exists($env{'form.state'})) { |
&Apache::lonuserutils::print_first_users_upload_form($r,$context); |
&Apache::lonuserutils::print_first_users_upload_form($r,$context); |
} elsif ($env{'form.state'} eq 'got_file') { |
} elsif ($env{'form.state'} eq 'got_file') { |
my $formname; |
my $formname; |
if ($env{'form.caller'} eq 'requestcrs') { |
if ($env{'form.context'} eq 'requestcrs') { |
$formname = 'studentform'; |
$formname = 'studentform'; |
} |
} |
&Apache::lonuserutils::print_upload_manager_form($r,$context, |
&Apache::lonuserutils::print_upload_manager_form($r,$context, |
$permission,$crstype,$formname); |
$permission,$crstype,$formname); |
|
if ($env{'form.context'} eq 'requestcrs') { |
|
$r->print('<input type="hidden" name="concepttest" value="'.$env{'form.concepttest'}.'" />'); |
|
} |
} elsif ($env{'form.state'} eq 'enrolling') { |
} elsif ($env{'form.state'} eq 'enrolling') { |
if ($env{'form.datatoken'}) { |
if ($env{'form.datatoken'}) { |
&Apache::lonuserutils::upfile_drop_add($r,$context,$permission); |
&Apache::lonuserutils::upfile_drop_add($r,$context,$permission); |
|
if ($env{'form.context'} eq 'requestcrs') { |
|
$r->print('<br /><hr />'. |
|
'<form name="requestcrs" method="post" action="/adm/requestcourse">'. |
|
'<input type="hidden" name="context" value="'.$env{'form.context'}.'" />'. |
|
'<input type="hidden" name="concepttest" value="'.$env{'form.concepttest'}.'" />'. |
|
'<input type="hidden" name="reqaction" value="new" />'. |
|
'<input type="hidden" name="state" value="'.$env{'form.state'}.'" />'. |
|
&Apache::lonrequestcourse::done_display()); |
|
} |
} |
} |
} else { |
} else { |
&Apache::lonuserutils::print_first_users_upload_form($r,$context); |
&Apache::lonuserutils::print_first_users_upload_form($r,$context); |
} |
} |
|
$r->print('</form>'); |
} elsif ((($env{'form.action'} eq 'singleuser') || ($env{'form.action'} |
} elsif ((($env{'form.action'} eq 'singleuser') || ($env{'form.action'} |
eq 'singlestudent')) && ($permission->{'cusr'})) { |
eq 'singlestudent')) && ($permission->{'cusr'})) { |
my $phase = $env{'form.phase'}; |
my $phase = $env{'form.phase'}; |