--- loncom/interface/lonaboutme.pm 2009/05/30 20:41:34 1.135 +++ loncom/interface/lonaboutme.pm 2011/10/17 12:41:30 1.148 @@ -1,7 +1,7 @@ # The LearningOnline Network # Personal Information Page # -# $Id: lonaboutme.pm,v 1.135 2009/05/30 20:41:34 bisitz Exp $ +# $Id: lonaboutme.pm,v 1.148 2011/10/17 12:41:30 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -168,16 +168,22 @@ sub handler { if ($is_course) { if ($target ne 'tex') { - my $brcrum = [{href=>"/adm/navmaps",text=>"Navigate Course Contents"}, - {href=>"/adm/aboutme",text=>"Course Information"}]; - my $start_page = - &Apache::loncommon::start_page( - "Course Information", - undef, - {'function' => $env{'forcestudent'}, - 'domain' => $cdom, - 'force_register' => $env{'forceregister'}, - 'bread_crumbs' => $brcrum}); + my $args = {'function' => $env{'forcestudent'}, + 'domain' => $cdom}; + if ($env{'form.register'}) { + $args->{'force_register'} = $env{'form.register'}; + } else { + my %coursedescription = + &Apache::lonnet::coursedescription($cdom.'_'.$cnum); + my $cdescr = $coursedescription{'description'}; + my $brcrum = [{href=>"/adm/$cdom/$cnum/aboutme", + text=>&mt('Course Information - [_1]',$cdescr), + no_mt=>1} + ]; + $args->{'bread_crumbs'} = $brcrum; + } + my $start_page = &Apache::loncommon::start_page( + "Course Information",undef,$args); $r->print($start_page); $r->print('
'); + $r->print('
'); } if($allowed) { - $r->print(''.&mt('Close window').''); } @@ -435,21 +452,19 @@ sub in_course { $cdom = $env{'course.'.$cid.'.domain'}; $cnum = $env{'course.'.$cid.'.num'}; } - my %roles = &Apache::lonnet::dump('roles',$udom,$uname); - my @course_roles = grep(m{^/\Q$cdom\E/\Q$cnum\E[/_]}, keys(%roles)); - return 0 if (!@course_roles); - return 1 if ($type eq 'any'); - my $now = time(); - foreach my $role (@course_roles) { - my (undef,$role_end,$role_start)=split(/\_/,$roles{$role}); - my $status = 'active'; - if ($role_start > 0 && $now < $role_start) { - $status = 'future'; - } - if ($role_end > 0 && $now > $role_end) { - $status = 'previous'; - } - return 1 if ($status eq $type); + my $typesref; + if ($type eq 'all') { + $typesref = ['active','previous','future']; + } elsif ($type eq 'previous' || $type eq 'future') { + $typesref = [$type]; + } + my %roles = &Apache::lonnet::get_my_roles($uname,$udom,'userroles', + $typesref,undef,[$cdom]); + my ($tmp) = keys(%roles); + return 0 if ($tmp =~ /^(con_lost|error|no_such_host)/i); + my @course_roles = grep(/^\Q$cnum\E:\Q$cdom\E:/, keys(%roles)); + if (@course_roles > 0) { + return 1; } return 0; } @@ -477,8 +492,8 @@ sub print_portfiles_link { 'difl' => 'Display file listing', ); if ($filecounts->{'both'} > 0) { - $output = '