loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.149, 2004/11/11 22:47:55	version 1.150, 2004/12/10 19:21:21
Line 1623 sub is_hash_old {	Line 1623 sub is_hash_old {
sub changewarning {	sub changewarning {
my ($r,$postexec)=@_;	my ($r,$postexec)=@_;
if (!&is_hash_old()) { return; }	if (!&is_hash_old()) { return; }
	my $pathvar='folderpath';
	my $path=&Apache::lonnet::escape($ENV{'form.folderpath'});
	if (defined($ENV{'form.pagepath'})) {
	$pathvar='pagepath';
	$path=&Apache::lonnet::escape($ENV{'form.pagepath'});
	}
$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?folderpath='.	'<input type="hidden" name="orgurl" value="/adm/coursedocs?'.
&Apache::lonnet::escape($ENV{'form.folderpath'}).	$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('Changes will become active for your current session after').
' <input type="hidden" name="'.	' <input type="hidden" name="'.