Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/portfolio.pm between versions 1.122 and 1.142

version 1.122, 2006/06/27 15:37:17	version 1.142, 2006/08/02 03:05:10
Line 1	Line 1
	# The LearningOnline Network
	# portfolio browser
	#
	# $Id$
	#
# Copyright Michigan State University Board of Trustees	# Copyright Michigan State University Board of Trustees
#	#
# This file is part of the LearningOnline Network with CAPA (LON-CAPA).	# This file is part of the LearningOnline Network with CAPA (LON-CAPA).
Line 31 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;

	sub group_args {
	my $output;
	if (defined($env{'form.group'})) {
	$output .= '&group='.$env{'form.group'};
	if (defined($env{'form.ref'})) {
	$output .= '&ref='.$env{'form.ref'};
	}
	}
	return $output;
	}

	sub group_form_data {
	my $output;
	if (defined($env{'form.group'})) {
	$output = '<input type="hidden" name="group" value="'.$env{'form.group'}.'" />';
	if (exists($env{'form.ref'})) {
	$output .= '<input type="hidden" name="ref" value="'.
	$env{'form.ref'}.'" />';
	}
	}
	return $output;
	}

# receives a file name and path stub from username/userfiles/portfolio/	# receives a file name and path stub from username/userfiles/portfolio/
# returns an anchor tag consisting encoding filename and currentpath	# returns an anchor tag consisting encoding filename and currentpath
sub make_anchor {	sub make_anchor {
my ($url, $filename, $current_path, $current_mode, $field_name,	my ($url, $filename, $current_path, $current_mode, $field_name,
$continue_select,$group) = @_;	$continue_select) = @_;
if ($continue_select ne 'true') {$continue_select = 'false'};	if ($continue_select ne 'true') {$continue_select = 'false'};
my $anchor = '<a href="'.$url.'?selectfile='.$filename.'&currentpath='.$current_path.'&mode='.$current_mode.'&continue='.$continue_select.'&fieldname='.$field_name;	my $anchor = '<a href="'.$url.'?selectfile='.$filename.'&currentpath='.$current_path.'&mode='.$current_mode.'&continue='.$continue_select.'&fieldname='.$field_name;
if (defined($group)) {	$anchor .= &group_args();
$anchor .= '&group='.$group;
}
$anchor .= '">'.$filename.'</a>';	$anchor .= '">'.$filename.'</a>';
return $anchor;	return $anchor;
}	}

