loncom/lchtmldir - diff

Return to lchtmldir CVS log

Up to [LON-CAPA] / loncom

version 1.6, 2004/08/05 20:33:50	version 1.7, 2004/08/05 20:35:55
Line 1	Line 1
#!/usr/bin/perl -w	#!/usr/bin/perl

# The Learning Online Network with CAPA	# The Learning Online Network with CAPA
#	#
Line 238 exit 0;	Line 238 exit 0;

sub EnableRoot {	sub EnableRoot {
if ($wwwid==$>) {	if ($wwwid==$>) {
print ("EnableRoot $< $>\n");
($<,$>)=($>,$<);	($<,$>)=($>,$<);
($(,$))=($),$();	($(,$))=($),$();
}	}