version 1.32, 2007/12/23 15:50:24
|
version 1.37, 2008/01/01 17:24:59
|
Line 76 sub modifystudent {
|
Line 76 sub modifystudent {
|
} |
} |
} |
} |
if ($result eq '') { |
if ($result eq '') { |
$result = 'Unable to find section for this student'; |
$result = &mt('Unable to find section for this student'); |
} else { |
} else { |
$result =~ s/(ok:)+/ok/g; |
$result =~ s/(ok:)+/ok/g; |
} |
} |
Line 304 sub print_upload_manager_header {
|
Line 304 sub print_upload_manager_header {
|
my $javascript_validations = |
my $javascript_validations = |
&javascript_validations('upload',$krbdefdom,$password_choice,undef, |
&javascript_validations('upload',$krbdefdom,$password_choice,undef, |
$env{'request.role.domain'},$context, |
$env{'request.role.domain'},$context, |
$permission,$groupslist); |
$groupslist); |
my $checked=(($env{'form.noFirstLine'})?' checked="checked" ':''); |
my $checked=(($env{'form.noFirstLine'})?' checked="checked" ':''); |
$r->print(&mt('Total number of records found in file: <b>[_1]</b>.',$distotal). |
$r->print(&mt('Total number of records found in file: <b>[_1]</b>.',$distotal). |
"<br />\n"); |
"<br />\n"); |
Line 332 sub print_upload_manager_header {
|
Line 332 sub print_upload_manager_header {
|
############################################################### |
############################################################### |
sub javascript_validations { |
sub javascript_validations { |
my ($mode,$krbdefdom,$curr_authtype,$curr_authfield,$domain, |
my ($mode,$krbdefdom,$curr_authtype,$curr_authfield,$domain, |
$context,$permission,$groupslist)=@_; |
$context,$groupslist)=@_; |
|
|
my %param = ( |
my %param = ( |
kerb_def_dom => $krbdefdom, |
kerb_def_dom => $krbdefdom, |
curr_authtype => $curr_authtype, |
curr_authtype => $curr_authtype, |
); |
); |
if ($mode eq 'createuser') { |
if ($mode eq 'upload') { |
$param{'formname'} = 'cu'; |
|
} elsif ($mode eq 'upload') { |
|
$param{'formname'} = 'studentform'; |
$param{'formname'} = 'studentform'; |
} elsif ($mode eq 'singlestudent') { |
|
$param{'formname'} = 'cu'; |
|
} elsif ($mode eq 'createcourse') { |
} elsif ($mode eq 'createcourse') { |
$param{'formname'} = 'ccrs'; |
$param{'formname'} = 'ccrs'; |
} elsif ($mode eq 'modifycourse') { |
} elsif ($mode eq 'modifycourse') { |
Line 367 sub javascript_validations {
|
Line 362 sub javascript_validations {
|
} |
} |
} elsif ($context eq 'domain') { |
} elsif ($context eq 'domain') { |
$setsection_call = 'setCourse()'; |
$setsection_call = 'setCourse()'; |
$setsections_js = &dc_setcourse_js($param{'formname'},$mode); |
$setsections_js = &dc_setcourse_js($param{'formname'},$mode,$context); |
} |
} |
$finish = " var checkSec = $setsection_call\n". |
$finish = " var checkSec = $setsection_call\n". |
" if (checkSec == 'ok') {\n". |
" if (checkSec == 'ok') {\n". |
Line 389 sub javascript_validations {
|
Line 384 sub javascript_validations {
|
role => 'The optional role field was not specified.', |
role => 'The optional role field was not specified.', |
continue => 'Continue adding users?', |
continue => 'Continue adding users?', |
); |
); |
|
my $function_name = <<"END"; |
my $function_name =(<<END); |
|
$setsections_js |
$setsections_js |
|
|
function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) { |
function verify_message (vf,founduname,foundpwd,foundname,foundid,foundsec,foundemail) { |
Line 521 END
|
Line 515 END
|
} |
} |
END |
END |
} |
} |
my $result = $function_name; |
my $result = $function_name.$auth_checks.$optional_checks."\n". |
if ( ($mode eq 'upload') || ($mode eq 'createcourse') || ($mode eq 'modifycourse') ) { |
$section_checks.$authheader; |
$result .= $auth_checks; |
|
} |
|
$result .= $optional_checks."\n".$section_checks; |
|
if ( ($mode eq 'upload') || ($mode eq 'createcourse') || ($mode eq 'modifycourse') ) { |
|
$result .= $authheader; |
|
} |
|
return $result; |
return $result; |
} |
} |
############################################################### |
############################################################### |
Line 761 sub print_upload_manager_footer {
|
Line 749 sub print_upload_manager_footer {
|
$permission,$context,'upload'); |
$permission,$context,'upload'); |
$Str .= $secbox."<h3>".&mt('Full Update')."</h3>\n". |
$Str .= $secbox."<h3>".&mt('Full Update')."</h3>\n". |
'<p><label><input type="checkbox" name="fullup" value="yes">'. |
'<p><label><input type="checkbox" name="fullup" value="yes">'. |
' '.&mt('Display students with current/future access, who are not in the uploaded file.').'<br />'.&mt('Students selected from this list can be dropped.'); |
' '.&mt('Display students with current/future access who are not in the uploaded file.').'</label><br />'.&mt('Students selected from this list can be dropped.').'</p>'."\n"; |
"</label></p>\n"; |
|
} |
} |
if ($context eq 'course' || $context eq 'domain') { |
if ($context eq 'course' || $context eq 'domain') { |
$Str .= &forceid_change($context); |
$Str .= &forceid_change($context); |
Line 1264 sub print_userlist {
|
Line 1251 sub print_userlist {
|
if ($env{'form.showrole'} eq 'Any') { |
if ($env{'form.showrole'} eq 'Any') { |
$roleselected = ' selected="selected" '; |
$roleselected = ' selected="selected" '; |
} |
} |
my $role_select; |
my ($role_select,$cnum,$cdom); |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
$role_select = &domain_roles_select(); |
$role_select = &domain_roles_select(); |
$r->print('<label>'.&mt('Role Type: [_1]',$role_select).'</label>'); |
$r->print('<label>'.&mt('Role Type: [_1]',$role_select).'</label>'); |
Line 1288 sub print_userlist {
|
Line 1275 sub print_userlist {
|
} |
} |
$role_select .= '</select>'; |
$role_select .= '</select>'; |
$r->print('<label>'.&mt('Role: [_1]',$role_select).'</label>'); |
$r->print('<label>'.&mt('Role: [_1]',$role_select).'</label>'); |
|
if ($context eq 'course') { |
|
($cnum,$cdom) = &get_course_identity(); |
|
$r->print(§ion_group_filter($cnum,$cdom)); |
|
} |
} |
} |
if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) { |
if (!(($context eq 'domain') && ($env{'form.roletype'} eq 'course'))) { |
$r->print(' '.&list_submit_button(&mt('Update Display')). |
$r->print(' '.&list_submit_button(&mt('Update Display')). |
Line 1307 sub print_userlist {
|
Line 1298 sub print_userlist {
|
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::end_pick_box().'</p>'. |
&Apache::lonhtmlcommon::end_pick_box().'</p>'. |
'<p>'.&list_submit_button(&mt('Update Display')). |
'<p>'.&list_submit_button(&mt('Update Display')). |
"\n</p>\n"); |
"\n".'</p><span class="LC_warning">'.&mt('Warning: data retrieval for multiple courses can take considerable time, as this operation is not currently optimized.').'</span>'."\n"); |
if ($env{'form.coursepick'}) { |
if ($env{'form.coursepick'}) { |
$r->print('<hr />'.&mt('Searching').' ...<br /> <br />'); |
$r->print('<hr />'.&mt('Searching').' ...<br /> <br />'); |
} |
} |
Line 1331 sub print_userlist {
|
Line 1322 sub print_userlist {
|
$userlist{$student} = $classlist->{$student}; |
$userlist{$student} = $classlist->{$student}; |
} |
} |
} |
} |
my $cid = $env{'request.course.id'}; |
|
my ($cnum,$cdom) = &get_course_identity($cid); |
|
my $showroles; |
my $showroles; |
if ($env{'form.showrole'} ne 'Any') { |
if ($env{'form.showrole'} ne 'Any') { |
$showroles = [$env{'form.showrole'}]; |
$showroles = [$env{'form.showrole'}]; |
Line 1468 sub print_userlist {
|
Line 1457 sub print_userlist {
|
$env{'form.phase'}.'" /></form>'); |
$env{'form.phase'}.'" /></form>'); |
} |
} |
|
|
|
sub section_group_filter { |
|
my ($cnum,$cdom) = @_; |
|
my @filters; |
|
if ($env{'request.course.sec'} eq '') { |
|
@filters = ('sec'); |
|
} |
|
push(@filters,'grp'); |
|
my %name = ( |
|
sec => 'secfilter', |
|
grp => 'grpfilter', |
|
); |
|
my %title = &Apache::lonlocal::texthash ( |
|
sec => 'Section(s)', |
|
grp => 'Group(s)', |
|
all => 'all', |
|
none => 'none', |
|
); |
|
my ($output,@options); |
|
foreach my $item (@filters) { |
|
my $markup; |
|
if ($env{'form.'.$name{$item}} eq '') { |
|
$env{'form.'.$name{$item}} = 'all'; |
|
} |
|
if ($item eq 'sec') { |
|
if ($env{'form.showrole'} eq 'cc') { |
|
$env{'form.'.$name{$item}} = 'none'; |
|
} |
|
my %sections_count = &Apache::loncommon::get_sections($cdom,$cnum); |
|
@options = sort(keys(%sections_count)); |
|
} elsif ($item eq 'grp') { |
|
my %curr_groups = &Apache::longroup::coursegroups(); |
|
@options = sort(keys(%curr_groups)); |
|
} |
|
if (@options > 0) { |
|
my $currsel; |
|
$markup = '<select name="'.$name{$item}.'" />'."\n"; |
|
foreach my $option ('all','none',@options) { |
|
$currsel = ''; |
|
if ($env{'form.'.$name{$item}} eq $option) { |
|
$currsel = ' selected="selected" '; |
|
} |
|
$markup .= ' <option value="'.$option.'"'.$currsel.'>'; |
|
if (($option eq 'all') || ($option eq 'none')) { |
|
$markup .= $title{$option}; |
|
} else { |
|
$markup .= $option; |
|
} |
|
$markup .= '</option>'."\n"; |
|
} |
|
$markup .= '</select>'."\n"; |
|
$output .= (' 'x3).'<label>'.$title{$item}.': '.$markup.'</label>'; |
|
} |
|
} |
|
return $output; |
|
} |
|
|
sub list_submit_button { |
sub list_submit_button { |
my ($text) = @_; |
my ($text) = @_; |
return '<input type="button" name="updatedisplay" value="'.$text.'" onclick="javascript:display_update()" />'; |
return '<input type="button" name="updatedisplay" value="'.$text.'" onclick="javascript:display_update()" />'; |
Line 2163 END
|
Line 2208 END
|
$index{$idx} = $i++; |
$index{$idx} = $i++; |
} |
} |
my $usercount = 0; |
my $usercount = 0; |
|
my ($secfilter,$grpfilter); |
|
if ($context eq 'course') { |
|
$secfilter = $env{'form.secfilter'}; |
|
$grpfilter = $env{'form.grpfilter'}; |
|
if ($secfilter eq '') { |
|
$secfilter = 'all'; |
|
} |
|
if ($grpfilter eq '') { |
|
$grpfilter = 'all'; |
|
} |
|
} |
# Get groups, role, permanent e-mail so we can sort on them if |
# Get groups, role, permanent e-mail so we can sort on them if |
# necessary. |
# necessary. |
foreach my $user (keys(%{$userlist})) { |
foreach my $user (keys(%{$userlist})) { |
Line 2200 END
|
Line 2256 END
|
delete($userlist->{$user}); |
delete($userlist->{$user}); |
next; |
next; |
} |
} |
if (ref($classgroups) eq 'HASH') { |
if ($context eq 'course') { |
$groups = $classgroups->{$user}; |
my @ac_groups; |
} |
if (ref($classgroups) eq 'HASH') { |
if (ref($groups->{active}) eq 'HASH') { |
$groups = $classgroups->{$user}; |
$userlist->{$user}->[$index{'groups'}] = join(', ',keys(%{$groups->{'active'}})); |
} |
|
if (ref($groups->{'active'}) eq 'HASH') { |
|
@ac_groups = keys(%{$groups->{'active'}}); |
|
$userlist->{$user}->[$index{'groups'}] = join(', ',@ac_groups); |
|
} |
|
if ($mode ne 'autoenroll') { |
|
my $section = $userlist->{$user}->[$index{'section'}]; |
|
if ($secfilter eq 'none') { |
|
if ($section ne '') { |
|
delete($userlist->{$user}); |
|
next; |
|
} |
|
} elsif ($secfilter ne 'all') { |
|
if ($section ne $secfilter) { |
|
delete($userlist->{$user}); |
|
next; |
|
} |
|
} |
|
if ($grpfilter eq 'none') { |
|
if (@ac_groups > 0) { |
|
delete($userlist->{$user}); |
|
next; |
|
} |
|
} elsif ($grpfilter ne 'all') { |
|
if (!grep(/^\Q$grpfilter\E$/,@ac_groups)) { |
|
delete($userlist->{$user}); |
|
next; |
|
} |
|
} |
|
} |
} |
} |
my %emails = &Apache::loncommon::getemails($uname,$udom); |
my %emails = &Apache::loncommon::getemails($uname,$udom); |
if ($emails{'permanentemail'} =~ /\S/) { |
if ($emails{'permanentemail'} =~ /\S/) { |
Line 2279 END
|
Line 2364 END
|
$r->print("<td>$cellentry</td>\n"); |
$r->print("<td>$cellentry</td>\n"); |
} else { |
} else { |
$r->print("<td>$rowcount</td>\n"); |
$r->print("<td>$rowcount</td>\n"); |
$checkval; |
|
if ($actionselect) { |
if ($actionselect) { |
my $showcheckbox; |
my $showcheckbox; |
if ($role =~ /^cr\//) { |
if ($role =~ /^cr\//) { |
Line 2741 sub results_header_row {
|
Line 2825 sub results_header_row {
|
$description .= &mt('All users in course with [_1] roles',$rolefilter); |
$description .= &mt('All users in course with [_1] roles',$rolefilter); |
} |
} |
} |
} |
|
my $constraint; |
my $viewablesec = &viewable_section($permission); |
my $viewablesec = &viewable_section($permission); |
if ($viewablesec ne '') { |
if ($viewablesec ne '') { |
if ($env{'form.showrole'} eq 'st') { |
if ($env{'form.showrole'} eq 'st') { |
$description .= ' '.&mt('(section [_1] only)',$viewablesec); |
$constraint = &mt('only users in section "[_1]"',$viewablesec); |
} elsif ($env{'form.showrole'} ne 'cc') { |
} elsif ($env{'form.showrole'} ne 'cc') { |
$description .= ' '.&mt('(only users affiliated with no section or section [_1])',$viewablesec); |
$constraint = &mt('only users affiliated with no section or section "[_1]"',$viewablesec); |
|
} |
|
if (($env{'form.grpfilter'} ne 'all') && ($env{'form.grpfilter'} ne '')) { |
|
if ($env{'form.grpfilter'} eq 'none') { |
|
$constraint .= &mt(' and not in any group'); |
|
} else { |
|
$constraint .= &mt(' and members of group: "[_1]"',$env{'form.grpfilter'}); |
|
} |
|
} |
|
} else { |
|
if (($env{'form.secfilter'} ne 'all') && ($env{'form.secfilter'} ne '')) { |
|
if ($env{'form.secfilter'} eq 'none') { |
|
$constraint = &mt('only users affiliated with no section'); |
|
} else { |
|
$constraint = &mt('only users affiliated with section "[_1]"',$env{'form.secfilter'}); |
|
} |
|
} |
|
if (($env{'form.grpfilter'} ne 'all') && ($env{'form.grpfilter'} ne '')) { |
|
if ($env{'form.grpfilter'} eq 'none') { |
|
if ($constraint eq '') { |
|
$constraint = &mt('only users not in any group'); |
|
} else { |
|
$constraint .= &mt(' and also not in any group'); |
|
} |
|
} else { |
|
if ($constraint eq '') { |
|
$constraint = &mt('only members of group: "[_1]"',$env{'form.grpfilter'}); |
|
} else { |
|
$constraint .= &mt(' and also members of group: "[_1]"'.$env{'form.grpfilter'}); |
|
} |
|
} |
} |
} |
} |
} |
|
if ($constraint ne '') { |
|
$description .= ' ('.$constraint.')'; |
|
} |
} elsif ($context eq 'author') { |
} elsif ($context eq 'author') { |
$description = |
$description = |
&mt('Author space for <span class="LC_cusr_emph">[_1]</span>', |
&mt('Author space for <span class="LC_cusr_emph">[_1]</span>', |
Line 3889 sub update_user_list {
|
Line 4007 sub update_user_list {
|
} |
} |
} |
} |
$r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n"); |
$r->print('<form name="studentform" method="post" action="/adm/createuser">'."\n"); |
foreach my $item ('action','sortby','roletype','showrole','Status') { |
if ($choice eq 'drop') { |
if ($env{'form.'.$item} ne '') { |
$r->print('<input type="hidden" name="action" value="listusers" />'."\n". |
$r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}.'" />'."\n"); |
'<input type="hidden" name="Status" value="Active" />'."\n". |
|
'<input type="hidden" name="showrole" value="st" />'."\n"); |
|
} else { |
|
foreach my $item ('action','sortby','roletype','showrole','Status','secfilter','grpfilter') { |
|
if ($env{'form.'.$item} ne '') { |
|
$r->print('<input type="hidden" name="'.$item.'" value="'.$env{'form.'.$item}. |
|
'" />'."\n"); |
|
} |
} |
} |
} |
} |
$r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,no users].",$count).'</b></p>'); |
$r->print('<p><b>'.&mt("$result_text{'ok'}{$choice} role(s) for [quant,_1,user,users,no users].",$count).'</b></p>'); |
Line 3907 sub update_user_list {
|
Line 4032 sub update_user_list {
|
$r->print(&make_dates_default($startdate,$enddate,$context)); |
$r->print(&make_dates_default($startdate,$enddate,$context)); |
} |
} |
} |
} |
$r->print('<a href="javascript:document.studentform.submit()">'.&mt('Display User Lists').'</a></form>'."\n"); |
my $linktext = &mt('Display User Lists'); |
|
if ($choice eq 'drop') { |
|
$linktext = &mt('Display current class roster'); |
|
} |
|
$r->print('<a href="javascript:document.studentform.submit()">'.$linktext.'</a></form>'."\n"); |
} |
} |
|
|
sub classlist_drop { |
sub classlist_drop { |
Line 4027 sub get_groupslist {
|
Line 4156 sub get_groupslist {
|
} |
} |
|
|
sub setsections_javascript { |
sub setsections_javascript { |
my ($formname,$groupslist,$mode) = @_; |
my ($formname,$groupslist,$mode,$checkauth) = @_; |
my ($checkincluded,$finish,$rolecode,$setsection_js); |
my ($checkincluded,$finish,$rolecode,$setsection_js); |
if ($mode eq 'upload') { |
if ($mode eq 'upload') { |
$checkincluded = 'formname.name == "'.$formname.'"'; |
$checkincluded = 'formname.name == "'.$formname.'"'; |
Line 4035 sub setsections_javascript {
|
Line 4164 sub setsections_javascript {
|
$rolecode = "var role = formname.defaultrole.options[formname.defaultrole.selectedIndex].value;\n"; |
$rolecode = "var role = formname.defaultrole.options[formname.defaultrole.selectedIndex].value;\n"; |
} elsif ($formname eq 'cu') { |
} elsif ($formname eq 'cu') { |
$checkincluded = 'formname.elements[i-1].checked == true'; |
$checkincluded = 'formname.elements[i-1].checked == true'; |
$finish = 'formname.submit()'; |
if ($checkauth) { |
|
$finish = "var authcheck = auth_check();\n". |
|
" if (authcheck == 'ok') {\n". |
|
" formname.submit();\n". |
|
" }\n"; |
|
} else { |
|
$finish = 'formname.submit()'; |
|
} |
$rolecode = "var match = str.split('_'); |
$rolecode = "var match = str.split('_'); |
var role = match[3];\n"; |
var role = match[3];\n"; |
} elsif ($formname eq 'enrollstudent') { |
} elsif ($formname eq 'enrollstudent') { |
$checkincluded = 'formname.name == "'.$formname.'"'; |
$checkincluded = 'formname.name == "'.$formname.'"'; |
$finish = 'formname.submit()'; |
if ($checkauth) { |
|
$finish = "var authcheck = auth_check();\n". |
|
" if (authcheck == 'ok') {\n". |
|
" formname.submit();\n". |
|
" }\n"; |
|
} else { |
|
$finish = 'formname.submit()'; |
|
} |
$rolecode = "var match = str.split('_'); |
$rolecode = "var match = str.split('_'); |
var role = match[1];\n"; |
var role = match[1];\n"; |
} else { |
} else { |
Line 4377 sub get_course_identity {
|
Line 4520 sub get_course_identity {
|
} |
} |
|
|
sub dc_setcourse_js { |
sub dc_setcourse_js { |
my ($formname,$mode) = @_; |
my ($formname,$mode,$context) = @_; |
my $dc_setcourse_code; |
my ($dc_setcourse_code,$authen_check); |
my $cctext = &Apache::lonnet::plaintext('cc'); |
my $cctext = &Apache::lonnet::plaintext('cc'); |
my %alerts = §ioncheck_alerts(); |
my %alerts = §ioncheck_alerts(); |
my $role = 'role'; |
my $role = 'role'; |
if ($mode eq 'upload') { |
if ($mode eq 'upload') { |
$role = 'courserole'; |
$role = 'courserole'; |
|
} else { |
|
$authen_check = &verify_authen($formname,$context); |
} |
} |
$dc_setcourse_code = (<<"SCRIPTTOP"); |
$dc_setcourse_code = (<<"SCRIPTTOP"); |
|
$authen_check |
|
|
function setCourse() { |
function setCourse() { |
var course = document.$formname.dccourse.value; |
var course = document.$formname.dccourse.value; |
if (course != "") { |
if (course != "") { |
Line 4470 SCRIPTTOP
|
Line 4617 SCRIPTTOP
|
} |
} |
} |
} |
} |
} |
document.$formname.submit(); |
var authcheck = auth_check(); |
|
if (authcheck == 'ok') { |
|
document.$formname.submit(); |
|
} |
} |
} |
|
|
ENDSCRIPT |
ENDSCRIPT |
} else { |
} else { |
$dc_setcourse_code .= " |
$dc_setcourse_code .= " |
Line 4493 ENDSCRIPT
|
Line 4642 ENDSCRIPT
|
return -1; |
return -1; |
} |
} |
ENDSCRIPT |
ENDSCRIPT |
|
return $dc_setcourse_code; |
|
} |
|
|
|
sub verify_authen { |
|
my ($formname,$context) = @_; |
|
my %alerts = &authcheck_alerts(); |
|
my $finish = "return 'ok';"; |
|
if ($context eq 'author') { |
|
$finish = "document.$formname.submit();"; |
|
} |
|
my $outcome = <<"ENDSCRIPT"; |
|
|
|
function auth_check() { |
|
var logintype; |
|
if (document.$formname.login.length) { |
|
if (document.$formname.login.length > 0) { |
|
var loginpicked = 0; |
|
for (var i=0; i<document.$formname.login.length; i++) { |
|
if (document.$formname.login[i].checked == true) { |
|
loginpicked = 1; |
|
logintype = document.$formname.login[i].value; |
|
} |
|
} |
|
if (loginpicked == 0) { |
|
alert("$alerts{'authen'}"); |
|
return; |
|
} |
|
} |
|
} else { |
|
logintype = document.$formname.login.value; |
|
} |
|
if (logintype == 'nochange') { |
|
return 'ok'; |
|
} |
|
var argpicked = document.$formname.elements[logintype+'arg'].value; |
|
if ((argpicked == null) || (argpicked == '') || (typeof argpicked == 'undefined')) { |
|
var alertmsg = ''; |
|
switch (logintype) { |
|
case 'krb': |
|
alertmsg = '$alerts{'krb'}'; |
|
break; |
|
case 'int': |
|
alertmsg = '$alerts{'ipass'}'; |
|
case 'fsys': |
|
alertmsg = '$alerts{'ipass'}'; |
|
break; |
|
case 'loc': |
|
alertmsg = ''; |
|
break; |
|
default: |
|
alertmsg = ''; |
|
} |
|
if (alertmsg != '') { |
|
alert(alertmsg); |
|
return; |
|
} |
|
} |
|
$finish |
|
} |
|
ENDSCRIPT |
} |
} |
|
|
sub sectioncheck_alerts { |
sub sectioncheck_alerts { |
Line 4514 sub sectioncheck_alerts {
|
Line 4723 sub sectioncheck_alerts {
|
return %alerts; |
return %alerts; |
} |
} |
|
|
|
sub authcheck_alerts { |
|
my %alerts = |
|
&Apache::lonlocal::texthash( |
|
authen => 'You must choose an authentication type.', |
|
krb => 'You need to specify the Kerberos domain.', |
|
ipass => 'You need to specify the initial password.', |
|
); |
|
return %alerts; |
|
} |
|
|
1; |
1; |
|
|