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

Diff for /loncom/interface/lonpreferences.pm between versions 1.186.2.7 and 1.186.2.8.2.2

version 1.186.2.7, 2011/10/07 17:14:43 version 1.186.2.8.2.2, 2012/02/17 03:32:34
Line 1360  sub passwordchanger { Line 1360  sub passwordchanger {
  my $jsh=Apache::File->new($include."/londes.js");   my $jsh=Apache::File->new($include."/londes.js");
  $r->print(<$jsh>);   $r->print(<$jsh>);
     }      }
     $r->print(&jscript_send($caller));      $r->print(&jscript_send($caller,$domain));
     $r->print(<<ENDFORM);      $r->print(<<ENDFORM);
 $errormessage  $errormessage
   
Line 1377  ENDFORM Line 1377  ENDFORM
 }  }
   
 sub jscript_send {  sub jscript_send {
     my ($caller) = @_;      my ($caller,$domain) = @_;
     my $output = qq|      my $output = qq|
 <script type="text/javascript" language="JavaScript">  <script type="text/javascript" language="JavaScript">
   
Line 1405  sub jscript_send { Line 1405  sub jscript_send {
         $output .= qq|          $output .= qq|
         this.document.pserver.elements.uname.value =          this.document.pserver.elements.uname.value =
                    this.document.client.elements.uname.value;                     this.document.client.elements.uname.value;
   |;
           if ($domain eq 'relate') {
               $output .= qq|
           this.document.pserver.elements.udom.value =
                      this.document.client.elements.udom.value;
   |;
           } else {
               $output .= qq|
         this.document.pserver.elements.udom.value =          this.document.pserver.elements.udom.value =
                    this.document.client.elements.udom.options[this.document.client.elements.udom.selectedIndex].value;                     this.document.client.elements.udom.options[this.document.client.elements.udom.selectedIndex].value;
   |;
           }
           $output .= qq| 
         this.document.pserver.elements.email.value =          this.document.pserver.elements.email.value =
                    this.document.client.elements.email.value;                     this.document.client.elements.email.value;
 |;  |;
Line 1439  sub client_form { Line 1450  sub client_form {
                   .&Apache::lonhtmlcommon::row_closure()                    .&Apache::lonhtmlcommon::row_closure()
                   .&Apache::lonhtmlcommon::row_title(                    .&Apache::lonhtmlcommon::row_title(
                        '<label for="uname">'.$lt{'username'}.'</label>')                         '<label for="uname">'.$lt{'username'}.'</label>')
                   .'<input type="text" name="uname" size="15" />'                    .'<input type="text" name="uname" size="30" />'
                   .'<input type="hidden" name="currentpass" value="'.$currentpass.'" />'                    .'<input type="hidden" name="currentpass" value="'.$currentpass.'" />';
                   .&Apache::lonhtmlcommon::row_closure()          if ($defdom eq 'relate') {
                   .&Apache::lonhtmlcommon::row_title(              $output .= '<input type="hidden" name="udom" value="'.$defdom.'" />'
                        '<label for="udom">'.$lt{'domain'}.'</label>')                        .&Apache::lonhtmlcommon::row_closure(); 
                   .&Apache::loncommon::select_dom_form($defdom,'udom')          } else {
                   .&Apache::lonhtmlcommon::row_closure();              $output .= &Apache::lonhtmlcommon::row_closure()
                         .&Apache::lonhtmlcommon::row_title(
                              '<label for="udom">'.$lt{'domain'}.'</label>')
                         .&Apache::loncommon::select_dom_form($defdom,'udom')
                         .&Apache::lonhtmlcommon::row_closure();
           }
     } else {      } else {
         $output .= &Apache::lonhtmlcommon::row_title(          $output .= &Apache::lonhtmlcommon::row_title(
                        '<label for="currentpass">'.$lt{'currentpass'}.'</label>')                         '<label for="currentpass">'.$lt{'currentpass'}.'</label>')
Line 1704  sub discussionchanger { Line 1720  sub discussionchanger {
         'sdpf' => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.',          'sdpf' => 'Set display preferences for discussion posts for both discussion boards and individual resources in all your courses.',
         'prca' => 'Preferences can be set that determine',          'prca' => 'Preferences can be set that determine',
         'whpo' => 'Which posts are displayed when you display a discussion board or resource, and',          'whpo' => 'Which posts are displayed when you display a discussion board or resource, and',
         'unwh' => 'Under what circumstances posts are identfied as "NEW"',          'unwh' => 'Under what circumstances posts are identified as "NEW"',
         'allposts' => 'All posts',          'allposts' => 'All posts',
         'unread' => 'New posts only',          'unread' => 'New posts only',
         'ondisp' => 'Once displayed',          'ondisp' => 'Once displayed',
Removed from v.1.186.2.7  
changed lines
  Added in v.1.186.2.8.2.2

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