version 1.226, 2009/06/11 19:02:27
|
version 1.228, 2009/06/29 12:43:45
|
Line 157 sub redirect_user {
|
Line 157 sub redirect_user {
|
} else { |
} else { |
$navwindow.=&Apache::lonnavmaps::close(); |
$navwindow.=&Apache::lonnavmaps::close(); |
} |
} |
|
|
|
# Breadcrumbs |
|
my $brcrum = [{'href' => $url, |
|
'text' => 'Switching Role'},]; |
my $start_page = &Apache::loncommon::start_page('Switching Role',undef, |
my $start_page = &Apache::loncommon::start_page('Switching Role',undef, |
{'redirect' => [1,$url],}); |
{'redirect' => [1,$url], |
|
'bread_crumbs' => $brcrum,}); |
my $end_page = &Apache::loncommon::end_page(); |
my $end_page = &Apache::loncommon::end_page(); |
|
|
# Note to style police: |
# Note to style police: |
Line 184 sub error_page {
|
Line 189 sub error_page {
|
&Apache::loncommon::no_cache($r); |
&Apache::loncommon::no_cache($r); |
$r->send_http_header; |
$r->send_http_header; |
return OK if $r->header_only; |
return OK if $r->header_only; |
$r->print(&Apache::loncommon::start_page('Problems during Course Initialization'). |
# Breadcrumbs |
|
my $brcrum = [{'href' => $dest, |
|
'text' => 'Problems during Course Initialization'},]; |
|
$r->print(&Apache::loncommon::start_page('Problems during Course Initialization', |
|
undef, |
|
{'bread_crumbs' => $brcrum,}) |
|
); |
|
$r->print( |
'<script type="text/javascript">'. |
'<script type="text/javascript">'. |
'// <![CDATA['. |
'// <![CDATA['. |
&Apache::lonmenu::rawconfig(). |
&Apache::lonmenu::rawconfig(). |
'// ]]>'. |
'// ]]>'. |
'</script>'. |
'</script>'. |
'<p class="LC_error">'.&mt('The following problems occurred:'). |
'<p class="LC_error">'.&mt('The following problems occurred:'). |
|
'<br />'. |
$error. |
$error. |
'</p><br /><a href="'.$dest.'">'.&mt('Continue').'</a>'. |
'</p><br /><a href="'.$dest.'">'.&mt('Continue').'</a>' |
&Apache::loncommon::end_page()); |
); |
|
$r->print(&Apache::loncommon::end_page()); |
} |
} |
|
|
sub handler { |
sub handler { |
Line 1529 sub adhoc_roles_row {
|
Line 1543 sub adhoc_roles_row {
|
my ($dcdom,$rowtype) = @_; |
my ($dcdom,$rowtype) = @_; |
my $output = &Apache::loncommon::continue_data_table_row() |
my $output = &Apache::loncommon::continue_data_table_row() |
.' <td colspan="5">' |
.' <td colspan="5">' |
.'<table><tr><td>' |
|
.&mt('[_1]Ad hoc[_2] roles in domain [_3] --' |
.&mt('[_1]Ad hoc[_2] roles in domain [_3] --' |
,'<span class="LC_cusr_emph">','</span>',$dcdom) |
,'<span class="LC_cusr_emph">','</span>',$dcdom) |
.'</td>' |
.' '; |
.'<td>'; |
|
my $selectcclink = &courselink($dcdom,$rowtype); |
my $selectcclink = &courselink($dcdom,$rowtype); |
my $ccrole = &Apache::lonnet::plaintext('cc'); |
my $ccrole = &Apache::lonnet::plaintext('cc'); |
my $carole = &Apache::lonnet::plaintext('ca'); |
my $carole = &Apache::lonnet::plaintext('ca'); |
my $selectcalink = &coauthorlink($dcdom,$rowtype); |
my $selectcalink = &coauthorlink($dcdom,$rowtype); |
$output.=&mt('[_1]: [_2]',$ccrole,$selectcclink) |
$output.=$ccrole.': '.$selectcclink |
.'<br /></td>' |
.' | '.$carole.': '.$selectcalink |
.'<td> </td>' |
|
.'<td>'.&mt('[_1]: [_2]',$carole,$selectcalink).'<br /></td>' |
|
.'</tr></table>' |
|
.'</td>' |
|
.&Apache::loncommon::end_data_table_row(); |
.&Apache::loncommon::end_data_table_row(); |
return $output; |
return $output; |
} |
} |