--- loncom/interface/loncreateuser.pm 2007/06/11 22:24:51 1.155
+++ loncom/interface/loncreateuser.pm 2007/07/20 23:52:55 1.157
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Create a user
#
-# $Id: loncreateuser.pm,v 1.155 2007/06/11 22:24:51 banghart Exp $
+# $Id: loncreateuser.pm,v 1.157 2007/07/20 23:52:55 albertel Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -222,10 +222,10 @@ sub print_username_entry_form {
$r->print(<<"ENDDOCUMENT");
$start_page
'.
+ ''.
&Apache::loncommon::end_page());
}
# --------------------------------------------------------
@@ -1933,7 +1933,7 @@ sub course_level_table {
if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) {
my $plrole=&Apache::lonnet::plaintext($role);
$table .= &Apache::loncommon::start_data_table_row().
-' |
+' |
'.$plrole.' |
'.$area.' Domain: '.$domain.' | '."\n";
if ($role ne 'cc') {
@@ -1946,22 +1946,22 @@ sub course_level_table {
$currsec.''.
' | '.
' '.$lt{'new'}.' '.
- ' | '.
+ ''.
''.
+ 'name="sec_'.$protectedcourse.'_'.$role.'" />'.
'';
} else {
$table .= ' | ';
+ 'name="sec_'.$protectedcourse.'_'.$role.'" />';
}
} else {
$table .= '  | ';
}
$table .= <
+
$lt{'ssd'} |
-
+ |
$lt{'sed'} |
ENDTIMEENTRY
@@ -1974,7 +1974,7 @@ ENDTIMEENTRY
my $customrole=$protectedcourse.'_cr_cr_'.$env{'user.domain'}.
'_'.$env{'user.name'}.'_'.$plrole;
$table .= &Apache::loncommon::start_data_table_row().
-' |
+' |
'.$plrole.' |
'.$area.' | '."\n";
if (%sections_count) {
@@ -1987,17 +1987,17 @@ ENDTIMEENTRY
' '.$lt{'new'}.' '.
' | '.
''.
+ 'name="sec_'.$customrole.'" />'.
'';
} else {
$table .= ' | ';
+ 'name="sec_'.$customrole.'" />';
}
$table .= <
+
$lt{'ssd'} |
-
+ |
$lt{'sed'} |
ENDENTRY
@@ -2014,9 +2014,7 @@ ENDENTRY
''.$lt{'act'}.' | '.$lt{'rol'}.' | '.$lt{'ext'}.' |
'.$lt{'grs'}.' | '.$lt{'sta'}.' | '.$lt{'end'}.' | '.
&Apache::loncommon::end_data_table_header_row().
-&Apache::loncommon::start_data_table_row().
$table.
-&Apache::loncommon::end_data_table_row().
&Apache::loncommon::end_data_table();
return $result;
}
@@ -2091,10 +2089,10 @@ sub course_level_dc {
''.
'';
$otheritems .= <
+
$lt{'ssd'} |
-
+ |
$lt{'sed'} |
ENDTIMEENTRY