version 1.52, 2006/08/16 19:40:46
|
version 1.53, 2006/08/18 13:49:34
|
Line 278 sub print_portfiles_link {
|
Line 278 sub print_portfiles_link {
|
$output .= '<a href="/adm/'.$cdom.'/'.$cnum.'/aboutme/portfolio'. |
$output .= '<a href="/adm/'.$cdom.'/'.$cnum.'/aboutme/portfolio'. |
$query_string.'">'.&mt('Display file listing'). |
$query_string.'">'.&mt('Display file listing'). |
'</a><br /><br />'; |
'</a><br /><br />'; |
$output .= &mt('A total of [quant,_1,portfolio file] owned by [_2] are available.',$filecounts->{'both'},$name).'<ul>'; |
if ($filecounts->{'both'} == 1) { |
|
$output .= &mt('One portfolio file owned by [_2] is available.',$filecounts->{'both'},$name).'<ul>'; |
|
} else { |
|
$output .= &mt('A total of [quant,_1,portfolio file] owned by [_2] are available.',$filecounts->{'both'},$name).'<ul>'; |
|
} |
if ($filecounts->{'withoutpass'}) { |
if ($filecounts->{'withoutpass'}) { |
$output .= '<li>'.&mt('[quant,_1,file] are publicly accessible.',$filecounts->{'withoutpass'}).'</li>'; |
if ($filecounts->{'withoutpass'} == 1) { |
|
$output .= '<li>'.&mt('[quant,_1,file] is publicly accessible.',$filecounts->{'withoutpass'}).'</li>'; |
|
} else { |
|
$output .= '<li>'.&mt('[quant,_1,file] are publicly accessible.',$filecounts->{'withoutpass'}).'</li>'; |
|
} |
} |
} |
if ($filecounts->{'withpass'}) { |
if ($filecounts->{'withpass'}) { |
$output .= '<li>'.&mt('[quant,_1,file] require a passphrase for access.',$filecounts->{'withpass'}).'</li>'; |
if ($filecounts->{'withpass'} == 1) { |
|
$output .= '<li>'.&mt('[quant,_1,file] requires a passphrase for access.',$filecounts->{'withpass'}).'</li>'; |
|
} else { |
|
$output .= '<li>'.&mt('[quant,_1,file] require a passphrase for access.',$filecounts->{'withpass'}).'</li>'; |
|
} |
} |
} |
$output .= '</ul>'; |
$output .= '</ul>'; |
} |
} |
Line 328 sub display_portfolio_header {
|
Line 340 sub display_portfolio_header {
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
my $forcestudent=''; |
my $forcestudent=''; |
if ($env{'form.forcestudent'}) { $forcestudent='student'; }; |
if ($env{'form.forcestudent'}) { $forcestudent='student'; }; |
my $output = |
my $output = |
&Apache::loncommon::start_page('Viewable portfolio files',undef, |
&Apache::loncommon::start_page('Viewable portfolio files',undef, |
{'function' => $forcestudent, |
{'function' => $forcestudent, |
'domain' => $cdom,}); |
'domain' => $cdom,}); |
&Apache::lonhtmlcommon::add_breadcrumb |
if (!($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public')) { |
({href=>"/adm/$cdom/$cnum/aboutme".$query_string, |
&Apache::lonhtmlcommon::add_breadcrumb |
text=>"Personal information - $name", |
({href=>"/adm/$cdom/$cnum/aboutme".$query_string, |
title=>"Go to personal information page for $name"}, |
text=>"Personal information - $name", |
{href=>"/adm/$cdom/$cnum/aboutme/portfolio", |
title=>"Go to personal information page for $name"}, |
text=>"Viewable files - $name", |
{href=>"/adm/$cdom/$cnum/aboutme/portfolio", |
title=>"Viewable portfolio files for $name"} |
text=>"Viewable files - $name", |
); |
title=>"Viewable portfolio files for $name"} |
$output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Viewable portfolio files.')); |
); |
|
$output .= &Apache::lonhtmlcommon::breadcrumbs(&mt('Viewable portfolio files.')); |
|
} |
$output .= '<h3>'.&mt('Portfolio files for [_1]',$name).'</h3>'; |
$output .= '<h3>'.&mt('Portfolio files for [_1]',$name).'</h3>'; |
$r->print($output); |
$r->print($output); |
return; |
return; |
Line 367 sub display_portfolio_files {
|
Line 381 sub display_portfolio_files {
|
if ($portaccess eq $type) { |
if ($portaccess eq $type) { |
$output .= 'selected="selected"'; |
$output .= 'selected="selected"'; |
} |
} |
$output .= '>'.&mt($type).'</option>'; |
$output .= '>'.$lt{$type}.'</option>'; |
} |
} |
$output .= '</select>'."\n". |
$output .= '</select>'."\n". |
'<input type="submit" name="portaccessbutton" value="'. |
'<input type="submit" name="portaccessbutton" value="'. |
Line 375 sub display_portfolio_files {
|
Line 389 sub display_portfolio_files {
|
$output .= '</form><br /><br />'; |
$output .= '</form><br /><br />'; |
$r->print($output); |
$r->print($output); |
my $filecounts = &portfolio_files($r,'listfiles',\%lt); |
my $filecounts = &portfolio_files($r,'listfiles',\%lt); |
my $query_string = &build_query_string(); |
if (!($env{'user.name'} eq 'public' && $env{'user.domain'} eq 'public')) { |
$r->print('<br /><br /><a href="/adm/'.$cdom.'/'.$cnum. |
my $query_string = &build_query_string(); |
'/aboutme'.$query_string.'">'. |
$r->print('<br /><br /><a href="/adm/'.$cdom.'/'.$cnum. |
&mt('Information about [_1]',$name).'</a>'); |
'/aboutme'.$query_string.'">'. |
|
&mt('Information about [_1]',$name).'</a>'); |
|
} |
return; |
return; |
} |
} |
|
|
Line 482 sub parse_directory {
|
Line 498 sub parse_directory {
|
$depth++; |
$depth++; |
my $output; |
my $output; |
|
|
my $portfolio_root = &Apache::portfolio::get_portfolio_root($cdom,$cnum); |
my $portfolio_root = &Apache::portfolio::get_portfolio_root($cdom,$cnum); |
my %dirlist = map { |
my %dirlist = map { |
((split('&',$_,2))[0],1) |
((split('&',$_,2))[0],1) |
} &Apache::lonnet::dirlist($path,$cdom,$cnum,$portfolio_root); |
} &Apache::lonnet::dirlist($path,$cdom,$cnum,$portfolio_root); |