open(TL,"$path_to_lang/$thislang/add_user.txt");
while(<TL>){push(@LaNg,$_)}
&exec_lang;

if($demo_mode){
	$onclick=qq~alert('DISABLED FOR DEMO')~;
}else{
	$onclick=qq~dialogArguments.nufolder=document.forms[0].nufolder.value;dialogArguments.create_folder();window.close()~;
}
print "Content-type: text/html\n\n";
open(AU,"$htm/add_user.txt");
while(<AU>){
s/\$(\w+)/${$1}/eg;
print;
}
1;