version 1.65, 2008/07/15 19:50:39
|
version 1.69, 2008/11/07 18:06:19
|
Line 179 ENDSCRIPT
|
Line 179 ENDSCRIPT
|
# -------------------------------------------------------- Get course personnel |
# -------------------------------------------------------- Get course personnel |
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); |
my %coursepersonnel=&Apache::lonnet::get_course_adv_roles($cdom.'/'.$cnum); |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(&Apache::loncommon::start_data_table()); |
$r->print(&Apache::lonhtmlcommon::start_pick_box()); |
} else { |
} else { |
$r->print('\begin{tabular}{|p{0.45\textwidth}|p{0.45\textwidth}|}\hline'); |
$r->print('\begin{tabular}{|p{0.45\textwidth}|p{0.45\textwidth}|}\hline'); |
} |
} |
foreach my $element (sort keys %coursepersonnel) { |
my @personnel=sort keys %coursepersonnel; |
|
my $lastpers=$personnel[$#personnel]; |
|
foreach my $element (@personnel) { |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(&Apache::loncommon::start_data_table_row(). |
$r->print(&Apache::lonhtmlcommon::row_title($element)); |
'<td>'.$element.'</td><td>'); |
|
} else { |
} else { |
$r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); |
$r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$element).' & '); |
} |
} |
Line 198 ENDSCRIPT
|
Line 199 ENDSCRIPT
|
($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) { |
($env{'user.domain'} eq '') || ($env{'user.domain'} eq 'public')) { |
$r->print(' '.$courseperson); |
$r->print(' '.$courseperson); |
} else { |
} else { |
$r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson), |
$r->print(' '.&Apache::loncommon::aboutmewrapper($courseperson, |
$puname,$pudom); |
$puname,$pudom)); |
} |
} |
} else { |
} else { |
$r->print(' '.&Apache::loncommon::plainname($puname, |
$r->print(' '.&Apache::loncommon::plainname($puname, |
Line 207 ENDSCRIPT
|
Line 208 ENDSCRIPT
|
} |
} |
} |
} |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('</td>'.&Apache::loncommon::end_data_table_row()); |
my $lastclose=$element eq $lastpers?1:0; |
|
$r->print(&Apache::lonhtmlcommon::row_closure($lastclose)); |
} else { |
} else { |
$r->print('\\\\ \hline'); |
$r->print('\\\\ \hline'); |
} |
} |
} |
} |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print(&Apache::loncommon::end_data_table()); |
$r->print(&Apache::lonhtmlcommon::end_pick_box()); |
} else { |
} else { |
$r->print('\end{tabular}\\\\'); |
$r->print('\end{tabular}\\\\'); |
} |
} |
Line 393 ENDSCRIPT
|
Line 395 ENDSCRIPT
|
if ($target ne 'tex') { |
if ($target ne 'tex') { |
if ($env{'form.backto'} eq 'coursecatalog') { |
if ($env{'form.backto'} eq 'coursecatalog') { |
$r->print('<form name="backtocat" method="post" action="/adm/coursecatalog">'. |
$r->print('<form name="backtocat" method="post" action="/adm/coursecatalog">'. |
&Apache::lonhtmlcommon::echo_form_input(['backto']). |
&Apache::lonhtmlcommon::echo_form_input(['backto','courseid']). |
'</form>'); |
'</form>'); |
} |
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |