[BACK]Return to lonpreferences.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonpreferences.pm between versions 1.105 and 1.107

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'})
Removed from v.1.105  
changed lines
  Added in v.1.107

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>