[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.109

version 1.105, 2007/05/20 21:10:53 version 1.109, 2007/07/17 21:11:49
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="20">$clickers</textarea>
 </label>  </label>
 <input type="submit" value="$change" />  <input type="submit" value="$change" />
 </form>  </form>
Line 591  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 909  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);
 }  }
   
Line 1801  sub handler { Line 1805  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.109

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