version 1.58, 2006/12/09 23:33:55
|
version 1.61, 2007/03/08 01:58:44
|
Line 57 sub handler {
|
Line 57 sub handler {
|
'No user information available'); |
'No user information available'); |
return OK; |
return OK; |
} else { |
} else { |
$is_course = &is_course($cdom,$cnum); |
$is_course = &Apache::lonnet::is_course($cdom,$cnum); |
} |
} |
|
|
# --------------------------------------------------------- The syllabus fields |
# --------------------------------------------------------- The syllabus fields |
Line 74 sub handler {
|
Line 74 sub handler {
|
# ----------------------------------------------- Available Portfolio file display |
# ----------------------------------------------- Available Portfolio file display |
if (($target ne 'tex') && ($action eq 'portfolio')) { |
if (($target ne 'tex') && ($action eq 'portfolio')) { |
&display_portfolio_header($r,$is_course); |
&display_portfolio_header($r,$is_course); |
&display_portfolio_files($r,$is_course); |
my ($blocked,$blocktext) = |
|
&Apache::loncommon::blocking_status('port',$cnum,$cdom); |
|
if (!$blocked) { |
|
&display_portfolio_files($r,$is_course); |
|
} else { |
|
$r->print($blocktext); |
|
} |
$r->print(&Apache::loncommon::end_page()); |
$r->print(&Apache::loncommon::end_page()); |
return OK; |
return OK; |
} |
} |
Line 125 sub handler {
|
Line 131 sub handler {
|
'"</h2>'); |
'"</h2>'); |
} |
} |
if ($target ne 'tex') { |
if ($target ne 'tex') { |
$r->print('<h3>'.$Apache::lonnet::domaindescription{$cdom}.'</h3>'. |
$r->print('<h3>'.&Apache::lonnet::domain($cdom,'description').'</h3>'. |
'<p>'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).'</p>'.&Apache::lonrss::advertisefeeds($cnum,$cdom)); |
'<p>'.&Apache::loncommon::messagewrapper('Send me a message',$cnum,$cdom).'</p>'.&Apache::lonrss::advertisefeeds($cnum,$cdom)); |
} else { |
} else { |
$r->print('\textbf{'.$Apache::lonnet::domaindescription{$cdom}.'}\\\\'); |
$r->print('\textbf{'.&Apache::lonnet::domain($cdom,'description').'}\\\\'); |
} |
} |
my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum); |
my %syllabus=&Apache::lonnet::dump('aboutme',$cdom,$cnum); |
my $allowed=0; |
my $allowed=0; |