loncom/interface/londocs.pm - diff

Return to londocs.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.43, 2002/12/26 16:13:11	version 1.46, 2003/01/23 19:00:06
Line 166 sub editor {	Line 166 sub editor {
my $ext='false';	my $ext='false';
if ($url=~/^http\:\/\//) { $ext='true'; }	if ($url=~/^http\:\/\//) { $ext='true'; }
$url=~s/\:/\&colon;/g;	$url=~s/\:/\&colon;/g;
	$name=~s/\:/\&colon;/g;
$Apache::lonratedt::resources[$idx]=	$Apache::lonratedt::resources[$idx]=
$name.':'.$url.':'.$ext.':normal:res';	$name.':'.$url.':'.$ext.':normal:res';
}	}
Line 593 ENDCOURSEVERIFY	Line 594 ENDCOURSEVERIFY
$hadchanges=0;	$hadchanges=0;
&editor($r,$coursenum,$coursedom,$folder,$allowed);	&editor($r,$coursenum,$coursedom,$folder,$allowed);
if ($hadchanges) {	if ($hadchanges) {
$r->print('<h3><font color="red">Changes will become active after <a href="/adm/roles">re-initializing course</a> or at next login.</font></h3>');	$r->print('<form method="post" action="/adm/roles">'.
	'<input type=hidden name=orgurl value="/adm/coursedocs" /><input type=hidden name=selectrole value=1 /><h3><font color="red">Changes will become active for your current session after <input type="submit" name="'.
	$ENV{'request.role'}.'" value="re-initializing course" />, or the next time you log in.</font></h3></form>');
}	}
my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.	my $folderseq='/uploaded/'.$coursedom.'/'.$coursenum.'/default_'.time.
'.sequence';	'.sequence';