version 1.131, 2006/07/05 22:52:53
|
version 1.132, 2006/07/08 01:20:40
|
Line 36 use Apache::lonfeedback;
|
Line 36 use Apache::lonfeedback;
|
use Apache::lonlocal; |
use Apache::lonlocal; |
use Apache::lonnet; |
use Apache::lonnet; |
use Apache::longroup; |
use Apache::longroup; |
|
use Apache::lonhtmlcommon; |
use HTML::Entities; |
use HTML::Entities; |
use LONCAPA; |
use LONCAPA; |
|
|
Line 1675 sub missing_priv {
|
Line 1676 sub missing_priv {
|
return; |
return; |
} |
} |
|
|
|
sub coursegrp_portfolio_header { |
|
my ($cdom,$cnum,$group,$grp_desc)=@_; |
|
my $gpterm = &Apache::loncommon::group_term(); |
|
my $ucgpterm = $gpterm; |
|
$ucgpterm =~ s/^(\w)/uc($1)/e; |
|
&Apache::lonhtmlcommon::add_breadcrumb |
|
({href=>"/adm/$cdom/$cnum/$group/smppg", |
|
text=>"$ucgpterm: $grp_desc", |
|
title=>"Go to group's home page"}, |
|
{href=>"//?group=$group", |
|
text=>"Group Portfolio", |
|
title=>"Display group portfolio"},); |
|
my $output = &Apache::lonhtmlcommon::breadcrumbs( |
|
&mt('[_1] portfolio files - [_2]',$gpterm,$grp_desc)); |
|
return $output; |
|
} |
|
|
|
|
sub handler { |
sub handler { |
# this handles file management |
# this handles file management |
my $r = shift; |
my $r = shift; |
Line 1682 sub handler {
|
Line 1701 sub handler {
|
['selectfile','currentpath','meta','lockinfo','currentfile','action', |
['selectfile','currentpath','meta','lockinfo','currentfile','action', |
'fieldname','mode','rename','continue','group','access','setnum', |
'fieldname','mode','rename','continue','group','access','setnum', |
'cnum','cdom','type','setroles','showversions']); |
'cnum','cdom','type','setroles','showversions']); |
my ($uname,$udom,$portfolio_root,$url,$group,$caller,$title); |
my ($uname,$udom,$portfolio_root,$url,$group,$caller,$title,$grp_desc); |
if ($r->uri =~ m|^(/adm/)([^/]+)|) { |
if ($r->uri =~ m|^(/adm/)([^/]+)|) { |
$url = $1.$2; |
$url = $1.$2; |
$caller = $2; |
$caller = $2; |
Line 1706 sub handler {
|
Line 1725 sub handler {
|
my %curr_groups = &Apache::longroup::coursegroups($udom,$uname, |
my %curr_groups = &Apache::longroup::coursegroups($udom,$uname, |
$group); |
$group); |
if (%curr_groups) { |
if (%curr_groups) { |
|
my %grp_content = &Apache::longroup::get_group_settings( |
|
$curr_groups{$group}); |
|
$grp_desc = &unescape($grp_content{'description'}); |
if (($view_permission) || (&Apache::lonnet::allowed('rgf', |
if (($view_permission) || (&Apache::lonnet::allowed('rgf', |
$env{'request.course.id'}.'/'.$group))) { |
$env{'request.course.id'}.'/'.$group))) { |
$portfolio_root = &get_portfolio_root($group); |
$portfolio_root = &get_portfolio_root($group); |
Line 1855 sub handler {
|
Line 1877 sub handler {
|
if ($env{'form.currentpath'}) { |
if ($env{'form.currentpath'}) { |
$current_path = $env{'form.currentpath'}; |
$current_path = $env{'form.currentpath'}; |
} |
} |
|
if ($caller eq 'coursegrp_portfolio') { |
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
$r->print(&coursegrp_portfolio_header($udom,$uname,$group,$grp_desc)); |
|
} |
my @dir_list=&get_dir_list($portfolio_root,$group); |
my @dir_list=&get_dir_list($portfolio_root,$group); |
if ($dir_list[0] eq 'no_such_dir'){ |
if ($dir_list[0] eq 'no_such_dir'){ |
# two main reasons for this: |
# two main reasons for this: |