version 1.63, 2007/05/23 21:44:11
|
version 1.64, 2007/07/20 00:15:06
|
Line 327 sub aboutme_info {
|
Line 327 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 460 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 477 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, |