version 1.135, 2006/11/22 16:06:28
|
version 1.136, 2006/11/22 21:55:53
|
Line 1755 sub course_level_table {
|
Line 1755 sub course_level_table {
|
my $area=$coursedata{'description'}; |
my $area=$coursedata{'description'}; |
my $type=$coursedata{'type'}; |
my $type=$coursedata{'type'}; |
if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; } |
if (!defined($area)) { $area=&mt('Unavailable course').': '.$protectedcourse; } |
my $bgcol=$thiscourse; |
|
$bgcol=~s/[^7-9a-e]//g; |
|
$bgcol=substr($bgcol.$bgcol.$bgcol.'ffffff',2,6); |
|
my ($domain,$cnum)=split(/\//,$thiscourse); |
my ($domain,$cnum)=split(/\//,$thiscourse); |
my %sections_count; |
my %sections_count; |
if (defined($env{'request.course.id'})) { |
if (defined($env{'request.course.id'})) { |
Line 1769 sub course_level_table {
|
Line 1766 sub course_level_table {
|
foreach my $role ('st','ta','ep','in','cc') { |
foreach my $role ('st','ta','ep','in','cc') { |
if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) { |
if (&Apache::lonnet::allowed('c'.$role,$thiscourse)) { |
my $plrole=&Apache::lonnet::plaintext($role); |
my $plrole=&Apache::lonnet::plaintext($role); |
$table .= <<ENDEXTENT; |
$table .= &Apache::loncommon::start_data_table_row(). |
<tr bgcolor="#$bgcol"> |
'<td><input type="checkbox" name="act_'.$protectedcourse.'_'.$role.'"></td> |
<td><input type="checkbox" name="act_$protectedcourse\_$role"></td> |
<td>'.$plrole.'</td> |
<td>$plrole</td> |
<td>'.$area.'<br />Domain: '.$domain.'</td>'."\n"; |
<td>$area<br />Domain: $domain</td> |
|
ENDEXTENT |
|
if ($role ne 'cc') { |
if ($role ne 'cc') { |
if (%sections_count) { |
if (%sections_count) { |
my $currsec = &course_sections(\%sections_count,$protectedcourse.'_'.$role); |
my $currsec = &course_sections(\%sections_count,$protectedcourse.'_'.$role); |
Line 1803 ENDEXTENT
|
Line 1798 ENDEXTENT
|
<a href= |
<a href= |
"javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$role.value,'end_$protectedcourse\_$role','cu.pres','dateset')">$lt{'sed'}</a></td> |
"javascript:pjump('date_end','End Date $plrole',document.cu.end_$protectedcourse\_$role.value,'end_$protectedcourse\_$role','cu.pres','dateset')">$lt{'sed'}</a></td> |
ENDTIMEENTRY |
ENDTIMEENTRY |
$table.= "</tr>\n"; |
$table.= &Apache::loncommon::end_data_table_row(); |
} |
} |
} |
} |
foreach my $cust (sort keys %customroles) { |
foreach my $cust (sort keys %customroles) { |
Line 1811 ENDTIMEENTRY
|
Line 1806 ENDTIMEENTRY
|
my $plrole=$cust; |
my $plrole=$cust; |
my $customrole=$protectedcourse.'_cr_cr_'.$env{'user.domain'}. |
my $customrole=$protectedcourse.'_cr_cr_'.$env{'user.domain'}. |
'_'.$env{'user.name'}.'_'.$plrole; |
'_'.$env{'user.name'}.'_'.$plrole; |
$table .= <<END; |
$table .= &Apache::loncommon::start_data_table_row(). |
<tr bgcolor="#$bgcol"> |
'<td><input type="checkbox" name="act_'.$customrole.'"></td> |
<td><input type="checkbox" name="act_$customrole"></td> |
<td>'.$plrole.'</td> |
<td>$plrole</td> |
<td>'.$area.'</td>'."\n"; |
<td>$area</td> |
|
END |
|
if (%sections_count) { |
if (%sections_count) { |
my $currsec = &course_sections(\%sections_count,$customrole); |
my $currsec = &course_sections(\%sections_count,$customrole); |
$table.= |
$table.= |
Line 1839 END
|
Line 1832 END
|
"javascript:pjump('date_start','Start Date $plrole',document.cu.start_$customrole.value,'start_$customrole','cu.pres','dateset')">$lt{'ssd'}</a></td> |
"javascript:pjump('date_start','Start Date $plrole',document.cu.start_$customrole.value,'start_$customrole','cu.pres','dateset')">$lt{'ssd'}</a></td> |
<td><input type=hidden name="end_$customrole" value=''> |
<td><input type=hidden name="end_$customrole" value=''> |
<a href= |
<a href= |
"javascript:pjump('date_end','End Date $plrole',document.cu.end_$customrole.value,'end_$customrole','cu.pres','dateset')">$lt{'sed'}</a></td></tr> |
"javascript:pjump('date_end','End Date $plrole',document.cu.end_$customrole.value,'end_$customrole','cu.pres','dateset')">$lt{'sed'}</a></td> |
ENDENTRY |
ENDENTRY |
|
$table .= &Apache::loncommon::end_data_table_row(); |
} |
} |
} |
} |
} |
} |
return '' if ($table eq ''); # return nothing if there is nothing |
return '' if ($table eq ''); # return nothing if there is nothing |
# in the table |
# in the table |
my $result = <<ENDTABLE; |
my $result = ' |
<h4>$lt{'crl'}</h4> |
<h4>'.$lt{'crl'}.'</h4>'. |
<table border=2><tr><th>$lt{'act'}</th><th>$lt{'rol'}</th><th>$lt{'ext'}</th> |
&Apache::loncommon::start_data_table(). |
<th>$lt{'grs'}</th><th>$lt{'sta'}</th><th>$lt{'end'}</th></tr> |
&Apache::loncommon::start_data_table_header_row(). |
$table |
'<th>'.$lt{'act'}.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'ext'}.'</th> |
</table> |
<th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'. |
ENDTABLE |
&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; |
return $result; |
} |
} |
|
|
Line 1899 sub course_level_dc {
|
Line 1897 sub course_level_dc {
|
'sed' => "Set End Date" |
'sed' => "Set End Date" |
); |
); |
my $header = '<h4>'.&mt('Course Level').'</h4>'. |
my $header = '<h4>'.&mt('Course Level').'</h4>'. |
'<table border="2"><tr><th>'.$lt{'typ'}.'</th><th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th></tr>'; |
&Apache::loncommon::start_data_table(). |
my $otheritems = '<tr><td><select name="crstype" onChange="javascript:setType();">'."\n". |
&Apache::loncommon::start_data_table_header_row(). |
|
'<th>'.$lt{'typ'}.'</th><th>'.$courseform.'</th><th>'.$lt{'rol'}.'</th><th>'.$lt{'grs'}.'</th><th>'.$lt{'sta'}.'</th><th>'.$lt{'end'}.'</th>'. |
|
&Apache::loncommon::end_data_table_header_row(); |
|
my $otheritems = &Apache::loncommon::start_data_table_row(). |
|
'<td><select name="crstype" onChange="javascript:setType();">'."\n". |
' <option value="">'.&mt('Please select')."\n". |
' <option value="">'.&mt('Please select')."\n". |
' <option value="Course">'.&mt('Course')."\n". |
' <option value="Course">'.&mt('Course')."\n". |
' <option value="Non-standard course">'.&mt('Non-standard course')."\n". |
' <option value="Non-standard course">'.&mt('Non-standard course')."\n". |
Line 1935 sub course_level_dc {
|
Line 1937 sub course_level_dc {
|
<a href= |
<a href= |
"javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td> |
"javascript:pjump('date_end','End Date',document.cu.end.value,'end','cu.pres','dateset')">$lt{'sed'}</a></td> |
ENDTIMEENTRY |
ENDTIMEENTRY |
$otheritems .= "</tr></table>\n"; |
$otheritems .= &Apache::loncommon::end_data_table_row(). |
|
&Apache::loncommon::end_data_table()."\n"; |
return $cb_jscript.$header.$hiddenitems.$otheritems; |
return $cb_jscript.$header.$hiddenitems.$otheritems; |
} |
} |
|
|