version 1.105, 2007/05/20 21:10:53
|
version 1.107, 2007/07/05 21:37:38
|
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="10">$clickers</textarea> |
</label> |
</label> |
<input type="submit" value="$change" /> |
<input type="submit" value="$change" /> |
Line 1801 sub handler {
|
Line 1802 sub handler {
|
printmenu => 'yes', |
printmenu => 'yes', |
})); |
})); |
|
|
# push (@Options,({ action => 'changeclicker', |
push (@Options,({ action => 'changeclicker', |
# linktext => 'Register Response Devices ("Clickers")', |
linktext => 'Register Response Devices ("Clickers")', |
# href => '/adm/preferences', |
href => '/adm/preferences', |
# subroutine => \&clickerchanger, |
subroutine => \&clickerchanger, |
# breadcrumb => |
breadcrumb => |
# { href => '/adm/preferences?action=changeicons', |
{ href => '/adm/preferences?action=changeicons', |
# text => 'Register Clicker'}, |
text => 'Register Clicker'}, |
# }, |
}, |
# { action => 'verify_and_change_clicker', |
{ action => 'verify_and_change_clicker', |
# subroutine => \&verify_and_change_clicker, |
subroutine => \&verify_and_change_clicker, |
# breadcrumb => |
breadcrumb => |
# { href => '/adm/preferences?action=changeclicker', |
{ href => '/adm/preferences?action=changeclicker', |
# text => 'Register Clicker'}, |
text => 'Register Clicker'}, |
# printmenu => 'yes', |
printmenu => 'yes', |
# })); |
})); |
|
|
|
|
if (&Apache::lonnet::allowed('whn',$env{'request.course.id'}) |
if (&Apache::lonnet::allowed('whn',$env{'request.course.id'}) |