my $dirptr=16384;	my $dirptr=16384;
sub display_common {	sub display_common {
my ($r,$url,$current_path,$is_empty,$dir_list,$group,$can_upload)=@_;	my ($r,$url,$current_path,$is_empty,$dir_list,$can_upload)=@_;
my $namespace = &get_namespace($group);	my $namespace = &get_namespace();
my $port_path = &get_port_path($group);	my $port_path = &get_port_path();
if ($can_upload) {	if ($can_upload) {
my $groupitem;	my $groupitem = &group_form_data();
if (defined($group)) {
$groupitem = '<input type="hidden" name="group" value="'.$group.'" />';
}
my $iconpath= $r->dir_config('lonIconsURL') . "/";	my $iconpath= $r->dir_config('lonIconsURL') . "/";
my %text=&Apache::lonlocal::texthash(	my %text=&Apache::lonlocal::texthash(
'upload' => 'Upload',	'upload' => 'Upload',
Line 103 sub display_common {	Line 129 sub display_common {
TABLE	TABLE
}	}
my @tree = split (/\//,$current_path);	my @tree = split (/\//,$current_path);
$r->print('<span class="LC_current_location">'.&make_anchor($url,$port_path,'/',$env{"form.mode"},$env{"form.fieldname"},$env{"form.continue"},$group).'/');	$r->print('<span class="LC_current_location">'.&make_anchor($url,$port_path,'/',$env{"form.mode"},$env{"form.fieldname"},$env{"form.continue"}).'/');
if (@tree > 1){	if (@tree > 1){
my $newCurrentPath = '';	my $newCurrentPath = '';
for (my $i = 1; $i< @tree; $i++){	for (my $i = 1; $i< @tree; $i++){
$newCurrentPath .= $tree[$i].'/';	$newCurrentPath .= $tree[$i].'/';
$r->print(&make_anchor($url,$tree[$i],'/'.$newCurrentPath, $env{"form.mode"},$env{"form.fieldname"}, $env{"form.continue"},$group).'/');	$r->print(&make_anchor($url,$tree[$i],'/'.$newCurrentPath, $env{"form.mode"},$env{"form.fieldname"}, $env{"form.continue"}).'/');
}	}
}	}
$r->print('</span>');	$r->print('</span>');
&Apache::lonhtmlcommon::store_recent($namespace,$current_path,$current_path);	&Apache::lonhtmlcommon::store_recent($namespace,$current_path,$current_path);
$r->print('<br /><form method="post" action="'.$url.'?mode='.$env{"form.mode"}.'&fieldname='.$env{"form.fieldname"});	$r->print('<br /><form method="post" action="'.$url.'?mode='.$env{"form.mode"}.'&fieldname='.$env{"form.fieldname"}.&group_args());
if (defined($group)) {
$r->print('&group='.$group);
}
$r->print('">'.	$r->print('">'.
&Apache::lonhtmlcommon::select_recent($namespace,'currentpath',	&Apache::lonhtmlcommon::select_recent($namespace,'currentpath',
'this.form.submit();'));	'this.form.submit();'));
$r->print("</form>");	$r->print("</form>");
}	}

	sub display_directory_line {
	my ($r,$select_mode,$fullpath, $filename, $mtime, $size, $css_class,
	$line, $access_controls, $curr_access, $now, $version_flag,
	$href_location, $url, $current_path, $access_admin_text, $versions)=@_;
	# my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16);
	$r->print('<tr class="'.$css_class.'">');
	$r->print($line);
	$r->print('<td><img alt="" src="'.&Apache::loncommon::icon($filename).'" /></td>');
	$r->print('<td>'.$$version_flag{$filename}.'<a href="'.$href_location.$filename.'">'.
	$filename.'</a></td>');
	$r->print('<td>'.$size.'</td>');
	$r->print('<td>'.&Apache::lonlocal::locallocaltime($mtime).'</td>');
	if ($select_mode ne 'true') {
	$r->print('<td><span style="white-space: nowrap">'.
	&mt($curr_access).'   ');
	$r->print('<a href="'.$url.'?access='.$filename.
	'&currentpath='.$current_path.&group_args().
	'">'.$access_admin_text.'</a></span></td>');
	}
	$r->print('</tr>'.$/);
	}

sub display_directory {	sub display_directory {
my ($r,$url,$current_path,$is_empty,$dir_list,$group,$can_upload,	my ($r,$url,$current_path,$is_empty,$dir_list,$group,$can_upload,
$can_modify,$can_delete,$can_setacl)=@_;	$can_modify,$can_delete,$can_setacl)=@_;
my $iconpath= $r->dir_config('lonIconsURL') . "/";	my $iconpath= $r->dir_config('lonIconsURL') . "/";
my ($groupitem,$groupecho);
my $display_out;	my $display_out;
my $select_mode;	my $select_mode;
my $checked_files;	my $checked_files;
my $port_path = &get_port_path($group);	my $port_path = &get_port_path();
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
my $access_admin_text = &mt('View Status');	my $access_admin_text = &mt('View Status');
if ($can_setacl) {	if ($can_setacl) {
$access_admin_text = &mt('View/Change Status');	$access_admin_text = &mt('View/Change Status');
}	}
if ((defined($group)) && (defined($env{'request.course.id'}))) {
$groupitem = '<input type="hidden" name="group" value="'.$group.'" />';
$groupecho = '&group='.$group;
}

my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,	my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,
$uname);	$uname);
Line 153 sub display_directory {	Line 194 sub display_directory {
$select_mode = 'true';	$select_mode = 'true';
}	}
if ($is_empty && ($current_path ne '/') && $can_delete) {	if ($is_empty && ($current_path ne '/') && $can_delete) {
$display_out = '<form method="post" action="'.$url.'">'.$groupitem.	$display_out = '<form method="post" action="'.$url.'">'.
	&group_form_data().
'<input type="hidden" name="action" value="deletedir" />'.	'<input type="hidden" name="action" value="deletedir" />'.
'<input type="submit" name="deletedir" value="'.&mt("Delete Directory").'" />'.	'<input type="submit" name="deletedir" value="'.&mt("Delete Directory").'" />'.
'<input type="hidden" name="selectfile" value="" />'.	'<input type="hidden" name="selectfile" value="" />'.
Line 172 sub display_directory {	Line 214 sub display_directory {
$r->print('<table id="LC_browser">'.	$r->print('<table id="LC_browser">'.
'<tr><th colspan="2">Actions</th><th> </th><th>Name</th><th>Size</th><th>Last Modified</th><th>Current Access Status</th></tr>');	'<tr><th colspan="2">Actions</th><th> </th><th>Name</th><th>Size</th><th>Last Modified</th><th>Current Access Status</th></tr>');
}	}
if (defined($group)) {	$r->print("\n".&group_form_data()."\n");
$r->print("\n".$groupitem."\n");
}
my $href_location="/uploaded/$udom/$uname/$port_path".$current_path;	my $href_location="/uploaded/$udom/$uname/$port_path".$current_path;
my $href_edit_location="/editupload/$udom/$uname/$port_path".$current_path;	my $href_edit_location="/editupload/$udom/$uname/$port_path".$current_path;
my @dir_lines;	my @dir_lines;
	my @version_lines;
my %versioned;	my %versioned;
foreach my $line (sort	foreach my $dir_line (sort
{	{
my ($afile)=split('&',$a,2);	my ($afile)=split('&',$a,2);
my ($bfile)=split('&',$b,2);	my ($bfile)=split('&',$b,2);
Line 187 sub display_directory {	Line 229 sub display_directory {
} (@$dir_list)) {	} (@$dir_list)) {
#$strip holds directory/file name	#$strip holds directory/file name
#$dom	#$dom
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16);	my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$dir_line,16);
$filename =~ s/\s+$//;	$filename =~ s/\s+$//;
my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename);	my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename);
if ($version) {	if ($version) {
$versioned{$fname} .= $version.",";	push(@version_lines, [$filename,$dom,$testdir,$size,$mtime,$obs]);
	$versioned{$fname.'.'.$extension} .= $version.",";
	} else {
	push(@dir_lines, [$filename,$dom,$testdir,$size,$mtime,$obs]);
}	}
push(@dir_lines, [$filename,$dom,$testdir,$size,$mtime,$obs]);
}	}
foreach my $line (@dir_lines) {	foreach my $dir_line (@dir_lines) {
my ($filename,$dom,$testdir,$size,$mtime,$obs) = @$line;	my ($filename,$dom,$testdir,$size,$mtime,$obs) = @$dir_line;
my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename);	my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename);
if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.)\.(\d+)\.([^\.])$/)) {	if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.)\.(\d+)\.([^\.])$/)) {
	my %version_flag;
	my $show_versions;
	if ($env{'form.showversions'} eq $filename) {
	$show_versions = 'true';
	}
	if (exists($versioned{$filename})) {
	if ($show_versions) {
	$version_flag{$filename} = '<a href="portfolio"><img alt="'.&mt('opened folder').'" src="'.$iconpath.'folder_pointer_opened.gif" /></a>';
	} else {
	$version_flag{$filename} = '<a href="portfolio?showversions='.$filename.'"><img alt="'.&mt('closed folder').'" src="'.$iconpath.'folder_pointer_closed.gif" /></a>';
	}
	} else {
	$version_flag{$filename} = '';
	}
if ($dirptr&$testdir) {	if ($dirptr&$testdir) {
my $colspan='colspan="2"';	my $colspan='colspan="2"';
if ($select_mode eq 'true'){	if ($select_mode eq 'true'){
Line 206 sub display_directory {	Line 264 sub display_directory {
}	}
$r->print('<tr class="LC_browser_folder"><td '.$colspan.'><img alt="'.&mt('closed folder').'" src="'.$iconpath.'folder_closed.gif" /></td>');	$r->print('<tr class="LC_browser_folder"><td '.$colspan.'><img alt="'.&mt('closed folder').'" src="'.$iconpath.'folder_closed.gif" /></td>');
$r->print('<td>Go to ...</td>');	$r->print('<td>Go to ...</td>');
$r->print('<td>'.&make_anchor($url,$filename.'/',$current_path.$filename.'/',$env{'form.mode'},$env{"form.fieldname"},$env{'form.continue'},$group).'</td>');	$r->print('<td>'.$version_flag{$filename}.&make_anchor($url,$filename.'/',$current_path.$filename.'/',$env{'form.mode'},$env{"form.fieldname"},$env{'form.continue'}).'/</td>');
$r->print('</tr>');	$r->print('</tr>');
} else {	} else {
my $css_class = 'LC_browser_file';	my $css_class = 'LC_browser_file';
my $line;	my $line;
my $version_flag;	my $fullpath = $current_path.$filename;
if (exists($versioned{$fname})) {	$fullpath = &prepend_group($fullpath);
$version_flag = "*";	if ($select_mode eq 'true') {
} else {
$version_flag = "";
}
my $fullpath = $current_path.$filename;
$fullpath = &prepend_group($fullpath,$group);
if ($select_mode eq 'true'){
$line='<td><input type="checkbox" name="checkfile" value="'.$filename.'"';	$line='<td><input type="checkbox" name="checkfile" value="'.$filename.'"';
if ($$checked_files{$filename} eq 'selected') {	if ($$checked_files{$filename} eq 'selected') {
$line.=" checked ";	$line.=" checked ";
Line 227 sub display_directory {	Line 279 sub display_directory {
$line.=' /></td>';	$line.=' /></td>';
} else {	} else {
if (exists $locked_files{$fullpath}) {	if (exists $locked_files{$fullpath}) {
$line.='<td colspan="2"><a href="'.$url.'?lockinfo='.$current_path.$filename.$groupecho.'">Locked</a></td>';	$line.='<td colspan="2"><a href="'.$url.'?lockinfo='.$current_path.$filename.&group_args().'">Locked</a></td>';
$css_class= 'LC_browser_file_locked';	$css_class= 'LC_browser_file_locked';
} else {	} else {
if (!$can_modify) {	if (!$can_modify) {
Line 241 sub display_directory {	Line 293 sub display_directory {
if ($can_modify) {	if ($can_modify) {
my $cat='<img alt="'.&mt('Catalog Information').	my $cat='<img alt="'.&mt('Catalog Information').
'" src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').'" />';	'" src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').'" />';
$line .= '<a href="'.$url.'?rename='.$filename.'&currentpath='.$current_path.$groupecho.'">Rename</a>';	$line .= '<a href="'.$url.'?rename='.$filename.'&currentpath='.$current_path.&group_args().'">Rename</a>';
$line .= '</td><td><a href="'.$href_edit_location.$filename.'.meta">'.$cat.'</a>';	$line .= '</td><td>'.$version_flag{$filename}.'<a href="'.$href_edit_location.$filename.'.meta">'.$cat.'</a>';
}	}
$line .= '</td>';	$line .= '</td>';
}	}
$r->print('<tr class="'.$css_class.'">');
$r->print($line);
}
my $curr_access;
my $pub_access = 0;
my $guest_access = 0;
my $cond_access = 0;
foreach my $key (sort(keys(%{$access_controls{$fullpath}}))) {
my ($num,$scope,$end,$start) = &unpack_acc_key($key);
if (($now > $start) && (!$end \|\| $end > $now)) {
if ($scope eq 'public') {
$pub_access = 1;
} elsif ($scope eq 'guest') {
$guest_access = 1;
} else {
$cond_access = 1;
}
}
}	}
if (!$pub_access && !$guest_access && !$cond_access) {	my $curr_access;
$curr_access = &mt('Private');	if ($select_mode ne 'true') {
} else {	my $pub_access = 0;
my @allaccesses;	my $guest_access = 0;
if ($pub_access) {	my $cond_access = 0;
push(@allaccesses,&mt('Public'));	foreach my $key (sort(keys(%{$access_controls{$fullpath}}))) {
}	my ($num,$scope,$end,$start) = &unpack_acc_key($key);
if ($guest_access) {	if (($now > $start) && (!$end \|\| $end > $now)) {
push(@allaccesses,&mt('Passphrase-protected'));	if ($scope eq 'public') {
}	$pub_access = 1;
if ($cond_access) {	} elsif ($scope eq 'guest') {
push(@allaccesses,&mt('Conditional'));	$guest_access = 1;
}	} else {
$curr_access = join('+ ',@allaccesses);	$cond_access = 1;
}	}
$r->print('<td><img alt="" src="'.&Apache::loncommon::icon($filename).'" /></td>');	}
$r->print('<td><a href="'.$href_location.$filename.'">'.	}
$filename.'</a></td>');	if (!$pub_access && !$guest_access && !$cond_access) {
$r->print('<td>'.$size.'</td>');	$curr_access = &mt('Private');
$r->print('<td>'.&Apache::lonlocal::locallocaltime($mtime).'</td>');	} else {
$r->print('<td><span style="white-space: nowrap">'.	my @allaccesses;
&mt($curr_access).'   ');	if ($pub_access) {
$r->print('<a href="'.$url.'?access='.$filename.	push(@allaccesses,&mt('Public'));
'&currentpath='.$current_path.$groupecho.	}
'">'.$access_admin_text.'</a>');	if ($guest_access) {
$r->print('</span></td></tr>');	push(@allaccesses,&mt('Passphrase-protected'));
	}
	if ($cond_access) {
	push(@allaccesses,&mt('Conditional'));
	}
	$curr_access = join('+ ',@allaccesses);
	}
	}
	&display_directory_line($r,$select_mode,$fullpath, $filename, $mtime, $size, $css_class, $line,
	\%access_controls, $curr_access,$now, \%version_flag, $href_location,
	$url, $current_path, $access_admin_text);
	if ($show_versions) {
	foreach my $dir_line (@version_lines) {
	my ($v_filename,$dom,$testdir,$size,$mtime,$obs) = @$dir_line;
	my ($v_fname,$version,$v_extension) = &Apache::grades::file_name_version_ext($v_filename);
	if (($v_fname eq $fname)&&($v_extension eq $extension)) {
	&display_directory_line($r,$select_mode,$fullpath, $v_filename, $mtime, $size,
	$css_class, $line, \%access_controls, $curr_access, $now,
	\%version_flag, $href_location, $url, $current_path, $access_admin_text, 1);
	}
	}
	}
}	}
}	}
}	}
if ($select_mode eq 'true') {	if ($select_mode eq 'true') {
$r->print('</table>	$r->print('</table>
<input type="hidden" name="continue" value="true">	<input type="hidden" name="continue" value="true" />
<input type="hidden" name="fieldname" value="'.$env{'form.fieldname'}.'">	<input type="hidden" name="fieldname" value="'.$env{'form.fieldname'}.'" />
<input type="hidden" name="mode" value="selectfile">	<input type="hidden" name="mode" value="selectfile" />
<input type="submit" name="submit" value="Select checked files, and continue selecting." /><br />	<input type="submit" name="submit" value="Select checked files, and continue selecting." /><br />
<input type="button" name="doit" onClick= "finishSelect();" value="Select checked files, and close window" />	<input type="button" name="doit" onClick= "finishSelect();" value="Select checked files, and close window" />
<input type="hidden" name="currentpath" value="'.$current_path.'" />	<input type="hidden" name="currentpath" value="'.$current_path.'" />
Line 332 sub open_form {	Line 387 sub open_form {
}	}

sub close_form {	sub close_form {
my ($r,$url,$group,$button_text)=@_;	my ($r,$url,$button_text)=@_;
if (!defined($button_text)) {	if (!defined($button_text)) {
$button_text = {	$button_text = {
'continue' => &mt('Continue'),	'continue' => &mt('Continue'),
Line 340 sub close_form {	Line 395 sub close_form {
};	};
}	}
$r->print('<p><input type="submit" value="'.$button_text->{'continue'}.'" />');	$r->print('<p><input type="submit" value="'.$button_text->{'continue'}.'" />');
if (defined($group)) {	$r->print(&group_form_data().'</p></form>');
$r->print("\n".'<input type="hidden" name="group" value="'.
$group.'" />');
}
$r->print('</p></form>');
$r->print('<form action="'.$url.'" method="post">	$r->print('<form action="'.$url.'" method="post">
<p>	<p>
<input type="hidden" name="currentpath" value="'.	<input type="hidden" name="currentpath" value="'.
$env{'form.currentpath'}.'" />');	$env{'form.currentpath'}.'" />'.
if (defined($group)) {	&group_form_data());
$r->print("\n".'<input type="hidden" name="group" value="'.
$group.'" />');
}
$r->print("\n".' <input type="submit" value="'.$button_text->{'cancel'}.'" />	$r->print("\n".' <input type="submit" value="'.$button_text->{'cancel'}.'" />
</p></form>');	</p></form>');
}	}
Line 379 sub display_file {	Line 427 sub display_file {
}	}

sub done {	sub done {
my ($message,$url,$group)=@_;	my ($message,$url)=@_;
unless (defined $message) {	unless (defined $message) {
$message='Done';	$message='Done';
}	}
my $result = '<h3><a href="'.$url.'?currentpath='.	my $result = '<h3><a href="'.$url.'?currentpath='.
$env{'form.currentpath'}.	$env{'form.currentpath'}.
'&fieldname='.$env{'form.fieldname'}.	'&fieldname='.$env{'form.fieldname'}.
'&mode='.$env{'form.mode'};	'&mode='.$env{'form.mode'}.
if (defined($group)) {	&group_args();
$result .= '&group='.$group;
}
$result .= '">'.&mt($message).'</a></h3>';	$result .= '">'.&mt($message).'</a></h3>';
return $result;	return $result;
}	}

sub delete {	sub delete {
my ($r,$url,$group)=@_;	my ($r,$url)=@_;
my @check;	my @check;
my $file_name = $env{'form.currentpath'}.$env{'form.selectfile'};	my $file_name = $env{'form.currentpath'}.$env{'form.selectfile'};
$file_name = &prepend_group($file_name,$group);	$file_name = &prepend_group($file_name);
my @files=&Apache::loncommon::get_env_multiple('form.selectfile');	my @files=&Apache::loncommon::get_env_multiple('form.selectfile');
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {	if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {
$r->print ("The file is locked and cannot be deleted.<br />");	$r->print ("The file is locked and cannot be deleted.<br />");
$r->print(&done('Back',$url,$group));	$r->print(&done('Back',$url));
} else {	} else {
if (scalar(@files)) {	if (scalar(@files)) {
&open_form($r,$url);	&open_form($r,$url);
$r->print('<p>'.&mt('Delete').' '.&display_file(undef,\@files).'?</p>');	$r->print('<p>'.&mt('Delete').' '.&display_file(undef,\@files).'?</p>');
&close_form($r,$url,$group);	&close_form($r,$url);
} else {	} else {
$r->print("No file was checked to delete.<br />");	$r->print("No file was checked to delete.<br />");
$r->print(&done(undef,$url,$group));	$r->print(&done(undef,$url));
}	}
}	}
}	}

sub delete_confirmed {	sub delete_confirmed {
my ($r,$url,$group)=@_;	my ($r,$url)=@_;
my @files=&Apache::loncommon::get_env_multiple('form.selectfile');	my @files=&Apache::loncommon::get_env_multiple('form.selectfile');
my $result;	my $result;
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
my $port_path = &get_port_path($group);	my $port_path = &get_port_path();
foreach my $delete_file (@files) {	foreach my $delete_file (@files) {
$result=&Apache::lonnet::removeuserfile($uname,$udom,$port_path.	$result=&Apache::lonnet::removeuserfile($uname,$udom,$port_path.
$env{'form.currentpath'}.	$env{'form.currentpath'}.
Line 431 sub delete_confirmed {	Line 477 sub delete_confirmed {
') while trying to delete '.&display_file(undef, $delete_file).'</span><br />');	') while trying to delete '.&display_file(undef, $delete_file).'</span><br />');
}	}
}	}
$r->print(&done(undef,$url,$group));	$r->print(&done(undef,$url));
}	}

sub delete_dir {	sub delete_dir {
my ($r,$url,$group)=@_;	my ($r,$url)=@_;
&open_form($r,$url);	&open_form($r,$url);
$r->print('<p>'.&mt('Delete').' '.&display_file().'?</p>');	$r->print('<p>'.&mt('Delete').' '.&display_file().'?</p>');
&close_form($r,$url,$group);	&close_form($r,$url);
}	}

sub delete_dir_confirmed {	sub delete_dir_confirmed {
my ($r,$url,$group)=@_;	my ($r,$url)=@_;
my $directory_name = $env{'form.currentpath'};	my $directory_name = $env{'form.currentpath'};
$directory_name =~ s\|/$\|\|; # remove any trailing slash	$directory_name =~ s\|/$\|\|; # remove any trailing slash
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
my $namespace = &get_namespace($group);	my $namespace = &get_namespace();
my $port_path = &get_port_path($group);	my $port_path = &get_port_path();
my $result=&Apache::lonnet::removeuserfile($uname,$udom,$port_path.	my $result=&Apache::lonnet::removeuserfile($uname,$udom,$port_path.
$directory_name);	$directory_name);

Line 467 sub delete_dir_confirmed {	Line 513 sub delete_dir_confirmed {
}	}
$env{'form.currentpath'} = $directory_name;	$env{'form.currentpath'} = $directory_name;
}	}
$r->print(&done(undef,$url,$group));	$r->print(&done(undef,$url));
}	}

sub rename {	sub rename {
my ($r,$url,$group)=@_;	my ($r,$url)=@_;
my $file_name = $env{'form.currentpath'}.$env{'form.rename'};	my $file_name = $env{'form.currentpath'}.$env{'form.rename'};
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
$file_name = &prepend_group($file_name,$group);	$file_name = &prepend_group($file_name);
if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {	if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {
$r->print ("The file is locked and cannot be renamed.<br />");	$r->print ("The file is locked and cannot be renamed.<br />");
$r->print(&done(undef,$url,$group));	$r->print(&done(undef,$url));
} else {	} else {
&open_form($r,$url);	&open_form($r,$url);
$r->print('<p>'.&mt('Rename').' '.&display_file().' to	$r->print('<p>'.&mt('Rename').' '.&display_file().' to
<input name="filenewname" type="input" size="50" />?</p>');	<input name="filenewname" type="input" size="50" />?</p>');
&close_form($r,$url,$group);	&close_form($r,$url);
}	}
}	}

sub rename_confirmed {	sub rename_confirmed {
my ($r,$url,$group)=@_;	my ($r,$url)=@_;
my $filenewname=&Apache::lonnet::clean_filename($env{'form.filenewname'});	my $filenewname=&Apache::lonnet::clean_filename($env{'form.filenewname'});
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
my $port_path = &get_port_path($group);	my $port_path = &get_port_path();
if ($filenewname eq '') {	if ($filenewname eq '') {
$r->print('<span class="LC_error">'.	$r->print('<span class="LC_error">'.
&mt("Error: no valid filename was provided to rename to.").	&mt("Error: no valid filename was provided to rename to.").
'</span><br />');	'</span><br />');
$r->print(&done(undef,$url,$group));	$r->print(&done(undef,$url));
return;	return;
}	}
my $result=	my $result=
Line 513 sub rename_confirmed {	Line 559 sub rename_confirmed {
'<strong>'.&display_file('',$env{'form.filenewname'}).'</strong>',	'<strong>'.&display_file('',$env{'form.filenewname'}).'</strong>',
'<strong>'.&display_file('',$filenewname).'</strong>'));	'<strong>'.&display_file('',$filenewname).'</strong>'));
}	}
$r->print(&done(undef,$url,$group));	$r->print(&done(undef,$url));
}	}

sub display_access {	sub display_access {
my ($r,$url,$group,$can_setacl) = @_;	my ($r,$url,$group,$can_setacl,$port_path) = @_;
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
my $file_name = $env{'form.currentpath'}.$env{'form.access'};	my $file_name = $env{'form.currentpath'}.$env{'form.access'};
$file_name = &prepend_group($file_name,$group);	$file_name = &prepend_group($file_name);
my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,	my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,
$uname);	$uname);
my %access_controls = &Apache::lonnet::get_access_controls($current_permissions,$group,$file_name);	my %access_controls = &Apache::lonnet::get_access_controls($current_permissions,$group,$file_name);
my $aclcount = keys(%access_controls);	my $aclcount = keys(%access_controls);
my $header = '<h3>'.&mt('Allowing others to retrieve portfolio file: [_1]',$env{'form.currentpath'}.$env{'form.access'}).'</h3>';	my $header = '<h3>'.&mt('Allowing others to retrieve file: [_1]',$port_path.$env{'form.currentpath'}.$env{'form.access'}).'</h3>';
my $info .=	my $info .= &mt('Access to this file by others can be set to be one or more of the following types: public, passphrase-protected or conditional.').'<br /><ul><li>'.&mt('Public files are available to anyone without the need for login.').'</li><li>'.&mt('Passphrase-protected files do not require log-in, but will require the viewer to enter the passphrase you set.').'</li><li>'.&mt('Conditional files are accessible to logged-in users with accounts in the LON-CAPA network, who satisfy the conditions you set.').'<br />'.&mt('The conditions can include affiliation with a particular course or group, or a user account in a specific domain.').'<br />'.&mt('Alternatively access can be granted to people with specific LON-CAPA usernames and domains.').'</li></ul>';
&mt('Access to this file by others can be set to be one or more of the following types: public, passphrase-protected or conditional.').
'<br /><ul><li>'.	if ($group eq '') {
&mt('Public files are available to anyone without the need for login.').	$info .= (&mt("Direct others to the 'Display file listing' link (shown when there are viewable files) on your personal information page:<br /><a href='/adm/$udom/$uname/aboutme'>http://$ENV{'SERVER_NAME'}/adm/$udom/$uname/aboutme</a>"));
'</li><li>'.	}
&mt('Passphrase-protected files do not require log-in, but will require the viewer to enter the passphrase you set.').
'</li>'.
#'<li>'.
#&mt('Conditional files are accessible to logged-in users with accounts in the LON-CAPA network, who satisfy the conditions you set.').
#'<br />'.
#&mt('The conditions can include affiliation with a particular course or group, or a user account in a specific domain.').
#'<br />'.
#&mt('Alternatively access can be granted to people with specific LON-CAPA usernames and domains.').
'</li></ul>';
if ($can_setacl) {	if ($can_setacl) {
&open_form($r,$url);	&open_form($r,$url);
$r->print($header.$info);	$r->print($header.$info);
Line 548 sub display_access {	Line 586 sub display_access {
'continue' => &mt('Proceed'),	'continue' => &mt('Proceed'),
'cancel' => &mt('Back to directory listing'),	'cancel' => &mt('Back to directory listing'),
};	};
&close_form($r,$url,$group,$button_text);	&close_form($r,$url,$button_text);
} else {	} else {
$r->print($header);	$r->print($header);
if ($aclcount) {	if ($aclcount) {
$r->print($info);	$r->print($info);
}	}
&view_access_settings($r,$url,$group,$access_controls{$file_name},	&view_access_settings($r,$url,$access_controls{$file_name},$aclcount);
$aclcount);
}	}
}	}

sub view_access_settings {	sub view_access_settings {
my ($r,$url,$group,$access_controls,$aclcount) = @_;	my ($r,$url,$access_controls,$aclcount) = @_;
my ($showstart,$showend);	my ($showstart,$showend);
my %todisplay;	my %todisplay;
foreach my $key (sort(keys(%{$access_controls}))) {	foreach my $key (sort(keys(%{$access_controls}))) {
Line 581 sub view_access_settings {	Line 618 sub view_access_settings {
} else {	} else {
$r->print(&mt('No access control settings currently exist for this file.<br />' ));	$r->print(&mt('No access control settings currently exist for this file.<br />' ));
}	}
my $group_arg;
if ($group) {
$group_arg = '&group='.$group;
}
$r->print('<br /><a href="'.$url.'?currentpath='.$env{'form.currentpath'}.	$r->print('<br /><a href="'.$url.'?currentpath='.$env{'form.currentpath'}.
$group_arg.'">'.&mt('Return to directory listing').'</a>');	&group_args().'">'.&mt('Return to directory listing').'</a>');
return;	return;
}	}

Line 694 sub build_access_summary {	Line 727 sub build_access_summary {


sub update_access {	sub update_access {
my ($r,$url,$group) = @_;	my ($r,$url,$group,$port_path) = @_;
my $totalprocessed = 0;	my $totalprocessed = 0;
my %processing;	my %processing;
my %title = (	my %title = (
Line 719 sub update_access {	Line 752 sub update_access {
}	}
}	}
my $file_name = $env{'form.currentpath'}.$env{'form.selectfile'};	my $file_name = $env{'form.currentpath'}.$env{'form.selectfile'};
$r->print('<h3>'.&mt('Allowing others to retrieve portfolio file: [_1]',	$r->print('<h3>'.&mt('Allowing others to retrieve file: [_1]',
$file_name).'</h3>'."\n");	$port_path.$file_name).'</h3>'."\n");
$file_name = &prepend_group($file_name,$group);	$file_name = &prepend_group($file_name);
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
my ($errors,$outcome,$deloutcome,$new_values,$translation);	my ($errors,$outcome,$deloutcome,$new_values,$translation);
if ($totalprocessed) {	if ($totalprocessed) {
($outcome,$deloutcome,$new_values,$translation) =	($outcome,$deloutcome,$new_values,$translation) =
Line 793 sub update_access {	Line 826 sub update_access {
if ($allnew > 0) {	if ($allnew > 0) {
my $now = time;	my $now = time;
my $then = $now + (606024*180); # six months approx.	my $then = $now + (606024*180); # six months approx.
&open_form($r,$url,$group);	&open_form($r,$url);
foreach my $newitem ('course','group','domains','users') {	foreach my $newitem ('course','group','domains','users') {
if ($env{'form.new'.$newitem} > 0) {	if ($env{'form.new'.$newitem} > 0) {
$r->print('<br />'.&mt('Add new <b>[_1]-based</b> access control for portfolio file: <b>[_2]</b>',$newitem,$env{'form.currentpath'}.$env{'form.selectfile'}).'<br /><br />');	$r->print('<br />'.&mt('Add new <b>[_1]-based</b> access control for portfolio file: <b>[_2]</b>',$newitem,$env{'form.currentpath'}.$env{'form.selectfile'}).'<br /><br />');
Line 808 sub update_access {	Line 841 sub update_access {
$access_controls{$file_name},$now,$then);	$access_controls{$file_name},$now,$then);
}	}
}	}
&close_form($r,$url,$group);	&close_form($r,$url);
} else {	} else {
my $group_arg;
if ($group) {
$group_arg = '&group='.$group;
}
$r->print('<br /><a href="'.$url.'?access='.$env{'form.selectfile'}.	$r->print('<br /><a href="'.$url.'?access='.$env{'form.selectfile'}.
'&currentpath='.$env{'form.currentpath'}.$group_arg.'">'.	'&currentpath='.$env{'form.currentpath'}.&group_args().'">'.
&mt('Display all access settings for this file').'</a>');	&mt('Display all access settings for this file').'</a>'.
	'     '.
	'<a href="'.$url.'?currentpath='.$env{'form.currentpath'}.
	&group_args().'">'.&mt('Return to directory listing').'</a>');
}	}
return;	return;
}	}
Line 986 sub access_setting_table {	Line 1018 sub access_setting_table {
$passwd.'" /></td>');	$passwd.'" /></td>');
$r->print(&Apache::loncommon::end_data_table_row());	$r->print(&Apache::loncommon::end_data_table_row());
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
	$r->print('</td></tr><tr><td colspan="3"> </td></tr><tr><td valign="top">');
#$r->print('</td></tr><tr><td colspan="3"> </td></tr><tr><td valign="top">');	&access_element($r,'domains',\%acl_count,\@domains,$access_controls,$now,$then);
#&access_element($r,'domains',\%acl_count,\@domains,$access_controls,$now,$then);	$r->print('</td><td> </td><td valign="top">');
#$r->print('</td><td> </td><td valign="top">');	&access_element($r,'users',\%acl_count,\@users,$access_controls,$now,$then);
#&access_element($r,'users',\%acl_count,\@users,$access_controls,$now,$then);	$r->print('</td></tr><tr><td colspan="3"></td></tr><tr>');
#$r->print('</td></tr><tr><td colspan="3"></td></tr><tr>');	if (@courses > 0 \|\| @groups > 0) {
#if (@courses > 0 \|\| @groups > 0) {	$r->print('<td colspan="3" valign="top">');
# $r->print('<td colspan="3" valign="top">');	} else {
#} else {	$r->print('<td valign="top">');
# $r->print('<td valign="top">');	}
#}	&access_element($r,'course',\%acl_count,\@courses,$access_controls,$now,$then);
#&access_element($r,'course',\%acl_count,\@courses,$access_controls,$now,$then);	$r->print('</td>');
#$r->print('</td>');	if (@courses > 0 \|\| @groups > 0) {
#if (@courses > 0 \|\| @groups > 0) {	$r->print('</tr><tr><td colspan="3"> </td></tr><tr><td colspan="3" valign="top">');
# $r->print('</tr><tr><td colspan="3"> </td></tr><tr><td colspan="3" valign="top">');	} else {
#} else {	$r->print('<td> </td><td valign="top">');
# $r->print('<td> </td><td valign="top">');	}
#}	&access_element($r,'group',\%acl_count,\@groups,$access_controls,$now,$then);
#&access_element($r,'group',\%acl_count,\@groups,$access_controls,$now,$then);
$r->print('</td></tr></table>');	$r->print('</td></tr></table>');
}	}

Line 1385 END_SCRIPT	Line 1416 END_SCRIPT
}	}

sub select_files {	sub select_files {
my ($r,$group) = @_;	my ($r) = @_;
if ($env{'form.continue'} eq 'true') {	if ($env{'form.continue'} eq 'true') {
# here we update the selections for the currentpath	# here we update the selections for the currentpath
# eventually, have to handle removing those not checked, but . . .	# eventually, have to handle removing those not checked, but . . .
Line 1413 ENDSMP	Line 1444 ENDSMP
fileList = fileList + document.forms.checkselect.currentpath.value + document.forms.checkselect[i].value + "," ;	fileList = fileList + document.forms.checkselect.currentpath.value + document.forms.checkselect[i].value + "," ;
}	}
}	}
opener.document.forms.lonhomework.	opener.document.forms.lonhomework.$env{'form.fieldname'}.value=fileList;
ENDSMP
$javascript .= $env{'form.fieldname'};
$javascript .= (<<ENDSMP);
.value=fileList;
self.close();	self.close();
}	}
</script>	</script>
Line 1433 ENDSMP	Line 1460 ENDSMP
}	}
}	}
}	}

