version 1.240.2.6, 2009/12/25 00:26:16
|
version 1.240.2.7, 2010/01/05 15:30:25
|
Line 768 ENDSCRIPT
|
Line 768 ENDSCRIPT
|
&queued_selfenrollment($r); |
&queued_selfenrollment($r); |
my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description'); |
my $domdesc = &Apache::lonnet::domain($env{'user.domain'},'description'); |
my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&'); |
my $esc_dom = &HTML::Entities::encode($env{'user.domain'},'"<>&'); |
$r->print( |
unless ($env{'user.domain'} eq 'gcitest') { |
'<p>' |
$r->print( |
.&mt('[_1]Visit the [_2]Course/Community Catalog[_3]' |
'<p>' |
.' to view all [_4] LON-CAPA courses and communities.' |
.&mt('[_1]Visit the [_2]Course/Community Catalog[_3]' |
,'<b>' |
.' to view all [_4] LON-CAPA courses and communities.' |
,'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">' |
,'<b>' |
,'</a></b>',$domdesc) |
,'<a href="/adm/coursecatalog?showdom='.$esc_dom.'">' |
.'<br />' |
,'</a></b>',$domdesc) |
.&mt('If a course or community is [_1]not[_2] in your list of current courses and communities below,' |
.'<br />' |
|
.&mt('If a course or community is [_1]not[_2] in your list of current courses and communities below,' |
.' you may be able to enroll if self-enrollment is permitted.' |
.' you may be able to enroll if self-enrollment is permitted.' |
,'<b>','</b>') |
,'<b>','</b>') |
.'</p>' |
.'</p>' |
); |
); |
|
} |
} |
} |
} |
} |
|
|
Line 791 ENDSCRIPT
|
Line 793 ENDSCRIPT
|
} else { |
} else { |
$r->print('<h2>'.&mt('Currently no active roles, courses or communities').'</h2>'); |
$r->print('<h2>'.&mt('Currently no active roles, courses or communities').'</h2>'); |
} |
} |
&findcourse_advice($r); |
unless ($env{'user.domain'} eq 'gcitest') { |
&requestcourse_advice($r); |
&findcourse_advice($r); |
|
&requestcourse_advice($r); |
|
} |
$r->print('</form>'); |
$r->print('</form>'); |
if ($countfuture) { |
if ($countfuture) { |
$r->print(&mt('The following [quant,_1,role,roles] will become active in the future:',$countfuture)); |
$r->print(&mt('The following [quant,_1,role,roles] will become active in the future:',$countfuture)); |