version 1.213, 2007/12/21 12:41:25
|
version 1.214, 2007/12/21 14:05:40
|
Line 223 sub print_username_entry_form {
|
Line 223 sub print_username_entry_form {
|
my $start_page = |
my $start_page = |
&Apache::loncommon::start_page('User Management', |
&Apache::loncommon::start_page('User Management', |
$jscript,{'add_entries' => \%loaditems,}); |
$jscript,{'add_entries' => \%loaditems,}); |
if ($env{'form.action'} eq 'singleuser') { |
if ($env{'form.action'} eq 'custom') { |
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"javascript:backPage(document.crtuser)", |
({href=>"javascript:backPage(document.crtuser)", |
text=>"Single user search", |
text=>"Pick custom role",}); |
faq=>282,bug=>'Instructor Interface',}); |
} else { |
} elsif ($env{'form.action'} eq 'custom') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"javascript:backPage(document.crtuser)", |
({href=>"javascript:backPage(document.crtuser)", |
text=>"Pick custom role",}); |
text=>"Single user search", |
|
faq=>282,bug=>'Instructor Interface',}); |
} |
} |
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management'); |
my $crumbs = &Apache::lonhtmlcommon::breadcrumbs('User Management'); |
my %existingroles=&Apache::lonuserutils::my_custom_roles(); |
my %existingroles=&Apache::lonuserutils::my_custom_roles(); |
Line 245 sub print_username_entry_form {
|
Line 245 sub print_username_entry_form {
|
'ecrp' => "Edit Custom Role Privileges", |
'ecrp' => "Edit Custom Role Privileges", |
'nr' => "Name of Role", |
'nr' => "Name of Role", |
'cre' => "Custom Role Editor", |
'cre' => "Custom Role Editor", |
'mod' => "to edit user information or add/modify roles", |
'mod' => "to modify user information or add/modify roles", |
|
'enrl' => "to enroll one student", |
); |
); |
my $help = &Apache::loncommon::help_open_menu(undef,undef,282,'Instructor Interface'); |
my $help = &Apache::loncommon::help_open_menu(undef,undef,282,'Instructor Interface'); |
my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges'); |
my $helpsiur=&Apache::loncommon::help_open_topic('Course_Change_Privileges'); |
Line 256 sub print_username_entry_form {
|
Line 257 sub print_username_entry_form {
|
$sellink = "$lt{'or'} ".$sellink; |
$sellink = "$lt{'or'} ".$sellink; |
} |
} |
$r->print($start_page."\n".$crumbs); |
$r->print($start_page."\n".$crumbs); |
if ($env{'form.action'} eq 'singleuser') { |
if ($env{'form.action'} eq 'custom') { |
$r->print(" |
|
<h3>$lt{'srch'} $sellink $lt{'mod'}$helpsiur</h3> |
|
$response"); |
|
$r->print(&entry_form($defdom,$srch,$forcenewuser,$context)); |
|
} elsif ($env{'form.action'} eq 'custom') { |
|
if (&Apache::lonnet::allowed('mcr','/')) { |
if (&Apache::lonnet::allowed('mcr','/')) { |
$r->print(<<ENDCUSTOM); |
$r->print(<<ENDCUSTOM); |
<form action="/adm/createuser" method="post" name="docustom"> |
<form action="/adm/createuser" method="post" name="docustom"> |
Line 289 ENDCUSTOM
|
Line 285 ENDCUSTOM
|
} |
} |
|
|
sub entry_form { |
sub entry_form { |
my ($dom,$srch,$forcenewuser,$context) = @_; |
my ($dom,$srch,$forcenewuser,$context,$responsemsg) = @_; |
my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom); |
my %domconf = &Apache::lonnet::get_dom('configuration',['usercreation'],$dom); |
my $cancreate = &Apache::lonuserutils::can_create_user($dom,$context); |
my $usertype; |
if (!$cancreate) { |
if (ref($srch) eq 'HASH') { |
$forcenewuser = ''; |
if (($srch->{'srchin'} eq 'dom') && |
|
($srch->{'srchby'} eq 'uname') && |
|
($srch->{'srchtype'} eq 'exact') && |
|
($srch->{'srchdomain'} ne '') && |
|
($srch->{'srchterm'} ne '')) { |
|
my ($rules,$ruleorder) = |
|
&Apache::lonnet::inst_userrules($srch->{'srchdomain'},'username'); |
|
$usertype = &Apache::lonuserutils::check_usertype($srch->{'srchdomain'},$srch->{'srchterm'},$rules); |
|
} |
} |
} |
|
my $cancreate = |
|
&Apache::lonuserutils::can_create_user($dom,$context,$usertype); |
my $userpicker = |
my $userpicker = |
&Apache::loncommon::user_picker($dom,$srch,$forcenewuser, |
&Apache::loncommon::user_picker($dom,$srch,$forcenewuser, |
'document.crtuser'); |
'document.crtuser',$cancreate,$usertype); |
my $srchbutton = &mt('Search'); |
my $srchbutton = &mt('Search'); |
my $output = <<"ENDBLOCK"; |
my $output = <<"ENDBLOCK"; |
<form action="/adm/createuser" method="post" name="crtuser"> |
<form action="/adm/createuser" method="post" name="crtuser"> |
Line 327 ENDBLOCK
|
Line 333 ENDBLOCK
|
<input type="hidden" name="forcenewuser" value="1" /> |
<input type="hidden" name="forcenewuser" value="1" /> |
<input type="hidden" name="origform" value="crtusername" /> |
<input type="hidden" name="origform" value="crtusername" /> |
<h3>$lt{crnu}$helpcrt</h3> |
<h3>$lt{crnu}$helpcrt</h3> |
|
$responsemsg |
<table> |
<table> |
<tr> |
<tr> |
<td>$lt{'usr'}:</td> |
<td>$lt{'usr'}:</td> |
Line 404 ENDSCRIPT
|
Line 411 ENDSCRIPT
|
'firstname' => "first name", |
'firstname' => "first name", |
'permanentemail' => "permanent e-mail", |
'permanentemail' => "permanent e-mail", |
); |
); |
|
$r->print(&Apache::loncommon::start_page('User Management',$jscript)); |
if ($operation eq 'createuser') { |
if ($operation eq 'createuser') { |
$r->print(&Apache::loncommon::start_page('User Management',$jscript)); |
|
&Apache::lonhtmlcommon::add_breadcrumb |
&Apache::lonhtmlcommon::add_breadcrumb |
({href=>"javascript:backPage(document.usersrchform,'','')", |
({href=>"javascript:backPage(document.usersrchform,'','')", |
text=>"Create/modify user", |
text=>"Create/modify user", |
Line 417 ENDSCRIPT
|
Line 424 ENDSCRIPT
|
$r->print("<b>$lt{'usrch'}</b><br />"); |
$r->print("<b>$lt{'usrch'}</b><br />"); |
$r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context)); |
$r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context)); |
$r->print('<h3>'.$lt{'usel'}.'</h3>'); |
$r->print('<h3>'.$lt{'usel'}.'</h3>'); |
} else { |
} elsif ($operation eq 'enrollstudent') { |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"javascript:backPage(document.usersrchform,'','')", |
|
text=>"Create/modify student", |
|
faq=>282,bug=>'Instructor Interface',}, |
|
{href=>"javascript:backPage(document.usersrchform,'get_user_info','select')", |
|
text=>"Select Student", |
|
faq=>282,bug=>'Instructor Interface',}); |
|
$r->print(&Apache::lonhtmlcommon::breadcrumbs('User Management')); |
$r->print($jscript."<b>$lt{'stusrch'}</b><br />"); |
$r->print($jscript."<b>$lt{'stusrch'}</b><br />"); |
$r->print(&Apache::londropadd::single_user_entry_form($srch->{'srchdomain'},$srch)); |
$r->print(&entry_form($srch->{'srchdomain'},$srch,undef,$context)); |
$r->print('</form><h3>'.$lt{'stusel'}.'</h3>'); |
$r->print('</form><h3>'.$lt{'stusel'}.'</h3>'); |
} |
} |
$r->print('<form name="usersrchform" method="post">'. |
$r->print('<form name="usersrchform" method="post">'. |
Line 465 ENDSCRIPT
|
Line 480 ENDSCRIPT
|
' <input type="hidden" name="seludom" value="" />'."\n". |
' <input type="hidden" name="seludom" value="" />'."\n". |
' <input type="hidden" name="currstate" value="select" />'."\n". |
' <input type="hidden" name="currstate" value="select" />'."\n". |
' <input type="hidden" name="phase" value="get_user_info" />'."\n". |
' <input type="hidden" name="phase" value="get_user_info" />'."\n". |
' <input type="hidden" name="action" value="singleuser" />'."\n"); |
' <input type="hidden" name="action" value="'.$env{'form.action'}.'" />'."\n"); |
$r->print($response); |
$r->print($response.'</form>'.&Apache::loncommon::end_page()); |
if ($operation eq 'createuser') { |
|
$r->print('</form>'.&Apache::loncommon::end_page()); |
|
} else { |
|
$r->print('<input type="hidden" name="action" value="enrollstudent" />'."\n". |
|
'<input type="hidden" name="state" value="gotusername" />'."\n"); |
|
} |
|
} |
} |
|
|
sub print_user_query_page { |
sub print_user_query_page { |
Line 2754 sub handler {
|
Line 2763 sub handler {
|
$currstate = $env{'form.currstate'}; |
$currstate = $env{'form.currstate'}; |
} |
} |
if ($currstate eq 'select') { |
if ($currstate eq 'select') { |
|
my $operation; |
|
if ($env{'form.action'} eq 'singleuser') { |
|
$operation = 'createuser'; |
|
} elsif ($env{'form.action'} eq 'singlestudent') { |
|
$operation = 'enrollstudent'; |
|
} |
&print_user_selection_page($r,$response,$srch,$results, |
&print_user_selection_page($r,$response,$srch,$results, |
'createuser',\@search,$context); |
$operation,\@search,$context); |
} elsif ($currstate eq 'modify') { |
} elsif ($currstate eq 'modify') { |
my ($ccuname,$ccdomain); |
my ($ccuname,$ccdomain); |
if (($srch->{'srchby'} eq 'uname') && |
if (($srch->{'srchby'} eq 'uname') && |