version 1.214, 2007/12/21 14:05:40
|
version 1.215, 2007/12/21 14:35:42
|
Line 493 sub print_user_query_page {
|
Line 493 sub print_user_query_page {
|
} |
} |
|
|
sub print_user_modification_page { |
sub print_user_modification_page { |
my ($r,$ccuname,$ccdomain,$srch,$response,$context) = @_; |
my ($r,$ccuname,$ccdomain,$srch,$response,$context,$permission) = @_; |
if (($ccuname eq '') || ($ccdomain eq '')) { |
if (($ccuname eq '') || ($ccdomain eq '')) { |
my $usermsg = &mt('No username and/or domain provided.'); |
my $usermsg = &mt('No username and/or domain provided.'); |
|
$env{'form.phase'} = ''; |
&print_username_entry_form($r,$context,$usermsg); |
&print_username_entry_form($r,$context,$usermsg); |
return; |
return; |
} |
} |
Line 512 sub print_user_modification_page {
|
Line 513 sub print_user_modification_page {
|
%alerts,%curr_rules,%got_rules); |
%alerts,%curr_rules,%got_rules); |
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
my $uhome=&Apache::lonnet::homeserver($ccuname,$ccdomain); |
if ($uhome eq 'no_host') { |
if ($uhome eq 'no_host') { |
|
my $usertype; |
|
my ($rules,$ruleorder) = |
|
&Apache::lonnet::inst_userrules($ccdomain,'username'); |
|
$usertype = |
|
&Apache::lonuserutils::check_usertype($ccdomain,$ccuname,$rules); |
|
my $cancreate = |
|
&Apache::lonuserutils::can_create_user($ccdomain,$context, |
|
$usertype); |
|
if (!$cancreate) { |
|
my $helplink = ' href="javascript:helpMenu('."'display'".')"'; |
|
my %usertypetext = ( |
|
official => 'institutional', |
|
unofficial => 'non-institutional', |
|
); |
|
my $response; |
|
if ($env{'form.origform'} eq 'crtusername') { |
|
$response = '<span class="LC_warning">'.&mt('No match was found for the username ([_1]) in LON-CAPA domain: [_2]',$ccuname,$ccdomain). |
|
'</span><br />'; |
|
} |
|
$response .= '<span class="LC_warning">'.&mt("You are not authorized to create new $usertypetext{$usertype} users in this domain.").' '.&mt('Contact the <a[_1]>helpdesk</a> for assistance.',$helplink).'</span><br /><br />'; |
|
$env{'form.phase'} = ''; |
|
&print_username_entry_form($r,$context,$response); |
|
return; |
|
} |
$newuser = 1; |
$newuser = 1; |
my $checkhash; |
my $checkhash; |
my $checks = { 'username' => 1 }; |
my $checks = { 'username' => 1 }; |
Line 532 sub print_user_modification_page {
|
Line 557 sub print_user_modification_page {
|
$domdesc,$curr_rules{$ccdomain}{'username'}, |
$domdesc,$curr_rules{$ccdomain}{'username'}, |
'username'); |
'username'); |
} |
} |
|
$env{'form.phase'} = ''; |
&print_username_entry_form($r,$context,$userchkmsg); |
&print_username_entry_form($r,$context,$userchkmsg); |
return; |
return; |
} |
} |
} |
} |
} |
} |
} else { |
} else { |
Line 549 sub print_user_modification_page {
|
Line 575 sub print_user_modification_page {
|
} |
} |
} |
} |
if ($response) { |
if ($response) { |
$response = '<br />'.$response |
$response = '<br />'.$response; |
} |
} |
my $defdom=$env{'request.role.domain'}; |
my $defdom=$env{'request.role.domain'}; |
|
|
Line 569 sub print_user_modification_page {
|
Line 595 sub print_user_modification_page {
|
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
my $pjump_def = &Apache::lonhtmlcommon::pjump_javascript_definition(); |
my $dc_setcourse_code = ''; |
my $dc_setcourse_code = ''; |
my $nondc_setsection_code = ''; |
my $nondc_setsection_code = ''; |
|
|
my %loaditem; |
my %loaditem; |
|
|
my $groupslist; |
my $groupslist; |
Line 835 ENDAUTH
|
Line 860 ENDAUTH
|
} else { |
} else { |
$r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc)); |
$r->print(&Apache::lonuserutils::set_login($ccdomain,$authformkrb,$authformint,$authformloc)); |
} |
} |
$r->print('</h2>'."\n".'<div class="LC_left_float">'); |
$r->print($portfolioform); |
|
if ($env{'form.action'} eq 'singlestudent') { |
|
$r->print(&date_sections_select($context,$newuser,$formname, |
|
$permission)); |
|
} |
|
$r->print('</div><div class="LC_clear_float_footer"></div>'); |
} else { # user already exist- |
} else { # user already exist- |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'cup' => "Modify existing user: ", |
'cup' => "Modify existing user: ", |