version 1.287, 2011/01/16 22:45:05
|
version 1.290, 2011/06/03 13:00:39
|
Line 72 sub java_not_enabled {
|
Line 72 sub java_not_enabled {
|
sub coursepreflink { |
sub coursepreflink { |
my ($text,$category)=@_; |
my ($text,$category)=@_; |
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) { |
if (&Apache::lonnet::allowed('opa',$env{'request.course.id'})) { |
return '<a href="'.&HTML::Entities::encode("/adm/courseprefs?phase=display&actions=$category",'<>&"').'">'.$text.'</a>'; |
return '<a href="'.&HTML::Entities::encode("/adm/courseprefs?phase=display&actions=$category",'<>&"').'"><span class="LC_setting">'.$text.'</span></a>'; |
} else { |
} else { |
return ''; |
return ''; |
} |
} |
Line 95 sub direct_parm_link {
|
Line 95 sub direct_parm_link {
|
$filter=&entity_encode($filter); |
$filter=&entity_encode($filter); |
$part=&entity_encode($part); |
$part=&entity_encode($part); |
if (($symb) && (&Apache::lonnet::allowed('opa')) && ($target ne 'tex')) { |
if (($symb) && (&Apache::lonnet::allowed('opa')) && ($target ne 'tex')) { |
return "<a href='/adm/parmset?symb=$symb&filter=$filter&part=$part'>$linktext</a>"; |
return "<a href='/adm/parmset?symb=$symb&filter=$filter&part=$part'><span class='LC_setting'>$linktext</span></a>"; |
} else { |
} else { |
return $linktext; |
return $linktext; |
} |
} |
Line 1429 sub htmlareabrowser {
|
Line 1429 sub htmlareabrowser {
|
# |
# |
|
|
sub show_return_link { |
sub show_return_link { |
|
|
|
unless ($env{'request.course.id'}) { return 0; } |
|
if ($env{'request.noversionuri'}=~m{^/priv/} || |
|
$env{'request.uri'}=~m{^/~}) { return 1; } |
|
|
if (($env{'request.noversionuri'} =~ m{^/adm/(viewclasslist|navmaps)($|\?)}) |
if (($env{'request.noversionuri'} =~ m{^/adm/(viewclasslist|navmaps)($|\?)}) |
|| ($env{'request.noversionuri'} =~ m{^/adm/.*/aboutme($|\?)})) { |
|| ($env{'request.noversionuri'} =~ m{^/adm/.*/aboutme($|\?)})) { |
|
|
Line 1657 returns: nothing
|
Line 1662 returns: nothing
|
@html = grep {defined $_ && $_ ne ''} @html; |
@html = grep {defined $_ && $_ ne ''} @html; |
for (@html) { |
for (@html) { |
s/align="(right|left)"//; |
s/align="(right|left)"//; |
s/<span.*?\/span>// if $category ne 'advtools'; |
# s/<span.*?\/span>// if $category ne 'advtools'; |
} |
} |
|
|
push @{$tools{$category}}, @html; |
push @{$tools{$category}}, @html; |