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

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

version 1.104, 2007/05/13 22:04:06 version 1.105, 2007/05/20 21:10:53
Line 562  sub verify_and_change_icons { Line 562  sub verify_and_change_icons {
 }  }
   
 ################################################################  ################################################################
   #                     Clicker Subroutines                      #
   ################################################################
   
   sub clickerchanger {
       my $r = shift;
       my $user       = $env{'user.name'};
       my $domain     = $env{'user.domain'};
       my %userenv = &Apache::lonnet::get
           ('environment',['clickers']);
       my $clickers=$userenv{'clickers'};
       $clickers=~s/\,/\n/gs;
       my $text=&mt('Enter response device ("clicker") numbers');
       my $change=&mt('Register');
       $r->print(<<ENDSCREEN);
   <form name="prefs" action="/adm/preferences" method="post">
   <input type="hidden" name="action" value="verify_and_change_clicker" />
   <label>$text<br />
   <textarea name="clickers" rows="5" cols="10">$clickers</textarea>
   </label>
   <input type="submit" value="$change" />
   </form>
   ENDSCREEN
   }
   
   sub verify_and_change_clicker {
       my $r = shift;
       my $user       = $env{'user.name'};
       my $domain     = $env{'user.domain'};
       my $newclickers  = $env{'form.clickers'};
       $newclickers=~s/\W+/\,/gs;
       $newclickers=~tr/a-z/A-Z/;
       $newclickers=~s/^\,//;
       $newclickers=~s/\,$//;
       &Apache::lonnet::put('environment',{'clickers' => $newclickers});
       &Apache::lonnet::appenv('environment.clickers' => $newclickers);
       $r->print(&mt('Registering clickers: [_1]',$newclickers));
   }
   
   ################################################################
 #         Message Forward                                      #  #         Message Forward                                      #
 ################################################################  ################################################################
   
Line 1762  sub handler { Line 1801  sub handler {
                       printmenu => 'yes',                        printmenu => 'yes',
                       }));                        }));
   
   #    push (@Options,({ action   => 'changeclicker',
   #                      linktext => 'Register Response Devices ("Clickers")',
   #                      href     => '/adm/preferences',
   #                      subroutine => \&clickerchanger,
   #                      breadcrumb =>
   #                          { href => '/adm/preferences?action=changeicons',
   #                            text => 'Register Clicker'},
   #                      },
   #                    { action   => 'verify_and_change_clicker',
   #                      subroutine => \&verify_and_change_clicker,
   #                      breadcrumb =>
   #                          { href => '/adm/preferences?action=changeclicker',
   #                            text => 'Register Clicker'},
   #                      printmenu => 'yes',
   #                      }));
   
   
     if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})      if (&Apache::lonnet::allowed('whn',$env{'request.course.id'})
  || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'   || &Apache::lonnet::allowed('whn',$env{'request.course.id'}.'/'
     .$env{'request.course.sec'})) {      .$env{'request.course.sec'})) {
Removed from v.1.104  
changed lines
  Added in v.1.105

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