sub upload {	sub upload {
my ($r,$url,$group)=@_;	my ($r,$url,$group)=@_;
my $fname=$env{'form.uploaddoc.filename'};	my $fname=$env{'form.uploaddoc.filename'};
my $filesize = (length($env{'form.uploaddoc'})) / 1000; #express in k (1024?)	my $filesize = (length($env{'form.uploaddoc'})) / 1000; #express in k (1024?)
my $disk_quota = 20000; # expressed in k	my $disk_quota = 20000; # expressed in k
	if (defined($group)) {
	my $grp_quota = &get_group_quota($group); # quota expressed in k
	if ($grp_quota ne '') {
	$disk_quota = $grp_quota;
	} else {
	$disk_quota = 0;
	}
	}
$fname=&Apache::lonnet::clean_filename($fname);	$fname=&Apache::lonnet::clean_filename($fname);

my $portfolio_root=&get_portfolio_root($group);	my $portfolio_root=&get_portfolio_root();
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
my $port_path = &get_port_path($group);	my $port_path = &get_port_path();
# Fixme --- Move the checking for existing file to LOND error return	# Fixme --- Move the checking for existing file to LOND error return
my @dir_list=&get_dir_list($portfolio_root,$group);	my @dir_list=&get_dir_list($portfolio_root);
my $found_file = 0;	my $found_file = 0;
my $locked_file = 0;	my $locked_file = 0;
foreach my $line (@dir_list) {	foreach my $line (@dir_list) {
my ($file_name)=split(/\&/,$line,2);	my ($file_name)=split(/\&/,$line,2);
if ($file_name eq $fname){	if ($file_name eq $fname){
$file_name = $env{'form.currentpath'}.$file_name;	$file_name = $env{'form.currentpath'}.$file_name;
$file_name = &prepend_group($file_name,$group);	$file_name = &prepend_group($file_name);
$found_file = 1;	$found_file = 1;
if (defined($group)) {
$file_name = $group.'/'.$file_name;
}
if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {	if (&Apache::lonnet::is_locked($file_name,$udom,$uname) eq 'true') {
$locked_file = 1;	$locked_file = 1;
}	}
Line 1465 sub upload {	Line 1498 sub upload {
if (($current_disk_usage + $filesize) > $disk_quota){	if (($current_disk_usage + $filesize) > $disk_quota){
$r->print('<span class="LC_error">Unable to upload <strong>'.$fname.' (size = '.$filesize.' kilobytes)</strong>. Disk quota will be exceeded.</span>'.	$r->print('<span class="LC_error">Unable to upload <strong>'.$fname.' (size = '.$filesize.' kilobytes)</strong>. Disk quota will be exceeded.</span>'.
'<br />Disk quota is '.$disk_quota.' kilobytes. Your current disk usage is '.$current_disk_usage.' kilobytes.');	'<br />Disk quota is '.$disk_quota.' kilobytes. Your current disk usage is '.$current_disk_usage.' kilobytes.');
$r->print(&done('Back',$url,$group));	$r->print(&done('Back',$url));
}	}
elsif ($found_file){	elsif ($found_file){
if ($locked_file){	if ($locked_file){
$r->print('<span class="LC_error">'.'Unable to upload <strong>'.$fname.'</strong>, a <strong>locked</strong> file by that name was found in <strong>'.$port_path.$env{'form.currentpath'}.'</strong></span>'.	$r->print('<span class="LC_error">'.'Unable to upload <strong>'.$fname.'</strong>, a <strong>locked</strong> file by that name was found in <strong>'.$port_path.$env{'form.currentpath'}.'</strong></span>'.
'<br />You will be able to rename or delete existing '.$fname.' after a grade has been assigned.');	'<br />You will be able to rename or delete existing '.$fname.' after a grade has been assigned.');
$r->print(&done('Back',$url,$group));	$r->print(&done('Back',$url));
} else {	} else {
$r->print('<span class="LC_error">'.'Unable to upload <strong>'.$fname.'</strong>, a file by that name was found in <strong>'.$port_path.$env{'form.currentpath'}.'</strong></span>'.	$r->print('<span class="LC_error">'.'Unable to upload <strong>'.$fname.'</strong>, a file by that name was found in <strong>'.$port_path.$env{'form.currentpath'}.'</strong></span>'.
'<br />To upload, rename or delete existing '.$fname.' in '.$port_path.$env{'form.currentpath'});	'<br />To upload, rename or delete existing '.$fname.' in '.$port_path.$env{'form.currentpath'});
$r->print(&done('Back',$url,$group));	$r->print(&done('Back',$url));
}	}
} else {	} else {
my $result=&Apache::lonnet::userfileupload('uploaddoc','',	my $result=&Apache::lonnet::userfileupload('uploaddoc','',
Line 1483 sub upload {	Line 1516 sub upload {
if ($result !~ m\|^/uploaded/\|) {	if ($result !~ m\|^/uploaded/\|) {
$r->print('<span class="LC_error">'.'An errror occured ('.$result.	$r->print('<span class="LC_error">'.'An errror occured ('.$result.
') while trying to upload '.&display_file().'</span><br />');	') while trying to upload '.&display_file().'</span><br />');
$r->print(&done('Back',$url,$group));	$r->print(&done('Back',$url));
} else {	} else {
$r->print(&done(undef,$url,$group));	$r->print(&done(undef,$url));
}	}
}	}
}	}

sub lock_info {	sub lock_info {
my ($r,$url,$group) = @_;	my ($r,$url,$group) = @_;
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,	my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,
$uname);	$uname);
my $file_name = $env{'form.lockinfo'};	my $file_name = $env{'form.lockinfo'};
$file_name = &prepend_group($file_name,$group);	$file_name = &prepend_group($file_name);
if (defined($file_name) && defined($$current_permissions{$file_name})) {	if (defined($file_name) && defined($$current_permissions{$file_name})) {
foreach my $array_item (@{$$current_permissions{$file_name}}) {	foreach my $array_item (@{$$current_permissions{$file_name}}) {
if (ref($array_item) eq 'ARRAY') {	if (ref($array_item) eq 'ARRAY') {
Line 1518 sub lock_info {	Line 1552 sub lock_info {
}	}
}	}
}	}
$r->print(&done('Back',$url,$group));	$r->print(&done('Back',$url));
return 'ok';	return 'ok';
}	}

sub createdir {	sub createdir {
my ($r,$url,$group)=@_;	my ($r,$url)=@_;
my $newdir=&Apache::lonnet::clean_filename($env{'form.newdir'});	my $newdir=&Apache::lonnet::clean_filename($env{'form.newdir'});
if ($newdir eq '') {	if ($newdir eq '') {
$r->print('<span class="LC_error">'.	$r->print('<span class="LC_error">'.
&mt("Error: no directory name was provided.").	&mt("Error: no directory name was provided.").
'</span><br />');	'</span><br />');
$r->print(&done(undef,$url,$group));	$r->print(&done(undef,$url));
return;	return;
}	}
my $portfolio_root = &get_portfolio_root($group);	my $portfolio_root = &get_portfolio_root();
my @dir_list=&get_dir_list($portfolio_root,$group);	my @dir_list=&get_dir_list($portfolio_root);
my $found_file = 0;	my $found_file = 0;
foreach my $line (@dir_list) {	foreach my $line (@dir_list) {
my ($filename)=split(/\&/,$line,2);	my ($filename)=split(/\&/,$line,2);
Line 1544 sub createdir {	Line 1579 sub createdir {
$r->print('<span class="LC_error">'.'Unable to create a directory named <strong>'.$newdir.	$r->print('<span class="LC_error">'.'Unable to create a directory named <strong>'.$newdir.
' </strong>a file or directory by that name already exists.</span><br />');	' </strong>a file or directory by that name already exists.</span><br />');
} else {	} else {
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
my $port_path = &get_port_path($group);	my $port_path = &get_port_path();
my $result=&Apache::lonnet::mkdiruserfile($uname,$udom,	my $result=&Apache::lonnet::mkdiruserfile($uname,$udom,
$port_path.$env{'form.currentpath'}.$newdir);	$port_path.$env{'form.currentpath'}.$newdir);
if ($result ne 'ok') {	if ($result ne 'ok') {
Line 1556 sub createdir {	Line 1591 sub createdir {
if ($newdir ne $env{'form.newdir'}) {	if ($newdir ne $env{'form.newdir'}) {
$r->print("The new directory name was changed from:<br /><strong>".$env{'form.newdir'}."</strong> to <strong>$newdir </strong>");	$r->print("The new directory name was changed from:<br /><strong>".$env{'form.newdir'}."</strong> to <strong>$newdir </strong>");
}	}
$r->print(&done(undef,$url,$group));	$r->print(&done(undef,$url));
}	}

sub get_portfolio_root {	sub get_portfolio_root {
my ($group) = @_;	my ($uname,$udom) = &get_name_dom();
my ($portfolio_root,$udom,$uname,$path);	my $path;
($uname,$udom) = &get_name_dom($group);	if (defined($env{'form.group'})) {
if (defined($group)) {	$path = '/userfiles/groups/'.$env{'form.group'}.'/portfolio';
$path = '/userfiles/groups/'.$group.'/portfolio';
} else {	} else {
$path = '/userfiles/portfolio';	$path = '/userfiles/portfolio';
}	}
return (&Apache::loncommon::propath($udom,$uname).$path);	return (&Apache::loncommon::propath($udom,$uname).$path);
}	}

	sub get_group_quota {
	my ($group) = @_;
	my $group_quota;
	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
	my %curr_groups = &Apache::longroup::coursegroups($cdom,$cnum,$group);
	if (%curr_groups) {
	my %group_info = &Apache::longroup::get_group_settings(
	$curr_groups{$group});
	$group_quota = $group_info{'quota'}; #expressed in Mb
	if ($group_quota) {
	$group_quota = 1000 * $group_quota; #expressed in k
	}
	}
	return $group_quota;
	}

sub get_dir_list {	sub get_dir_list {
my ($portfolio_root,$group) = @_;	my ($portfolio_root) = @_;
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
return &Apache::lonnet::dirlist($env{'form.currentpath'},	return &Apache::lonnet::dirlist($env{'form.currentpath'},
$udom,$uname,$portfolio_root);	$udom,$uname,$portfolio_root);
}	}

sub get_name_dom {	sub get_name_dom {
my ($group) = @_;
my ($uname,$udom);	my ($uname,$udom);
if (defined($group)) {	if (defined($env{'form.group'})) {
$udom = $env{'course.'.$env{'request.course.id'}.'.domain'};	$udom = $env{'course.'.$env{'request.course.id'}.'.domain'};
$uname = $env{'course.'.$env{'request.course.id'}.'.num'};	$uname = $env{'course.'.$env{'request.course.id'}.'.num'};
} else {	} else {
Line 1592 sub get_name_dom {	Line 1642 sub get_name_dom {
}	}

sub prepend_group {	sub prepend_group {
my ($filename,$group) = @_;	my ($filename) = @_;
if (defined($group)) {	if (defined($env{'form.group'})) {
$filename = $group.$filename;	$filename = $env{'form.group'}.$filename;
}	}
return $filename;	return $filename;
}	}

sub get_namespace {	sub get_namespace {
my ($group) = @_;
my $namespace = 'portfolio';	my $namespace = 'portfolio';
if (defined($group)) {	if (defined($env{'form.group'})) {
my ($uname,$udom) = &get_name_dom($group);	my ($uname,$udom) = &get_name_dom();
$namespace .= '_'.$udom.'_'.$uname.'_'.$group;	$namespace .= '_'.$udom.'_'.$uname.'_'.$env{'form.group'};
}	}
return $namespace;	return $namespace;
}	}

sub get_port_path {	sub get_port_path {
my ($group) = @_;
my $port_path;	my $port_path;
if (defined($group)) {	if (defined($env{'form.group'})) {
$port_path = "groups/$group/portfolio";	$port_path = "groups/$env{'form.group'}/portfolio";
} else {	} else {
$port_path = 'portfolio';	$port_path = 'portfolio';
}	}
Line 1621 sub get_port_path {	Line 1669 sub get_port_path {
}	}

sub missing_priv {	sub missing_priv {
my ($r,$url,$priv,$group) = @_;	my ($r,$url,$priv) = @_;
my $longtext = {	my $longtext = {
upload => 'upload files',	upload => 'upload files',
delete => 'delete files',	delete => 'delete files',
Line 1639 sub missing_priv {	Line 1687 sub missing_priv {
$r->print(&mt('<h3>Action disallowed</h3>'));	$r->print(&mt('<h3>Action disallowed</h3>'));
$r->print(&mt('You do not have sufficient privileges to [_1] ',	$r->print(&mt('You do not have sufficient privileges to [_1] ',
$longtext->{$priv}));	$longtext->{$priv}));
if ($group) {	if (defined($env{'form.group'})) {
$r->print(&mt("in the group's file repository."));	$r->print(&mt("in the group's file repository."));
$rtnlink .= '&group='.$group;	$rtnlink .= &group_args()
} else {	} else {
$r->print(&mt('in this portfolio.'));	$r->print(&mt('in this portfolio.'));
}	}
Line 1651 sub missing_priv {	Line 1699 sub missing_priv {
return;	return;
}	}

	sub coursegrp_portfolio_header {
	my ($cdom,$cnum,$grp_desc)=@_;
	my $gpterm = &Apache::loncommon::group_term();
	my $ucgpterm = $gpterm;
	$ucgpterm =~ s/^(\w)/uc($1)/e;
	if ($env{'form.ref'}) {
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"/adm/coursegroups",
	text=>"Groups",
	title=>"Course Groups"});
	}
	&Apache::lonhtmlcommon::add_breadcrumb
	({href=>"/adm/$cdom/$cnum/$env{'form.group'}/smppg?ref=$env{'form.ref'}",
	text=>"$ucgpterm: $grp_desc",
	title=>"Go to group's home page"},
	{href=>"/adm/coursegrp_portfolio?".&group_args(),
	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;
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
['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']);	'cnum','cdom','type','setroles','showversions','ref']);
my ($uname,$udom,$portfolio_root,$url,$group,$caller,$title);	my ($uname,$udom,$portfolio_root,$url,$caller,$title,$group,$grp_desc);
if ($r->uri =~ m\|^(/adm/)([^/]+)\|) {	if ($r->uri =~ m\|^(/adm/)([^/]+)\|) {
$url = $1.$2;	$url = $1.$2;
$caller = $2;	$caller = $2;
Line 1673 sub handler {	Line 1745 sub handler {
return HTTP_NOT_ACCEPTABLE;	return HTTP_NOT_ACCEPTABLE;
}	}
my $earlyout = 0;	my $earlyout = 0;
my $view_permission = &Apache::lonnet::allowed('vcg',	my $view_permission =
$env{'request.course.id'});	&Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
$group = $env{'form.group'};	$env{'form.group'} =~ s/\W//g;
$group =~ s/\W//g;	$group = $env{'form.group'};
if ($group) {	if ($group) {
($uname,$udom) = &get_name_dom($group);	($uname,$udom) = &get_name_dom();
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();
} else {	} else {
$r->print('You do not have the privileges required to access the shared files space for this group.');	$r->print('You do not have the privileges required to access the shared files space for this group.');
$earlyout = 1;	$earlyout = 1;
Line 1699 sub handler {	Line 1774 sub handler {
$earlyout = 1;	$earlyout = 1;
}	}
if ($earlyout) { return OK; }	if ($earlyout) { return OK; }
if (&Apache::lonnet::allowed('agf',$env{'request.course.id'}.'/'.$group)) {	if (&Apache::lonnet::allowed('mdg',$env{'request.course.id'})) {
$can_setacl = 1;
}
if (&Apache::lonnet::allowed('ugf',$env{'request.course.id'}.'/'.$group)) {
$can_upload = 1;
}
if (&Apache::lonnet::allowed('mgf',$env{'request.course.id'}.'/'.$group)) {
$can_modify = 1;	$can_modify = 1;
}
if (&Apache::lonnet::allowed('dgf',$env{'request.course.id'}.'/'.$group)) {
$can_delete = 1;	$can_delete = 1;
	$can_upload = 1;
	$can_setacl = 1;
	} else {
	if (&Apache::lonnet::allowed('agf',$env{'request.course.id'}.'/'.$group)) {
	$can_setacl = 1;
	}
	if (&Apache::lonnet::allowed('ugf',$env{'request.course.id'}.'/'.$group)) {
	$can_upload = 1;
	}
	if (&Apache::lonnet::allowed('mgf',$env{'request.course.id'}.'/'.$group)) {
	$can_modify = 1;
	}
	if (&Apache::lonnet::allowed('dgf',$env{'request.course.id'}.'/'.$group)) {
	$can_delete = 1;
	}
}	}
} else {	} else {
($uname,$udom) = &get_name_dom();	($uname,$udom) = &get_name_dom();
Line 1721 sub handler {	Line 1803 sub handler {
$can_setacl = 1;	$can_setacl = 1;
}	}

	my $port_path = &get_port_path();
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
Line 1746 sub handler {	Line 1829 sub handler {
&open_form($r,$url);	&open_form($r,$url);
# $r->print(&edit_meta_data($r, $env{'form.currentpath'}.$env{'form.selectfile'}));	# $r->print(&edit_meta_data($r, $env{'form.currentpath'}.$env{'form.selectfile'}));
$r->print('Edit the meta data<br />');	$r->print('Edit the meta data<br />');
&close_form($r,$url,$group);	&close_form($r,$url);
}	}
if ($env{'form.store'}) {	if ($env{'form.store'}) {
}	}
Line 1755 sub handler {	Line 1838 sub handler {
if ($can_upload) {	if ($can_upload) {
&upload($r,$url,$group);	&upload($r,$url,$group);
} else {	} else {
&missing_priv($r,$url,'upload',$group),	&missing_priv($r,$url,'upload');
}	}
} elsif ($env{'form.action'} eq 'delete' && $env{'form.confirmed'}) {	} elsif ($env{'form.action'} eq 'delete' && $env{'form.confirmed'}) {
if ($can_delete) {	if ($can_delete) {
&delete_confirmed($r,$url,$group);	&delete_confirmed($r,$url);
} else {	} else {
&missing_priv($r,$url,'delete',$group);	&missing_priv($r,$url,'delete');
}	}
} elsif ($env{'form.action'} eq 'delete') {	} elsif ($env{'form.action'} eq 'delete') {
if ($can_delete) {	if ($can_delete) {
&delete($r,$url,$group);	&delete($r,$url);
} else {	} else {
&missing_priv($r,$url,'delete',$group);	&missing_priv($r,$url,'delete');
}	}
} elsif ($env{'form.action'} eq 'deletedir' && $env{'form.confirmed'}) {	} elsif ($env{'form.action'} eq 'deletedir' && $env{'form.confirmed'}) {
if ($can_delete) {	if ($can_delete) {
&delete_dir_confirmed($r,$url,$group);	&delete_dir_confirmed($r,$url);
} else {	} else {
&missing_priv($r,$url,'delete',$group);	&missing_priv($r,$url,'delete');
}	}
} elsif ($env{'form.action'} eq 'deletedir') {	} elsif ($env{'form.action'} eq 'deletedir') {
if ($can_delete) {	if ($can_delete) {
&delete_dir($r,$url,$group);	&delete_dir($r,$url);
} else {	} else {
&missing_priv($r,$url,'delete',$group);	&missing_priv($r,$url,'delete');
}	}
} elsif ($env{'form.action'} eq 'rename' && $env{'form.confirmed'}) {	} elsif ($env{'form.action'} eq 'rename' && $env{'form.confirmed'}) {
if ($can_modify) {	if ($can_modify) {
&rename_confirmed($r,$url,$group);	&rename_confirmed($r,$url);
} else {	} else {
&missing_priv($r,$url,'rename',$group);	&missing_priv($r,$url,'rename');
}	}
} elsif ($env{'form.rename'}) {	} elsif ($env{'form.rename'}) {
$env{'form.selectfile'} = $env{'form.rename'};	$env{'form.selectfile'} = $env{'form.rename'};
$env{'form.action'} = 'rename';	$env{'form.action'} = 'rename';
if ($can_modify) {	if ($can_modify) {
&rename($r,$url,$group);	&rename($r,$url);
} else {	} else {
&missing_priv($r,$url,'rename',$group);	&missing_priv($r,$url,'rename');
}	}
} elsif ($env{'form.access'}) {	} elsif ($env{'form.access'}) {
$env{'form.selectfile'} = $env{'form.access'};	$env{'form.selectfile'} = $env{'form.access'};
$env{'form.action'} = 'chgaccess';	$env{'form.action'} = 'chgaccess';
&display_access($r,$url,$group,$can_setacl);	&display_access($r,$url,$group,$can_setacl,$port_path);
} elsif ($env{'form.action'} eq 'chgaccess') {	} elsif ($env{'form.action'} eq 'chgaccess') {
if ($can_setacl) {	if ($can_setacl) {
&update_access($r,$url,$group);	&update_access($r,$url,$group,$port_path);
} else {	} else {
&missing_priv($r,$url,'setacl',$group);	&missing_priv($r,$url,'setacl');
}	}
} elsif ($env{'form.action'} eq 'rolepicker') {	} elsif ($env{'form.action'} eq 'rolepicker') {
if ($can_setacl) {	if ($can_setacl) {
&role_options_window($r);	&role_options_window($r);
} else {	} else {
&missing_priv($r,$url,'setacl',$group);	&missing_priv($r,$url,'setacl');
}	}
} elsif ($env{'form.createdir'}) {	} elsif ($env{'form.createdir'}) {
if ($can_upload) {	if ($can_upload) {
&createdir($r,$url,$group);	&createdir($r,$url);
} else {	} else {
&missing_priv($r,$url,'upload',$group);	&missing_priv($r,$url,'upload');
}	}
} elsif ($env{'form.lockinfo'}) {	} elsif ($env{'form.lockinfo'}) {
&lock_info($r,$url,$group);	&lock_info($r,$url,$group);
Line 1824 sub handler {	Line 1907 sub handler {
if ($env{'form.currentpath'}) {	if ($env{'form.currentpath'}) {
$current_path = $env{'form.currentpath'};	$current_path = $env{'form.currentpath'};
}	}
my @dir_list=&get_dir_list($portfolio_root,$group);	if ($caller eq 'coursegrp_portfolio') {
	&Apache::lonhtmlcommon::clear_breadcrumbs();
	$r->print(&coursegrp_portfolio_header($udom,$uname,$grp_desc));
	}
	my @dir_list=&get_dir_list($portfolio_root);
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:
# 1) never been here, so directory structure not created	# 1) never been here, so directory structure not created
# 2) back-button navigation after deleting a directory	# 2) back-button navigation after deleting a directory
if ($current_path eq '/'){	if ($current_path eq '/'){
&Apache::lonnet::mkdiruserfile($uname,$udom,	&Apache::lonnet::mkdiruserfile($uname,$udom,
&get_port_path($group));	&get_port_path());
} else {	} else {
# some directory that snuck in get rid of the directory	# some directory that snuck in get rid of the directory
# from the recent pulldown, just in case	# from the recent pulldown, just in case
Line 1845 sub handler {	Line 1932 sub handler {
}	}
# need to know if directory is empty so it can be removed if desired	# need to know if directory is empty so it can be removed if desired
my $is_empty=(@dir_list == 2);	my $is_empty=(@dir_list == 2);
&display_common($r,$url,$current_path,$is_empty,\@dir_list,$group,	&display_common($r,$url,$current_path,$is_empty,\@dir_list,
$can_upload);	$can_upload);
&display_directory($r,$url,$current_path,$is_empty,\@dir_list,$group,	&display_directory($r,$url,$current_path,$is_empty,\@dir_list,$group,
$can_upload,$can_modify,$can_delete,$can_setacl);	$can_upload,$can_modify,$can_delete,$can_setacl);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());

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

500 Internal Server Error

Internal Server Error

The server encountered an internal error or misconfiguration and was unable to complete your request.

Please contact the server administrator at root@localhost to inform them of the time this error occurred, and the actions you performed just before this error.

More information about this error may be available in the server error log.

Removed from v.1.122
changed lines
	Added in v.1.142