|
version 1.107, 2007/07/05 21:37:38
|
version 1.109, 2007/07/17 21:11:49
|
|
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}); |
|
Line 910 sub verify_and_change_msgforward {
|
Line 912 sub verify_and_change_msgforward {
|
| if ($message) { |
if ($message) { |
| $message .= '<br /><hr />'; |
$message .= '<br /><hr />'; |
| } |
} |
| |
&Apache::loncommon::flush_email_cache($user,$domain); |
| &msgforwardchanger($r,$message); |
&msgforwardchanger($r,$message); |
| } |
} |
| |
|
![[BACK]](/icons/back.gif){kind=icon}
Return to lonpreferences.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface