loncom/interface/lonhtmlcommon.pm - diff

Return to lonhtmlcommon.pm CVS log

Up to [LON-CAPA] / loncom / interface

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($\|\?)})) {