version 1.90, 2009/05/04 16:45:58
|
version 1.93, 2009/05/11 13:07:24
|
Line 328 sub print_upload_manager_header {
|
Line 328 sub print_upload_manager_header {
|
&javascript_validations('upload',$krbdefdom,$password_choice,undef, |
&javascript_validations('upload',$krbdefdom,$password_choice,undef, |
$env{'request.role.domain'},$context, |
$env{'request.role.domain'},$context, |
$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: [_1]','<b>'.$distotal.'</b>'). |
$r->print(&mt('Total number of records found in file: [_1]','<b>'.$distotal.'</b>'). |
"<br />\n"); |
"<br />\n"); |
$r->print('<div class="LC_left_float"><h3>'. |
$r->print('<div class="LC_left_float"><h3>'. |
Line 401 sub javascript_validations {
|
Line 401 sub javascript_validations {
|
krb => 'You need to specify the Kerberos domain.', |
krb => 'You need to specify the Kerberos domain.', |
ipass => 'You need to specify the initial password.', |
ipass => 'You need to specify the initial password.', |
name => 'The optional name field was not specified.', |
name => 'The optional name field was not specified.', |
snum => 'The optional ID number field was not specified.', |
snum => 'The optional student/employee ID field was not specified.', |
section => 'The optional section field was not specified.', |
section => 'The optional section field was not specified.', |
email => 'The optional e-mail address field was not specified.', |
email => 'The optional e-mail address field was not specified.', |
role => 'The optional role field was not specified.', |
role => 'The optional role field was not specified.', |
Line 845 sub forceid_change {
|
Line 845 sub forceid_change {
|
if ($context eq 'domain') { |
if ($context eq 'domain') { |
$output .= '<br /><label><input type="checkbox" name="recurseid"'. |
$output .= '<br /><label><input type="checkbox" name="recurseid"'. |
' value="yes" />'. |
' value="yes" />'. |
&mt('Update Student/Employee ID in courses in which user is active/future student,[_1](if forcing change).','<br />'). |
&mt('Update student/employee ID in courses in which user is active/future student,[_1](if forcing change).','<br />'). |
'</label>'."\n"; |
'</label>'."\n"; |
} |
} |
$output .= '</p>'; |
$output .= '</p>'; |
Line 1332 sub print_userlist {
|
Line 1332 sub print_userlist {
|
.'</span></label>'.(' 'x3)."\n"); |
.'</span></label>'.(' 'x3)."\n"); |
my $roleselected = ''; |
my $roleselected = ''; |
if ($env{'form.showrole'} eq 'Any') { |
if ($env{'form.showrole'} eq 'Any') { |
$roleselected = ' selected="selected" '; |
$roleselected = ' selected="selected"'; |
} |
} |
my ($cnum,$cdom); |
my ($cnum,$cdom); |
$r->print(&role_filter($context)); |
$r->print(&role_filter($context)); |
Line 1526 sub role_filter {
|
Line 1526 sub role_filter {
|
my $output; |
my $output; |
my $roleselected = ''; |
my $roleselected = ''; |
if ($env{'form.showrole'} eq 'Any') { |
if ($env{'form.showrole'} eq 'Any') { |
$roleselected = ' selected="selected" '; |
$roleselected = ' selected="selected"'; |
} |
} |
my ($role_select); |
my ($role_select); |
if ($context eq 'domain') { |
if ($context eq 'domain') { |
Line 1542 sub role_filter {
|
Line 1542 sub role_filter {
|
foreach my $role (@poss_roles) { |
foreach my $role (@poss_roles) { |
$roleselected = ''; |
$roleselected = ''; |
if ($role eq $env{'form.showrole'}) { |
if ($role eq $env{'form.showrole'}) { |
$roleselected = ' selected="selected" '; |
$roleselected = ' selected="selected"'; |
} |
} |
my $plrole; |
my $plrole; |
if ($role eq 'cr') { |
if ($role eq 'cr') { |
Line 2859 sub select_actions {
|
Line 2859 sub select_actions {
|
} |
} |
} |
} |
if ($choices{'sections'}) { |
if ($choices{'sections'}) { |
$output .= '<input type="hidden" name="retainsec" value= "" />'."\n". |
$output .= '<input type="hidden" name="retainsec" value="" />'."\n". |
'<input type="hidden" name="newsecs" value= "" />'."\n"; |
'<input type="hidden" name="newsecs" value="" />'."\n"; |
} |
} |
} |
} |
return $output; |
return $output; |
Line 4443 sub course_sections {
|
Line 4443 sub course_sections {
|
my $output = ''; |
my $output = ''; |
my @sections = (sort {$a <=> $b} keys %{$sections_count}); |
my @sections = (sort {$a <=> $b} keys %{$sections_count}); |
my $numsec = scalar(@sections); |
my $numsec = scalar(@sections); |
my $is_selected = ' selected="selected" '; |
my $is_selected = ' selected="selected"'; |
if ($numsec <= 1) { |
if ($numsec <= 1) { |
$output = '<select name="currsec_'.$role.'" >'."\n". |
$output = '<select name="currsec_'.$role.'" >'."\n". |
' <option value="">'.&mt('Select').'</option>'."\n"; |
' <option value="">'.&mt('Select').'</option>'."\n"; |