version 1.400, 2014/04/28 22:20:13
|
version 1.403, 2014/06/30 14:49:35
|
Line 2282 sub personal_data_display {
|
Line 2282 sub personal_data_display {
|
} |
} |
} else { |
} else { |
if ($context eq 'selfcreate') { |
if ($context eq 'selfcreate') { |
if (($item eq 'permanentemail') && ($newuser eq 'email')) { |
if ($canmodify{$item}) { |
$row .= $ccuname; |
if ($newuser eq 'email') { |
} else { |
$row .= '<input type="text" name="'.$item.'" size="'.$textboxsize{$item}.'" value="" autocomplete="off" />'; |
if ($canmodify{$item}) { |
|
if ($newuser eq 'email') { |
|
$row .= '<input type="text" name="'.$item.'" size="'.$textboxsize{$item}.'" value="" autocomplete="off" />'; |
|
} else { |
|
$row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" autocomplete="off" />'; |
|
} |
|
$editable ++; |
|
} else { |
} else { |
$hiderow = 1; |
$row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" autocomplete="off" />'; |
} |
} |
|
$editable ++; |
|
} else { |
|
$hiderow = 1; |
} |
} |
} else { |
} else { |
$row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />'; |
$row .= '<input type="text" name="c'.$item.'" size="'.$textboxsize{$item}.'" value="" />'; |
Line 3048 sub update_user_data {
|
Line 3044 sub update_user_data {
|
my %newenvhash; |
my %newenvhash; |
foreach my $key (keys(%changed)) { |
foreach my $key (keys(%changed)) { |
if (($key eq 'official') || ($key eq 'unofficial') |
if (($key eq 'official') || ($key eq 'unofficial') |
|| ($key eq 'community')) { |
|| ($key eq 'community') || ($key eq 'textbook')) { |
$newenvhash{'environment.requestcourses.'.$key} = |
$newenvhash{'environment.requestcourses.'.$key} = |
$changeHash{'requestcourses.'.$key}; |
$changeHash{'requestcourses.'.$key}; |
if ($changeHash{'requestcourses.'.$key}) { |
if ($changeHash{'requestcourses.'.$key}) { |
Line 7314 sub course_level_table {
|
Line 7310 sub course_level_table {
|
((($role eq 'cc') || ($role eq 'co')) && ($isowner))) { |
((($role eq 'cc') || ($role eq 'co')) && ($isowner))) { |
$table .= &course_level_row($protectedcourse,$role,$area,$domain, |
$table .= &course_level_row($protectedcourse,$role,$area,$domain, |
$plrole,\%sections_count,\%lt, |
$plrole,\%sections_count,\%lt, |
$defaultcredits,$crstype); |
$showcredits,$defaultcredits,$crstype); |
} elsif ($env{'request.course.sec'} ne '') { |
} elsif ($env{'request.course.sec'} ne '') { |
if (&Apache::lonnet::allowed('c'.$role,$thiscourse.'/'. |
if (&Apache::lonnet::allowed('c'.$role,$thiscourse.'/'. |
$env{'request.course.sec'})) { |
$env{'request.course.sec'})) { |
$table .= &course_level_row($protectedcourse,$role,$area,$domain, |
$table .= &course_level_row($protectedcourse,$role,$area,$domain, |
$plrole,\%sections_count,\%lt, |
$plrole,\%sections_count,\%lt, |
$defaultcredits,$crstype); |
$showcredits,$defaultcredits,$crstype); |
} |
} |
} |
} |
} |
} |
Line 7329 sub course_level_table {
|
Line 7325 sub course_level_table {
|
next if ($crstype eq 'Community' && $customroles{$cust} =~ /bre\&S/); |
next if ($crstype eq 'Community' && $customroles{$cust} =~ /bre\&S/); |
my $role = 'cr_cr_'.$env{'user.domain'}.'_'.$env{'user.name'}.'_'.$cust; |
my $role = 'cr_cr_'.$env{'user.domain'}.'_'.$env{'user.name'}.'_'.$cust; |
$table .= &course_level_row($protectedcourse,$role,$area,$domain, |
$table .= &course_level_row($protectedcourse,$role,$area,$domain, |
$cust,\%sections_count,\%lt); |
$cust,\%sections_count,\%lt, |
|
$showcredits,$defaultcredits,$crstype); |
} |
} |
} |
} |
} |
} |
Line 7343 sub course_level_table {
|
Line 7340 sub course_level_table {
|
&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table(). |
&Apache::loncommon::start_data_table_header_row(). |
&Apache::loncommon::start_data_table_header_row(). |
'<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th>'."\n". |
'<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th>'."\n". |
'<th>'.$lt{'ext'}.'</th><th>'.$lt{'crd'}.'</th>'."\n". |
'<th>'.$lt{'ext'}.'</th><th>'."\n"; |
|
if ($showcredits) { |
|
$result .= $lt{'crd'}.'</th>'; |
|
} |
|
$result .= |
'<th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th>'."\n". |
'<th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th>'."\n". |
'<th>'.$lt{'end'}.'</th>'. |
'<th>'.$lt{'end'}.'</th>'. |
&Apache::loncommon::end_data_table_header_row(). |
&Apache::loncommon::end_data_table_header_row(). |
Line 7354 $table.
|
Line 7355 $table.
|
|
|
sub course_level_row { |
sub course_level_row { |
my ($protectedcourse,$role,$area,$domain,$plrole,$sections_count, |
my ($protectedcourse,$role,$area,$domain,$plrole,$sections_count, |
$lt,$defaultcredits,$crstype) = @_; |
$lt,$showcredits,$defaultcredits,$crstype) = @_; |
my $creditem; |
my $creditem; |
my $row = &Apache::loncommon::start_data_table_row(). |
my $row = &Apache::loncommon::start_data_table_row(). |
' <td><input type="checkbox" name="act_'. |
' <td><input type="checkbox" name="act_'. |
$protectedcourse.'_'.$role.'" /></td>'."\n". |
$protectedcourse.'_'.$role.'" /></td>'."\n". |
' <td>'.$plrole.'</td>'."\n". |
' <td>'.$plrole.'</td>'."\n". |
' <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n"; |
' <td>'.$area.'<br />Domain: '.$domain.'</td>'."\n"; |
if (($role eq 'st') && ($crstype eq 'Course')) { |
if (($showcredits) && ($role eq 'st') && ($crstype eq 'Course')) { |
$row .= |
$row .= |
'<td><input type="text" name="credits_'.$protectedcourse.'_'. |
'<td><input type="text" name="credits_'.$protectedcourse.'_'. |
$role.'" size="3" value="'.$defaultcredits.'" /></td>'; |
$role.'" size="3" value="'.$defaultcredits.'" /></td>'; |