--- loncom/interface/lonpreferences.pm 2011/10/07 17:14:43 1.186.2.7 +++ loncom/interface/lonpreferences.pm 2012/02/17 03:32:34 1.186.2.8.2.2 @@ -1,7 +1,7 @@ # The LearningOnline Network # Preferences # -# $Id: lonpreferences.pm,v 1.186.2.7 2011/10/07 17:14:43 raeburn Exp $ +# $Id: lonpreferences.pm,v 1.186.2.8.2.2 2012/02/17 03:32:34 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -1360,7 +1360,7 @@ sub passwordchanger { my $jsh=Apache::File->new($include."/londes.js"); $r->print(<$jsh>); } - $r->print(&jscript_send($caller)); + $r->print(&jscript_send($caller,$domain)); $r->print(< @@ -1405,8 +1405,19 @@ sub jscript_send { $output .= qq| this.document.pserver.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.client.elements.udom.options[this.document.client.elements.udom.selectedIndex].value; +|; + } + $output .= qq| this.document.pserver.elements.email.value = this.document.client.elements.email.value; |; @@ -1439,13 +1450,18 @@ sub client_form { .&Apache::lonhtmlcommon::row_closure() .&Apache::lonhtmlcommon::row_title( '') - .'' - .'' - .&Apache::lonhtmlcommon::row_closure() - .&Apache::lonhtmlcommon::row_title( - '') - .&Apache::loncommon::select_dom_form($defdom,'udom') - .&Apache::lonhtmlcommon::row_closure(); + .'' + .''; + if ($defdom eq 'relate') { + $output .= '' + .&Apache::lonhtmlcommon::row_closure(); + } else { + $output .= &Apache::lonhtmlcommon::row_closure() + .&Apache::lonhtmlcommon::row_title( + '') + .&Apache::loncommon::select_dom_form($defdom,'udom') + .&Apache::lonhtmlcommon::row_closure(); + } } else { $output .= &Apache::lonhtmlcommon::row_title( '') @@ -1704,7 +1720,7 @@ sub discussionchanger { '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', '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', 'unread' => 'New posts only', 'ondisp' => 'Once displayed',