loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/londocs.pm between versions 1.176 and 1.177

version 1.176, 2005/04/22 18:21:05	version 1.177, 2005/06/05 07:10:32
Line 1837 sub is_hash_old {	Line 1837 sub is_hash_old {
}	}

sub changewarning {	sub changewarning {
my ($r,$postexec)=@_;	my ($r,$postexec,$message,$url)=@_;
if (!&is_hash_old()) { return; }	if (!&is_hash_old()) { return; }
my $pathvar='folderpath';	my $pathvar='folderpath';
my $path=&Apache::lonnet::escape($env{'form.folderpath'});	my $path=&Apache::lonnet::escape($env{'form.folderpath'});
if (defined($env{'form.pagepath'})) {	if (!defined($url)) {
$pathvar='pagepath';	if (defined($env{'form.pagepath'})) {
$path=&Apache::lonnet::escape($env{'form.pagepath'});	$pathvar='pagepath';
$path.='&symb='.&Apache::lonnet::escape($env{'form.pagesymb'});	$path=&Apache::lonnet::escape($env{'form.pagepath'});
	$path.='&symb='.&Apache::lonnet::escape($env{'form.pagesymb'});
	}
	$url='/adm/coursedocs?'.$pathvar.'='.$path;
	}
	if (!defined($message)) {
	$message='Changes will become active for your current session after [_1], or the next time you log in.';
}	}
$r->print(	$r->print(
'<script>function reinit(tf) { tf.submit();'.$postexec.' }</script>'.	'<script>function reinit(tf) { tf.submit();'.$postexec.' }</script>'.
'<form method="post" action="/adm/roles" target="loncapaclient">'.	'<form method="post" action="/adm/roles" target="loncapaclient">'.
'<input type="hidden" name="orgurl" value="/adm/coursedocs?'.	'<input type="hidden" name="orgurl" value="'.$url.
$pathvar.'='.$path.
'" /><input type="hidden" name="selectrole" value="1" /><h3><font color="red">'.	'" /><input type="hidden" name="selectrole" value="1" /><h3><font color="red">'.
&mt('Changes will become active for your current session after').	&mt($message,' <input type="hidden" name="'.
' <input type="hidden" name="'.	$env{'request.role'}.'" value="1" /><input type="button" value="'.
$env{'request.role'}.'" value="1" /><input type="button" value="'.	&mt('re-initializing course').'" onClick="reinit(this.form)" />').
&mt('re-initializing course').'" onClick="reinit(this.form)"/>'.&mt(', or the next time you log in.').
$help{'Caching'}.'</font></h3></form>');	$help{'Caching'}.'</font></h3></form>');
}	}

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.176
changed lines
	Added in v.1.177