--- loncom/interface/lonuserutils.pm 2009/08/03 15:57:25 1.95
+++ loncom/interface/lonuserutils.pm 2009/08/28 22:47:07 1.98
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Utility functions for managing LON-CAPA user accounts
#
-# $Id: lonuserutils.pm,v 1.95 2009/08/03 15:57:25 bisitz Exp $
+# $Id: lonuserutils.pm,v 1.98 2009/08/28 22:47:07 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -347,10 +347,13 @@ sub print_upload_manager_header {
&mt('Ignore First Line').'
');
$r->print('
');
+ 'onclick="javascript:this.form.associate.value=\'Reverse Association\';submit(this.form);" />');
$r->print("
\n".
'');
+ '// '."\n".
+ '');
}
###############################################################
@@ -785,23 +788,21 @@ sub print_upload_manager_footer {
&Apache::loncommon::help_open_topic('Auth_Options').
"
\n";
}
- $Str .= &set_login($defdom,$krbform,$intform,$locform)
- .&Apache::lonhtmlcommon::row_closure();
+ $Str .= &set_login($defdom,$krbform,$intform,$locform);
my ($home_server_pick,$numlib) =
&Apache::loncommon::home_server_form_item($defdom,'lcserver',
'default','hide');
-#FIXME: Broken?!? $home_server_pick returns empty value on prod (2.8.1) and on dev server. SB 2009-08-03
if ($numlib > 1) {
- $Str .= &Apache::lonhtmlcommon::row_title(
+ $Str .= &Apache::lonhtmlcommon::row_closure()
+ .&Apache::lonhtmlcommon::row_title(
&mt('LON-CAPA Home Server for New Users'))
.&mt('LON-CAPA domain: [_1] with home server:','"'.$defdom.'"')
.$home_server_pick
.&Apache::lonhtmlcommon::row_closure();
} else {
- $Str .= &Apache::lonhtmlcommon::row_title(&mt('Home Server'))
- .$home_server_pick
- .&Apache::lonhtmlcommon::row_closure();
+ $Str .= $home_server_pick.
+ &Apache::lonhtmlcommon::row_closure();
}
$Str .= &Apache::lonhtmlcommon::row_title(&mt('Default domain'))
@@ -886,8 +887,8 @@ sub print_upload_manager_footer {
.'';
}
$Str .= ''
+ .' onclick="javascript:verify(this.form,this.form.csec)"'
+ .' value="'.&mt('Update Users').'" />'
.'
'."\n"
.'';
$r->print($Str);
@@ -1182,7 +1183,7 @@ sub default_role_selector {
''.$lt{'grs'}.' | '.
&Apache::loncommon::end_data_table_header_row().
&Apache::loncommon::start_data_table_row()."\n".
- ' | '."\n".
+ ' | '."\n".
' | '.
@@ -1375,9 +1376,9 @@ sub print_userlist {
'html' => 'HTML');
my $output_selector = ' |