version 1.113, 2008/01/21 04:30:05
|
version 1.115, 2008/03/06 22:27:45
|
Line 581 sub clickerchanger {
|
Line 581 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'); |
my $helplink=&Apache::loncommon::help_open_topic('Clicker_Registration',&mt('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" /> |
Line 1165 sub jscript_send {
|
Line 1165 sub jscript_send {
|
sub client_form { |
sub client_form { |
my ($caller,$hexkey,$currentpass,$defdom) = @_; |
my ($caller,$hexkey,$currentpass,$defdom) = @_; |
my %lt=&Apache::lonlocal::texthash( |
my %lt=&Apache::lonlocal::texthash( |
'email' => 'EMail Address', |
'email' => 'E-mail Address', |
'username' => 'Username', |
'username' => 'Username', |
'domain' => 'Domain', |
'domain' => 'Domain', |
'currentpass' => 'Current Password', |
'currentpass' => 'Current Password', |
Line 1186 sub client_form {
|
Line 1186 sub client_form {
|
<input type="text" name="uname" size="15" /> |
<input type="text" name="uname" size="15" /> |
<input type="hidden" name="currentpass" value="$currentpass" /> |
<input type="hidden" name="currentpass" value="$currentpass" /> |
</td></tr> |
</td></tr> |
<tr><td class="LC_preferences_labeltext"><label for="udom">$lt{'udom'}</label>:</td> |
<tr><td class="LC_preferences_labeltext"><label for="udom">$lt{'domain'}</label>:</td> |
<td> |
<td> |
|; |
|; |
$output .= &Apache::loncommon::select_dom_form($defdom,'udom').' |
$output .= &Apache::loncommon::select_dom_form($defdom,'udom').' |