version 1.317, 2012/05/29 01:11:30
|
version 1.319, 2012/07/06 22:46:06
|
Line 209 dependencies for a web page uploaded dir
|
Line 209 dependencies for a web page uploaded dir
|
=cut |
=cut |
|
|
sub dependencycheck_js { |
sub dependencycheck_js { |
my ($symb,$title) = @_; |
my ($symb,$title,$url) = @_; |
my $link = '/adm/dependencies?symb='.&HTML::Entities::encode($symb,'<>&"'). |
my $link = '/adm/dependencies?symb='.&HTML::Entities::encode($symb,'<>&"'). |
'&title='.&HTML::Entities::encode($title,'<>&"'); |
'&title='.&HTML::Entities::encode($title,'<>&"'). |
|
'&url='.&HTML::Entities::encode($url,'<>&"'); |
return <<ENDJS; |
return <<ENDJS; |
<script type="text/javascript"> |
<script type="text/javascript"> |
// <![CDATA[ |
// <![CDATA[ |
Line 1453 sub show_return_link {
|
Line 1454 sub show_return_link {
|
|
|
unless ($env{'request.course.id'}) { return 0; } |
unless ($env{'request.course.id'}) { return 0; } |
if ($env{'request.noversionuri'}=~m{^/priv/} || |
if ($env{'request.noversionuri'}=~m{^/priv/} || |
$env{'request.uri'}=~m{^/~}) { return 1; } |
$env{'request.uri'}=~m{^/priv/}) { 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($|\?)})) { |