version 1.72, 2008/12/08 22:42:43
|
version 1.75, 2008/12/11 11:02:25
|
Line 271 sub handler {
|
Line 271 sub handler {
|
$r->print('<input type="hidden" name="phase" value="" />'. |
$r->print('<input type="hidden" name="phase" value="" />'. |
'<input type="hidden" name="numcols" value="'. |
'<input type="hidden" name="numcols" value="'. |
$env{'form.numcols'}.'" />'."\n". |
$env{'form.numcols'}.'" />'."\n". |
'<span clas="LC_error">'.&mt('No settings chosen'). |
'<span class="LC_error">'.&mt('No settings chosen'). |
'</span>'); |
'</span>'); |
} |
} |
$r->print('</form>'); |
$r->print('</form>'); |
Line 819 sub login_choices {
|
Line 819 sub login_choices {
|
font => "Font color", |
font => "Font color", |
pgbg => "Header", |
pgbg => "Header", |
mainbg => "Page", |
mainbg => "Page", |
sidebg => "Container", |
sidebg => "Login box", |
link => "Link", |
link => "Link", |
alink => "Active link", |
alink => "Active link", |
vlink => "Visited link", |
vlink => "Visited link", |
Line 3605 sub modify_quotas {
|
Line 3605 sub modify_quotas {
|
} |
} |
foreach my $item (@usertools) { |
foreach my $item (@usertools) { |
if (ref($changes{$item}) eq 'HASH') { |
if (ref($changes{$item}) eq 'HASH') { |
|
my $hashid = $env{'user.name'}.':'.$env{'user.domain'}; |
|
&Apache::lonnet::devalidate_cache_new('usertools.'.$item,$hashid); |
$resulttext .= '<li>'.$titles{$item}.'<ul>'; |
$resulttext .= '<li>'.$titles{$item}.'<ul>'; |
foreach my $type (@{$types},'default','_LC_adv') { |
foreach my $type (@{$types},'default','_LC_adv') { |
if ($changes{$item}{$type}) { |
if ($changes{$item}{$type}) { |