version 1.241, 2008/06/03 01:13:27
|
version 1.244, 2008/06/23 14:13:50
|
Line 3105 sub print_main_menu {
|
Line 3105 sub print_main_menu {
|
}); |
}); |
if (!exists($permission->{'cusr_section'})) { |
if (!exists($permission->{'cusr_section'})) { |
push(@courselinks, |
push(@courselinks, |
{ text => 'Automated Student Enrollment Manager', |
{ text => 'Automated Enrollment Manager', |
help => 'Course_Automated_Enrollment', |
help => 'Course_Automated_Enrollment', |
permission => (&Apache::lonnet::auto_run($cnum,$cdom) |
permission => (&Apache::lonnet::auto_run($cnum,$cdom) |
&& $permission->{'cusr'}), |
&& $permission->{'cusr'}), |
Line 3245 sub print_selfenroll_menu {
|
Line 3245 sub print_selfenroll_menu {
|
} |
} |
my $add_domtitle = &mt('Additional domain:'); |
my $add_domtitle = &mt('Additional domain:'); |
if ($curr_types eq '*') { |
if ($curr_types eq '*') { |
$add_domtitle = &mt('Specific Domain:'); |
$add_domtitle = &mt('Specific domain:'); |
} elsif ($curr_types eq '') { |
} elsif ($curr_types eq '') { |
$add_domtitle = &mt('Other domain:'); |
$add_domtitle = &mt('Other domain:'); |
} |
} |
Line 3266 sub print_selfenroll_menu {
|
Line 3266 sub print_selfenroll_menu {
|
$regoff = ' checked="checked" '; |
$regoff = ' checked="checked" '; |
} |
} |
$output .= '<label>'. |
$output .= '<label>'. |
'<input type="radio" name="registered" value="0"'.$regoff.'/>'. |
|
&mt('No').'</label> <label>'. |
|
'<input type="radio" name="registered" value="1"'.$regon.'/>'. |
'<input type="radio" name="registered" value="1"'.$regon.'/>'. |
&mt('Yes').'</label>'; |
&mt('Yes').'</label> <label>'. |
|
'<input type="radio" name="registered" value="0"'.$regoff.'/>'. |
|
&mt('No').'</label>'; |
} elsif ($item eq 'enroll_dates') { |
} elsif ($item eq 'enroll_dates') { |
my $starttime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_start_date'}; |
my $starttime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_start_date'}; |
my $endtime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_end_date'}; |
my $endtime = $env{'course.'.$env{'request.course.id'}.'.internal.selfenroll_end_date'}; |
Line 3396 sub selfenroll_inst_types {
|
Line 3396 sub selfenroll_inst_types {
|
sub selfenroll_date_forms { |
sub selfenroll_date_forms { |
my ($startform,$endform) = @_; |
my ($startform,$endform) = @_; |
my $output .= &Apache::lonhtmlcommon::start_pick_box()."\n". |
my $output .= &Apache::lonhtmlcommon::start_pick_box()."\n". |
&Apache::lonhtmlcommon::row_title(&mt('Starts'), |
&Apache::lonhtmlcommon::row_title(&mt('Start date'), |
'LC_oddrow_value')."\n". |
'LC_oddrow_value')."\n". |
$startform."\n". |
$startform."\n". |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_title(&mt('Ends'), |
&Apache::lonhtmlcommon::row_title(&mt('End date'), |
'LC_oddrow_value')."\n". |
'LC_oddrow_value')."\n". |
$endform."\n". |
$endform."\n". |
&Apache::lonhtmlcommon::row_closure(1). |
&Apache::lonhtmlcommon::row_closure(1). |
Line 3669 sub user_search_result {
|
Line 3669 sub user_search_result {
|
if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'crs') || |
if (($srch->{'srchin'} eq 'dom') || ($srch->{'srchin'} eq 'crs') || |
($srch->{'srchin'} eq 'alc')) { |
($srch->{'srchin'} eq 'alc')) { |
if ($srch->{'srchby'} eq 'uname') { |
if ($srch->{'srchby'} eq 'uname') { |
if ($srch->{'srchterm'} !~ /^$match_username$/) { |
my $unamecheck = $srch->{'srchterm'}; |
|
if ($srch->{'srchtype'} eq 'contains') { |
|
if ($unamecheck !~ /^\w/) { |
|
$unamecheck = 'a'.$unamecheck; |
|
} |
|
} |
|
if ($unamecheck !~ /^$match_username$/) { |
$response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @'); |
$response = &mt('You must specify a valid username. Only the following are allowed: letters numbers - . @'); |
} |
} |
} |
} |
Line 4381 sub update_selfenroll_config {
|
Line 4387 sub update_selfenroll_config {
|
foreach my $type ('start','end') { |
foreach my $type ('start','end') { |
if (exists($changes{'internal.selfenroll_'.$type.'_date'})) { |
if (exists($changes{'internal.selfenroll_'.$type.'_date'})) { |
my $newdate = &Apache::lonlocal::locallocaltime($changes{'internal.selfenroll_'.$type.'_date'}); |
my $newdate = &Apache::lonlocal::locallocaltime($changes{'internal.selfenroll_'.$type.'_date'}); |
$r->print('<li>'.&mt('[_1]: [_2] set to "[_3]".', |
$r->print('<li>'.&mt('[_1]: "[_2]" set to "[_3]".', |
$title,$type,$newdate).'</li>'); |
$title,$type,$newdate).'</li>'); |
} |
} |
} |
} |
Line 4389 sub update_selfenroll_config {
|
Line 4395 sub update_selfenroll_config {
|
foreach my $type ('start','end') { |
foreach my $type ('start','end') { |
if (exists($changes{'internal.selfenroll_'.$type.'_access'})) { |
if (exists($changes{'internal.selfenroll_'.$type.'_access'})) { |
my $newdate = &Apache::lonlocal::locallocaltime($changes{'internal.selfenroll_'.$type.'_access'}); |
my $newdate = &Apache::lonlocal::locallocaltime($changes{'internal.selfenroll_'.$type.'_access'}); |
$r->print('<li>'.&mt('[_1]: [_2] set to "[_3]".', |
$r->print('<li>'.&mt('[_1]: "[_2]" set to "[_3]".', |
$title,$type,$newdate).'</li>'); |
$title,$type,$newdate).'</li>'); |
} |
} |
} |
} |
Line 4403 sub update_selfenroll_config {
|
Line 4409 sub update_selfenroll_config {
|
$newval = &mt('Any user in any domain'); |
$newval = &mt('Any user in any domain'); |
} |
} |
} |
} |
$r->print('<li>'.&mt('[_1] set to "[_2]".',$title,$newval).'</li>'."\n"); |
$r->print('<li>'.&mt('"[_1]" set to "[_2]".',$title,$newval).'</li>'."\n"); |
} |
} |
} |
} |
} |
} |
Line 4432 sub get_selfenroll_titles {
|
Line 4438 sub get_selfenroll_titles {
|
my @row = ('types','registered','enroll_dates','access_dates','section'); |
my @row = ('types','registered','enroll_dates','access_dates','section'); |
my %lt = &Apache::lonlocal::texthash ( |
my %lt = &Apache::lonlocal::texthash ( |
types => 'Users allowed to self-enroll in this course', |
types => 'Users allowed to self-enroll in this course', |
registered => 'Restrict self-enrollment to registered students?', |
registered => 'Restrict self-enrollment to registered students', |
enroll_dates => 'Dates self-enrollment available', |
enroll_dates => 'Dates self-enrollment available', |
access_dates => 'Access dates for self-enrolled users', |
access_dates => 'Course access dates for self-enrolled users', |
section => 'Section assigned to self-enrolled users', |
section => 'Section assigned to self-enrolled users', |
); |
); |
return (\@row,\%lt); |
return (\@row,\%lt); |