version 1.106, 2007/06/17 02:11:57
|
version 1.108, 2007/07/06 23:17:30
|
Line 575 sub clickerchanger {
|
Line 575 sub clickerchanger {
|
$clickers=~s/\,/\n/gs; |
$clickers=~s/\,/\n/gs; |
my $text=&mt('Enter response device ("clicker") numbers'); |
my $text=&mt('Enter response device ("clicker") numbers'); |
my $change=&mt('Register'); |
my $change=&mt('Register'); |
|
my $helplink=&Apache::loncommon::help_open_topic('Clicker_Registration', 'Locating your clicker ID'); |
$r->print(<<ENDSCREEN); |
$r->print(<<ENDSCREEN); |
<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<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 591 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}); |