loncom/interface/lonpreferences.pm - diff

Return to lonpreferences.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.107, 2007/07/05 21:37:38	version 1.108, 2007/07/06 23:17:30
Line 580 sub clickerchanger {	Line 580 sub clickerchanger {
<form name="prefs" action="/adm/preferences" method="post">	<form name="prefs" action="/adm/preferences" method="post">
<input type="hidden" name="action" value="verify_and_change_clicker" />	<input type="hidden" name="action" value="verify_and_change_clicker" />
<label>$text $helplink<br />	<label>$text $helplink<br />
<textarea name="clickers" rows="5" cols="10">$clickers</textarea>	<textarea name="clickers" rows="5" cols="20">$clickers</textarea>
</label>	</label>
<input type="submit" value="$change" />	<input type="submit" value="$change" />
</form>	</form>
Line 592 sub verify_and_change_clicker {	Line 592 sub verify_and_change_clicker {
my $user = $env{'user.name'};	my $user = $env{'user.name'};
my $domain = $env{'user.domain'};	my $domain = $env{'user.domain'};
my $newclickers = $env{'form.clickers'};	my $newclickers = $env{'form.clickers'};
$newclickers=~s/\W+/\,/gs;	$newclickers=~s/[^\w\:\-]+/\,/gs;
$newclickers=~tr/a-z/A-Z/;	$newclickers=~tr/a-z/A-Z/;
	$newclickers=~s/[\:\-]+/\-/g;
	$newclickers=~s/\,+/\,/g;
$newclickers=~s/^\,//;	$newclickers=~s/^\,//;
$newclickers=~s/\,$//;	$newclickers=~s/\,$//;
&Apache::lonnet::put('environment',{'clickers' => $newclickers});	&Apache::lonnet::put('environment',{'clickers' => $newclickers});