--- loncom/interface/lonuserutils.pm 2009/04/22 17:19:10 1.88
+++ loncom/interface/lonuserutils.pm 2009/05/06 13:39:16 1.91
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Utility functions for managing LON-CAPA user accounts
#
-# $Id: lonuserutils.pm,v 1.88 2009/04/22 17:19:10 bisitz Exp $
+# $Id: lonuserutils.pm,v 1.91 2009/05/06 13:39:16 bisitz Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -328,7 +328,7 @@ sub print_upload_manager_header {
&javascript_validations('upload',$krbdefdom,$password_choice,undef,
$env{'request.role.domain'},$context,
$groupslist);
- my $checked=(($env{'form.noFirstLine'})?' checked="checked" ':'');
+ my $checked=(($env{'form.noFirstLine'})?' checked="checked"':'');
$r->print(&mt('Total number of records found in file: [_1]',''.$distotal.'').
"
\n");
$r->print('
'.
@@ -1332,7 +1332,7 @@ sub print_userlist {
.''.(' 'x3)."\n");
my $roleselected = '';
if ($env{'form.showrole'} eq 'Any') {
- $roleselected = ' selected="selected" ';
+ $roleselected = ' selected="selected"';
}
my ($cnum,$cdom);
$r->print(&role_filter($context));
@@ -1526,7 +1526,7 @@ sub role_filter {
my $output;
my $roleselected = '';
if ($env{'form.showrole'} eq 'Any') {
- $roleselected = ' selected="selected" ';
+ $roleselected = ' selected="selected"';
}
my ($role_select);
if ($context eq 'domain') {
@@ -1542,7 +1542,7 @@ sub role_filter {
foreach my $role (@poss_roles) {
$roleselected = '';
if ($role eq $env{'form.showrole'}) {
- $roleselected = ' selected="selected" ';
+ $roleselected = ' selected="selected"';
}
my $plrole;
if ($role eq 'cr') {
@@ -2572,7 +2572,7 @@ END
}
if ($env{'course.'.$env{'request.course.id'}.'.internal.showphoto'}) {
if ($displayphotos eq 'on' && $role eq 'st' && $in{'photo'} ne '') {
- $r->print(' | ');
+ $r->print(' | ');
} else {
$r->print(' | ');
}
@@ -2859,8 +2859,8 @@ sub select_actions {
}
}
if ($choices{'sections'}) {
- $output .= ''."\n".
- ''."\n";
+ $output .= ''."\n".
+ ''."\n";
}
}
return $output;
@@ -3396,10 +3396,14 @@ END
'ua' => "uncheck all",
);
$r->print(<<"END");
-
+
+
-
+
+
+
+
END
return;
}