|
version 1.57, 2006/10/23 18:48:46
|
version 1.60, 2006/12/11 03:46:31
|
|
Line 57 sub handler {
|
Line 57 sub handler {
|
| 'No user information available'); |
'No user information available'); |
| return OK; |
return OK; |
| } else { |
} else { |
| $is_course = &check_for_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 629 sub parse_directory {
|
Line 635 sub parse_directory {
|
| return $output; |
return $output; |
| } |
} |
| |
|
| sub check_for_course { |
|
| my ($cdom,$cnum) = @_; |
|
| my %courses = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',$cnum,undef, |
|
| undef,'.'); |
|
| if (exists($courses{$cdom.'_'.$cnum})) { |
|
| return 1; |
|
| } |
|
| return 0; |
|
| } |
|
| |
|
| 1; |
1; |
| __END__ |
__END__ |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonaboutme.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface