[BACK]Return to lonaboutme.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonaboutme.pm between versions 1.63 and 1.65

version 1.63, 2007/05/23 21:44:11 version 1.65, 2007/07/27 00:17:17
Line 114  sub handler { Line 114  sub handler {
 # --------------------------------------- There is such a user, get environment  # --------------------------------------- There is such a user, get environment
     my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);      my %courseenv=&Apache::lonnet::dump('environment',$cdom,$cnum);
     if ($target ne 'tex') {      if ($target ne 'tex') {
    my $rss_link = &Apache::lonrss::rss_link($cnum,$cdom);
  my $start_page =    my $start_page = 
     &Apache::loncommon::start_page("Personal Information",undef,      &Apache::loncommon::start_page("Personal Information", $rss_link,
    {'function'       => $forcestudent,     {'function'       => $forcestudent,
      'domain'         => $cdom,       'domain'         => $cdom,
     'force_register' =>      'force_register' =>
Line 327  sub aboutme_info { Line 328  sub aboutme_info {
 sub print_portfiles_link {  sub print_portfiles_link {
     my ($r,$is_course) = @_;      my ($r,$is_course) = @_;
     my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course);      my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course);
     my $filecounts = &portfolio_files($r,'showlink',undef,$is_course);      my $filecounts = &portfolio_files($r,'showlink',undef,$is_course,
                                         $cdom,$cnum,$name);
     my $query_string = &build_query_string();      my $query_string = &build_query_string();
     my $output;      my $output;
     my %lt = &Apache::lonlocal::texthash(      my %lt = &Apache::lonlocal::texthash(
Line 459  sub display_portfolio_files { Line 461  sub display_portfolio_files {
                &mt('Update display').'" />';                 &mt('Update display').'" />';
     $output .= '</form><br /><br />';      $output .= '</form><br /><br />';
     $r->print($output);      $r->print($output);
     my $filecounts = &portfolio_files($r,'listfiles',\%lt,$is_course);      my $filecounts = &portfolio_files($r,'listfiles',\%lt,$is_course,
                                         $cdom,$cnum,$name);
     if (!($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public')) {      if (!($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public')) {
         my $query_string = &build_query_string();          my $query_string = &build_query_string();
         $r->print('<br /><br /><a href="/adm/'.$cdom.'/'.$cnum.          $r->print('<br /><br /><a href="/adm/'.$cdom.'/'.$cnum.
Line 475  sub display_portfolio_files { Line 478  sub display_portfolio_files {
 }  }
   
 sub portfolio_files {  sub portfolio_files {
     my ($r,$mode,$lt,$is_course) = @_;      my ($r,$mode,$lt,$is_course,$cdom,$cnum,$name) = @_;
     my ($cdom,$cnum,$name) = &aboutme_info($r,$is_course);  
     my $filecounts = {      my $filecounts = {
                        withpass    => 0,                         withpass    => 0,
                        withoutpass => 0,                         withoutpass => 0,
Removed from v.1.63  
changed lines
  Added in v.1.65

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>