Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/portfolio.pm between versions 1.178 and 1.222

version 1.178, 2007/03/20 15:36:14	version 1.222, 2010/03/26 23:08:41
Line 38 use Apache::lonnet;	Line 38 use Apache::lonnet;
use Apache::longroup;	use Apache::longroup;
use Apache::lonhtmlcommon;	use Apache::lonhtmlcommon;
use HTML::Entities;	use HTML::Entities;
use LONCAPA;	use LONCAPA qw(:DEFAULT :match);

sub group_args {	sub group_args {
my $output;	my $output;
Line 80 sub make_anchor {	Line 80 sub make_anchor {

my $dirptr=16384;	my $dirptr=16384;
sub display_common {	sub display_common {
my ($r,$url,$current_path,$is_empty,$dir_list,$can_upload)=@_;	my ($r,$url,$current_path,$is_empty,$dir_list,$can_upload,$group)=@_;
my $namespace = &get_namespace();	my $namespace = &get_namespace();
my $port_path = &get_port_path();	my $port_path = &get_port_path();
if ($can_upload) {	if ($can_upload) {
my $groupitem = &group_form_data();	my $groupitem = &group_form_data();

my $iconpath= $r->dir_config('lonIconsURL') . "/";	my $iconpath= $r->dir_config('lonIconsURL') . "/";
my %text=&Apache::lonlocal::texthash(	my %lt=&Apache::lonlocal::texthash(
'upload' => 'Upload',	'upload' => 'Upload',
'upload_label' =>	'upload_label' => 'Upload file to current directory',
'Upload file to current directory:',	'createdir' => 'Create Subdirectory',
'createdir' => 'Create Subdirectory',	'createdir_label' => 'Create subdirectory in current directory',
'createdir_label' =>	'parse' => 'Upload embedded images/multimedia/css/linked files if HTML file',
'Create subdirectory in current directory:');	);
my $escuri = &HTML::Entities::encode($r->uri,'&<>"');	my $escuri = &HTML::Entities::encode($r->uri,'&<>"');
my $help_fileupload = &Apache::loncommon::help_open_topic('Portfolio AddFiles');	my $help_fileupload = &Apache::loncommon::help_open_topic('Portfolio AddFiles');
my $help_createdir = &Apache::loncommon::help_open_topic('Portfolio CreateDirectory');	my $help_createdir = &Apache::loncommon::help_open_topic('Portfolio CreateDirectory');
	my $help_portfolio = &Apache::loncommon::help_open_topic('Portfolio About', &mt('Help on the portfolio'));
# FIXME: This line should be deleted once Portfolio uses breadcrumbs	$r->print(&display_usage($group));
$r->print(&Apache::loncommon::help_open_topic('Portfolio About', 'Help on the portfolio'));	my $parse_check;
	if (!&suppress_embed_prompt()) {
	$parse_check = <<"END";
	<br />
	<span class="LC_nobreak">
	<label>
	<input type="checkbox" name="parserflag" checked="checked" />
	$lt{'parse'}
	</label>
	</span>
	END
	}

	$r->print('<div>'.$help_portfolio);
	# Upload File
	$r->print('<div class="LC_left_float">'
	.'<form method="post" enctype="multipart/form-data" action="'.$escuri.'">'
	.'<fieldset>'
	.'<legend>'.$lt{'upload_label'}.'</legend>'
	.$groupitem
	.'<input name="uploaddoc" type="file" />'
	.'<input type="hidden" name="currentpath" value="'.$current_path.'" />'
	.'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'
	.'<input type="hidden" name="fieldname" value="'.$env{"form.fieldname"}.'" />'
	.'<input type="hidden" name="mode" value="'.$env{"form.mode"}.'" />'
	.'<input type="submit" name="storeupl" value="'.$lt{'upload'}.'" />'
	.$help_fileupload
	.$parse_check
	.'</fieldset>'
	.'</form>'
	.'</div>'
	);
	# Create Subdirectory
	$r->print('<div class="LC_left_float">'
	.'<form method="post" action="'.$escuri.'">'
	.'<fieldset>'
	.'<legend>'.$lt{'createdir_label'}.'</legend>'
	.'<input name="newdir" type="text" />'.$groupitem
	.'<input type="hidden" name="currentpath" value="'.$current_path.'" />'
	.'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'
	.'<input type="hidden" name="fieldname" value="'.$env{"form.fieldname"}.'" />'
	.'<input type="hidden" name="mode" value="'.$env{"form.mode"}.'" />'
	.'<input type="submit" name="createdir" value="'.$lt{'createdir'}.'" />'
	.$help_createdir
	.'</fieldset>'
	.'</form>'
	.'</div>'
	);
	$r->print('</div>');
	} # end "if can_upload"

$r->print(<<"TABLE");
<table id="LC_portfolio_actions">
<tr id="LC_portfolio_upload">
<td class="LC_label">
$text{'upload_label'}
</td>
<td class="LC_value">
<form method="post" enctype="multipart/form-data" action="$escuri">
$groupitem
<input name="uploaddoc" type="file" />
<input type="hidden" name="currentpath" value="$current_path" />
<input type="hidden" name="action" value="$env{"form.action"}" />
<input type="hidden" name="fieldname" value="$env{"form.fieldname"}" />
<input type="hidden" name="mode" value="$env{"form.mode"}" />
<input type="submit" name="storeupl" value="$text{'upload'}" />$help_fileupload
</form>
</td>
</tr>
<tr id="LC_portfolio_createdir">
<td class="LC_label">
$text{'createdir_label'}
</td>
<td class="LC_value">
<form method="post" action="$escuri">
<input name="newdir" type="input" />$groupitem
<input type="hidden" name="currentpath" value="$current_path" />
<input type="hidden" name="action" value="$env{"form.action"}" />
<input type="hidden" name="fieldname" value="$env{"form.fieldname"}" />
<input type="hidden" name="mode" value="$env{"form.mode"}" />
<input type="submit" name="createdir" value="$text{'createdir'}" />$help_createdir
</form>
</td>
</tr>
</table>
TABLE
}
my @tree = split (/\//,$current_path);	my @tree = split (/\//,$current_path);
my %anchor_fields = (	my %anchor_fields = (
'selectfile' => $port_path,	'selectfile' => $port_path,
Line 145 TABLE	Line 158 TABLE
'fieldname' => $env{"form.fieldname"},	'fieldname' => $env{"form.fieldname"},
'continue' => $env{"form.continue"}	'continue' => $env{"form.continue"}
);	);
	$r->print('<br clear="all" />');
$r->print('<span class="LC_current_location">'.&make_anchor($url,\%anchor_fields,$port_path).'/');	$r->print('<span class="LC_current_location">'.&make_anchor($url,\%anchor_fields,$port_path).'/');
if (@tree > 1){	if (@tree > 1){
my $newCurrentPath = '/';	my $newCurrentPath = '/';
Line 170 TABLE	Line 184 TABLE
$r->print("</form>");	$r->print("</form>");
}	}

	sub display_usage {
	my ($group) = @_;
	my $disk_quota = &get_quota($group);
	my $getpropath = 1;
	my $portfolio_root = &get_portfolio_root();
	my ($uname,$udom) = &get_name_dom($group);
	my $current_disk_usage =
	&Apache::lonnet::diskusage($udom,$uname,$portfolio_root,$getpropath);
	my $usage = $current_disk_usage/1000;
	my $quota = $disk_quota/1000;
	my $percent;
	if ($disk_quota == 0) {
	$percent = 100.0;
	} else {
	$percent = 100*($current_disk_usage/$disk_quota);
	}
	$usage = sprintf("%.2f",$usage);
	$quota = sprintf("%.2f",$quota);
	$percent = sprintf("%.0f",$percent);
	my ($color,$cssclass);
	if ($percent <= 60) {
	$color = '#00A000';
	} elsif ($percent > 60 && $percent < 90) {
	$color = '#FFD300';
	$cssclass = 'class="LC_warning"';
	} elsif( $percent >= 90) {
	$color = '#FF0000';
	$cssclass = 'class="LC_error"';
	}
	my $prog_width = $percent;
	if ($prog_width > 100) {
	$prog_width = 100;
	}
	my $disk_meter = '
	<div id="meter1" align="left" '.$cssclass.'>'.&mt('Currently using [_1] of the [_2] available.',$usage.' MB <span style="font-weight:bold;">('.$percent.'%)</span>',$quota.' MB')."\n".
	' <div id="meter2" style="display:block; margin-top:5px; margin-bottom:5px; margin-left:0px; margin-right:0px; width:400px; border:1px solid #000000; height:10px;">'."\n".
	' <div id="meter3" style="display:block; background-color:'.$color.'; width:'.$prog_width.'%; height:10px; color:#000000; margin:0px;"></div>'."\n".
	' </div>'."\n".
	' </div>';
	return &Apache::loncommon::head_subbox($disk_meter);
	}

sub display_directory_line {	sub display_directory_line {
my ($r,$select_mode, $filename, $mtime, $size, $css_class,	my ($r,$select_mode, $filename, $mtime, $size, $css_class,
$line, $access_controls, $curr_access, $now, $version_flag,	$line, $access_controls, $curr_access, $now, $version_flag,
$href_location, $url, $current_path, $access_admin_text, $versions)=@_;	$href_location, $url, $current_path, $access_admin_text, $versions)=@_;

my $fullpath = &prepend_group($current_path.$filename);	my $fullpath = &prepend_group($current_path.$filename);
$r->print('<tr class="'.$css_class.'">');	$r->print(&Apache::loncommon::start_data_table_row());
$r->print($line); # contains first two cells of table	$r->print($line); # contains first two cells of table
my $lock_info;	my $lock_info;
if ($version_flag) { # versioned can't be versioned, so TRUE when root file	if ($version_flag) { # versioned can't be versioned, so TRUE when root file
$r->print('<td><img alt="" src="'.&Apache::loncommon::icon($filename).'" /></td>');	$r->print('<td><img alt="" src="'.&Apache::loncommon::icon($filename).'" class="LC_fileicon" /></td>');
$r->print('<td>'.$version_flag.'</td>');	$r->print('<td>'.$version_flag.'</td>');
} else { # this is a graded or handed back file	} else { # this is a graded or handed back file
my ($user,$domain) = &get_name_dom();	my ($user,$domain) = &get_name_dom($env{'form.group'});
my $permissions_hash = &Apache::lonnet::get_portfile_permissions($domain,$user);	my $permissions_hash = &Apache::lonnet::get_portfile_permissions($domain,$user);
if (defined($$permissions_hash{$fullpath})) {	if (defined($$permissions_hash{$fullpath})) {
foreach my $array_item (@{$$permissions_hash{$fullpath}}) {	foreach my $array_item (@{$$permissions_hash{$fullpath}}) {
Line 212 sub display_directory_line {	Line 268 sub display_directory_line {
$r->print('<td>'.$size.'</td>');	$r->print('<td>'.$size.'</td>');
$r->print('<td>'.&Apache::lonlocal::locallocaltime($mtime).'</td>');	$r->print('<td>'.&Apache::lonlocal::locallocaltime($mtime).'</td>');
if ($select_mode ne 'true') {	if ($select_mode ne 'true') {
$r->print('<td><span style="white-space: nowrap">'.	$r->print('<td class="'.$css_class.'">  </td>'); # Display status
&mt($curr_access).'   ');	$r->print('<td><span class="LC_nobreak">'
	.&mt($curr_access).'   '
	);
my %anchor_fields = (	my %anchor_fields = (
'access' => $filename,	'access' => $filename,
'currentpath' => $current_path	'currentpath' => $current_path
);	);
$r->print(&make_anchor($url, \%anchor_fields, $access_admin_text).'</span></td>');	$r->print(&make_anchor($url, \%anchor_fields, $access_admin_text).'</span></td>');
	} else {
	$r->print('<td class="'.$css_class.'">  </td>'); # Display status
}	}
$r->print('</tr>'.$/);	$r->print(&Apache::loncommon::end_data_table_row().$/);
}	}

sub display_directory {	sub display_directory {
Line 231 sub display_directory {	Line 291 sub display_directory {
my $select_mode;	my $select_mode;
my $checked_files;	my $checked_files;
my $port_path = &get_port_path();	my $port_path = &get_port_path();
my ($uname,$udom) = &get_name_dom();	my ($uname,$udom) = &get_name_dom($group);
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');
Line 252 sub display_directory {	Line 312 sub display_directory {
$display_out = '<form method="post" action="'.$url.'">'.	$display_out = '<form method="post" action="'.$url.'">'.
&group_form_data().	&group_form_data().
'<input type="hidden" name="action" value="deletedir" />'.	'<input type="hidden" name="action" value="deletedir" />'.
	'<p>'.
'<input type="submit" name="deletedir" value="'.&mt("Delete Directory").'" />'.	'<input type="submit" name="deletedir" value="'.&mt("Delete Directory").'" />'.
	'</p>'.
'<input type="hidden" name="selectfile" value="" />'.	'<input type="hidden" name="selectfile" value="" />'.
'<input type="hidden" name="currentpath" value="'.$current_path.'" />'.	'<input type="hidden" name="currentpath" value="'.$current_path.'" />'.
'</form>';	'</form>';
Line 262 sub display_directory {	Line 324 sub display_directory {
}	}
if ($select_mode eq 'true') {	if ($select_mode eq 'true') {
$r->print('<form method="post" name="checkselect" action="'.$url.'">');	$r->print('<form method="post" name="checkselect" action="'.$url.'">');
$r->print('<table id="LC_browser">'.	$r->print(&Apache::loncommon::start_data_table()
'<tr><th>Select</th><th> </th><th> </th><th>Name</th><th>Size</th><th>Last Modified</th></tr>');	.&Apache::loncommon::start_data_table_header_row()
	.'<th>'.&mt('Select').'</th>'
	.'<th> </th><th> </th>'
	.'<th>'.&mt('Name').'</th>'
	.'<th>'.&mt('Size').'</th>'
	.'<th>'.&mt('Last Modified').'</th>'
	.'<th> </th>'
	.&Apache::loncommon::end_data_table_header_row()
	);
} else {	} else {
$r->print('<form method="post" action="'.$url.'">');	$r->print('<form method="post" action="'.$url.'">');
$r->print(&Apache::loncommon::help_open_topic('Portfolio FileList',	$r->print(&Apache::loncommon::help_open_topic('Portfolio FileList',
'Using the portfolio file list'));	&mt('Using the portfolio file list')));
$r->print('<table id="LC_browser">'.	$r->print(&Apache::loncommon::start_data_table()
'<tr><th colspan="2">Actions'.	.&Apache::loncommon::start_data_table_header_row()
&Apache::loncommon::help_open_topic('Portfolio FileAction').	.'<th colspan="2">'.&mt('Actions'). &Apache::loncommon::help_open_topic('Portfolio FileAction').'</th>'
'</th><th> </th><th> </th><th>Name'.	.'<th> </th><th> </th>'
&Apache::loncommon::help_open_topic('Portfolio OpenFile').	.'<th>'.&mt('Name').&Apache::loncommon::help_open_topic('Portfolio OpenFile').'</th>'
'</th><th>Size</th><th>Last Modified</th><th>Current Access Status'.	.'<th>'.&mt('Size').'</th>'
&Apache::loncommon::help_open_topic('Portfolio ShareFile').	.'<th>'.&mt('Last Modified').'</th>'
'</th></tr>');	.'<th> </th>'
	.'<th>'.&mt('Current Access Status').&Apache::loncommon::help_open_topic('Portfolio ShareFile').'</th>'
	.&Apache::loncommon::end_data_table_header_row());
}	}
$r->print("\n".&group_form_data()."\n");	$r->print("\n".&group_form_data()."\n");

Line 289 sub display_directory {	Line 361 sub display_directory {
my ($bfile)=split('&',$b,2);	my ($bfile)=split('&',$b,2);
return (lc($afile) cmp lc($bfile));	return (lc($afile) cmp lc($bfile));
} (@$dir_list)) {	} (@$dir_list)) {
#$strip holds directory/file name
#$dom
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$dir_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);
Line 335 sub display_directory {	Line 405 sub display_directory {
$version_flag = ' ';	$version_flag = ' ';
}	}
if ($dirptr&$testdir) {	if ($dirptr&$testdir) {
my $colspan='colspan="2"';	my $colspan_folder='';
	my $colspan_fill='';
if ($select_mode eq 'true'){	if ($select_mode eq 'true'){
undef($colspan);	$colspan_fill=' colspan="3"';
	} else {
	$colspan_folder=' colspan="2"';
	$colspan_fill=' colspan="4"';
}	}
$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">');
$r->print('<td>Go to ...</td>');	$r->print('<td'.$colspan_folder.'><img alt="'.&mt('closed folder').'" src="'.$iconpath.'navmap.folder.closed.gif" class="LC_fileicon" /></td>'
	.'<td>'.&mt('Go to ...').'</td>');
my %anchor_fields = (	my %anchor_fields = (
'selectfile' => $filename.'/',	'selectfile' => $filename.'/',
'currentpath' => $current_path.$filename.'/',	'currentpath' => $current_path.$filename.'/',
Line 348 sub display_directory {	Line 423 sub display_directory {
'fieldname' => $env{"form.fieldname"},	'fieldname' => $env{"form.fieldname"},
'continue' => $env{"form.continue"}	'continue' => $env{"form.continue"}
);	);
$r->print('<td>'.$version_flag.'</td><td>'.&make_anchor($url,\%anchor_fields,$filename.'/').'</td>');	$r->print('<td>'.$version_flag.'</td>'
	.'<td>'.&make_anchor($url,\%anchor_fields,$filename.'/').'</td>');
	$r->print('<td'.$colspan_fill.'> </td>');
$r->print('</tr>');	$r->print('</tr>');
} else {	} else {
my $css_class = 'LC_browser_file';	my $css_class = 'LC_browser_file';
Line 356 sub display_directory {	Line 433 sub display_directory {
if ($select_mode eq 'true') {	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="checked" ';
}	}
$line.=' /></td>';	$line.=' /></td>';
} else {	} else {
Line 364 sub display_directory {	Line 441 sub display_directory {
my %anchor_fields = (	my %anchor_fields = (
'lockinfo' => $fullpath	'lockinfo' => $fullpath
);	);
$line.='<td colspan="2">'.&make_anchor($url,\%anchor_fields,'Locked').'</td>';	$line.='<td colspan="2">'.&make_anchor($url,\%anchor_fields,&mt('Locked')).'</td>';
$css_class= 'LC_browser_file_locked';	$css_class= 'LC_browser_file_locked';
} else {	} else {
if (!$can_modify) {	if (!$can_modify) {
Line 376 sub display_directory {	Line 453 sub display_directory {
$line .= '<input type="checkbox" name="selectfile" value="'.$filename.'" />';	$line .= '<input type="checkbox" name="selectfile" value="'.$filename.'" />';
}	}
if ($can_modify) {	if ($can_modify) {
my $cat='<img class="LC_icon" alt="'.&mt('Catalog Information').	my $cat='<img class="LC_icon" alt="'.&mt('Metadata').'" title="'.&mt('Metadata').'" src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.png').'" />';
'" src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').'" />';
my %anchor_fields = (	my %anchor_fields = (
'rename' => $filename,	'rename' => $filename,
currentpath => $current_path	currentpath => $current_path
);	);
$line .= &make_anchor($url,\%anchor_fields,'Rename');	$line .= &make_anchor($url,\%anchor_fields,&mt('Rename'));
$line .= '</td><td>'.&make_anchor($href_edit_location.$filename.'.meta',\%anchor_fields,$cat);	$line .= '</td><td>'.&make_anchor($href_edit_location.$filename.'.meta',\%anchor_fields,$cat);
# '<a href="'.$href_edit_location.$filename.'.meta">'.$cat.'</a>';	# '<a href="'.$href_edit_location.$filename.'.meta">'.$cat.'</a>';
}	}
Line 439 sub display_directory {	Line 515 sub display_directory {
}	}
}	}
if ($select_mode eq 'true') {	if ($select_mode eq 'true') {
$r->print('</table>	$r->print(&Apache::loncommon::end_data_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 />	<p>
<input type="button" name="doit" onClick= "finishSelect();" value="Select checked files, and close window" />	<input type="submit" name="submit" value="'.&mt('Select checked files, and continue selecting').'" /><br />
	<input type="button" name="doit" onClick="finishSelect();" value="'.&mt('Select checked files, and close window').'" />
	</p>
<input type="hidden" name="currentpath" value="'.$current_path.'" />	<input type="hidden" name="currentpath" value="'.$current_path.'" />
</form>');	</form>');
} else {	} else {
$r->print('</table>');	$r->print(&Apache::loncommon::end_data_table());
if ($can_delete) {	if ($can_delete) {
$r->print('	$r->print('
<input type="submit" name="doit" value="Delete Checked Files" />'.	<p>
	<input type="submit" name="doit" value="'.&mt('Delete Selected').'" />'.
&Apache::loncommon::help_open_topic('Portfolio DeleteFile').'	&Apache::loncommon::help_open_topic('Portfolio DeleteFile').'
	</p>
<input type="hidden" name="action" value="delete" />	<input type="hidden" name="action" value="delete" />
<input type="hidden" name="currentpath" value="'.$current_path.'" />	<input type="hidden" name="currentpath" value="'.$current_path.'" />
</form>'	</form>'
Line 532 sub done {	Line 612 sub done {
}	}

sub delete {	sub delete {
my ($r,$url)=@_;	my ($r,$url,$group)=@_;
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);	$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();	my ($uname,$udom) = &get_name_dom($group);
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(&mt('The file is locked and cannot be deleted.').'<br />');
$r->print(&done('Back',$url));	$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 [_1]?',&display_file(undef,\@files)).'</p>');
&close_form($r,$url);	&close_form($r,$url);
} else {	} else {
$r->print("No file was checked to delete.<br />");	$r->print("No file was checked to delete.<br />");
Line 557 sub delete_confirmed {	Line 637 sub delete_confirmed {
my ($r,$url,$group)=@_;	my ($r,$url,$group)=@_;
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();	my ($uname,$udom) = &get_name_dom($group);
my $port_path = &get_port_path();	my $port_path = &get_port_path();
my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,	my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,
$uname);	$uname);
Line 566 sub delete_confirmed {	Line 646 sub delete_confirmed {
$env{'form.currentpath'}.	$env{'form.currentpath'}.
$delete_file);	$delete_file);
if ($result ne 'ok') {	if ($result ne 'ok') {
$r->print('<span class="LC_error">'.	$r->print('<span class="LC_error">'
&mt('An error occured ([_1]) while trying to delete	.&mt('An error occurred ([_1]) while trying to delete [_2].'
[_2].',$result,&display_file(undef, $delete_file)).	,$result,&display_file(undef, $delete_file))
'</span><br /><br />');	.'</span><br /><br />');
} else {	} else {
$r->print(&mt('File: [_1] deleted.',	$r->print(&mt('File: [_1] deleted.',
&display_file(undef,$delete_file)));	&display_file(undef,$delete_file)));
Line 588 sub delete_confirmed {	Line 668 sub delete_confirmed {
&Apache::lonnet::modify_access_controls($file_name,\%changes,	&Apache::lonnet::modify_access_controls($file_name,\%changes,
$udom,$uname);	$udom,$uname);
if ($outcome ne 'ok') {	if ($outcome ne 'ok') {
$r->print('<br />'.&mt("An error occured ([_1]) while ".	$r->print('<br />'.&mt("An error occurred ([_1]) while ".
"trying to delete access controls for the file.",$outcome).	"trying to delete access controls for the file.",$outcome).
'</span><br /><br />');	'</span><br /><br />');
} else {	} else {
Line 596 sub delete_confirmed {	Line 676 sub delete_confirmed {
$r->print('<br />'.&mt('Access controls also deleted for the file.').'<br /><br />');	$r->print('<br />'.&mt('Access controls also deleted for the file.').'<br /><br />');
} else {	} else {
$r->print('<span class="LC_error">'.'<br />'.	$r->print('<span class="LC_error">'.'<br />'.
&mt("An error occured ([_1]) while ".	&mt("An error occurred ([_1]) while ".
"trying to delete access controls for the file.",$deloutcome).	"trying to delete access controls for the file.",$deloutcome).
'</span><br /><br />');	'</span><br /><br />');
}	}
Line 611 sub delete_confirmed {	Line 691 sub delete_confirmed {
sub delete_dir {	sub delete_dir {
my ($r,$url)=@_;	my ($r,$url)=@_;
&open_form($r,$url);	&open_form($r,$url);
$r->print('<p>'.&mt('Delete').' '.&display_file().'?</p>');	$r->print('<p>'.&mt('Delete [_1]?',&display_file()).'</p>');
&close_form($r,$url);	&close_form($r,$url);
}	}

sub delete_dir_confirmed {	sub delete_dir_confirmed {
my ($r,$url)=@_;	my ($r,$url,$group)=@_;
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();	my ($uname,$udom) = &get_name_dom($group);
my $namespace = &get_namespace();	my $namespace = &get_namespace();
my $port_path = &get_port_path();	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);

if ($result ne 'ok') {	if ($result ne 'ok') {
$r->print('<span class="LC_error"> An error occured (dir) ('.$result.	$r->print('<span class="LC_error">'
') while trying to delete '.$directory_name.'</span><br />');	.&mt('An error occurred (dir) ([_1]) while trying to delete [_2].'
	,$result,$directory_name)
	.'</span><br />');
} else {	} else {
# now remove from recent	# now remove from recent
# $r->print('<br /> removing '.$directory_name.'<br /');
&Apache::lonhtmlcommon::remove_recent($namespace,[$directory_name.'/']);	&Apache::lonhtmlcommon::remove_recent($namespace,[$directory_name.'/']);
my @dirs = split m!/!, $directory_name;	my @dirs = split m!/!, $directory_name;

# $directory_name =~ m/^(\/\/)(\/.)$/;
$directory_name='/';	$directory_name='/';
for (my $i=1; $i < (@dirs - 1); $i ++){	for (my $i=1; $i < (@dirs - 1); $i ++){
$directory_name .= $dirs[$i].'/';	$directory_name .= $dirs[$i].'/';
Line 645 sub delete_dir_confirmed {	Line 724 sub delete_dir_confirmed {
}	}

sub rename {	sub rename {
my ($r,$url)=@_;	my ($r,$url,$group)=@_;
my $file_name = $env{'form.currentpath'}.$env{'form.rename'};	my $file_name = $env{'form.currentpath'}.$env{'form.rename'};
my ($uname,$udom) = &get_name_dom();	my ($uname,$udom) = &get_name_dom($group);
$file_name = &prepend_group($file_name);	$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));	$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 [_1] to [_2]?', &display_file()
<input name="filenewname" type="input" size="50" />?</p>');	, '<input name="filenewname" type="text" size="50" />').'</p>');
&close_form($r,$url);	&close_form($r,$url);
}	}
}	}
Line 663 sub rename {	Line 742 sub rename {
sub rename_confirmed {	sub rename_confirmed {
my ($r,$url,$group)=@_;	my ($r,$url,$group)=@_;
my $filenewname=&Apache::lonnet::clean_filename($env{'form.filenewname'});	my $filenewname=&Apache::lonnet::clean_filename($env{'form.filenewname'});
my ($uname,$udom) = &get_name_dom();	my ($uname,$udom) = &get_name_dom($group);
my $port_path = &get_port_path();	my $port_path = &get_port_path();
if ($filenewname eq '') {	if ($filenewname eq '') {
$r->print('<span class="LC_error">'.	$r->print('<span class="LC_error">'.
Line 681 sub rename_confirmed {	Line 760 sub rename_confirmed {
$chg_access = &access_for_renamed($filenewname,$group,$udom,$uname);	$chg_access = &access_for_renamed($filenewname,$group,$udom,$uname);
} else {	} else {
$r->print('<span class="LC_error">'.	$r->print('<span class="LC_error">'.
&mt('An error occured ([_1]) while trying to rename [_2]'	&mt('An error occurred ([_1]) while trying to rename [_2] to [_3].'
.' to [_3]',$result,&display_file(),	,$result,&display_file(),&display_file('',$filenewname))
&display_file('',$filenewname)).'</span><br />');	.'</span><br />');
return;	return;
}	}
if ($filenewname ne $env{'form.filenewname'}) {	if ($filenewname ne $env{'form.filenewname'}) {
Line 718 sub access_for_renamed {	Line 797 sub access_for_renamed {
&Apache::lonnet::modify_access_controls($oldfile,\%change_old,	&Apache::lonnet::modify_access_controls($oldfile,\%change_old,
$udom,$uname);	$udom,$uname);
if ($outcome ne 'ok') {	if ($outcome ne 'ok') {
$chg_text ='<br /><br />'.&mt("An error occured ([_1]) while ".	$chg_text ='<br /><br />'.&mt("An error occurred ([_1]) while ".
"trying to delete access control records for the old name.",$outcome).	"trying to delete access control records for the old name.",$outcome).
'</span><br />';	'</span><br />';
} else {	} else {
if ($deloutcome ne 'ok') {	if ($deloutcome ne 'ok') {
$chg_text = '<br /><br /><span class="LC_error"><br />'.	$chg_text = '<br /><br /><span class="LC_error"><br />'.
&mt("An error occured ([_1]) while ".	&mt("An error occurred ([_1]) while ".
"trying to delete access control records for the old name.",$deloutcome).	"trying to delete access control records for the old name.",$deloutcome).
'</span><br />';	'</span><br />';
}	}
Line 734 sub access_for_renamed {	Line 813 sub access_for_renamed {
$udom,$uname);	$udom,$uname);
if ($outcome ne 'ok') {	if ($outcome ne 'ok') {
$chg_text .= '<br /><br />'.	$chg_text .= '<br /><br />'.
&mt("An error occured ([_1]) while ".	&mt("An error occurred ([_1]) while ".
"trying to update access control records for the new name.",$outcome).	"trying to update access control records for the new name.",$outcome).
'</span><br />';	'</span><br />';
}	}
Line 747 sub access_for_renamed {	Line 826 sub access_for_renamed {

sub display_access {	sub display_access {
my ($r,$url,$group,$can_setacl,$port_path,$action) = @_;	my ($r,$url,$group,$can_setacl,$port_path,$action) = @_;
my ($uname,$udom) = &get_name_dom();	my ($uname,$udom) = &get_name_dom($group);
my $file_name = $env{'form.currentpath'}.$env{'form.access'};	my $file_name = $env{'form.currentpath'}.$env{'form.access'};
$file_name = &prepend_group($file_name);	$file_name = &prepend_group($file_name);
my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,	my $current_permissions = &Apache::lonnet::get_portfile_permissions($udom,
Line 762 sub display_access {	Line 841 sub display_access {
$info .= '</li><li>'.&mt('Passphrase-protected files do not require log-in, but will require the viewer to enter the passphrase you set.');	$info .= '</li><li>'.&mt('Passphrase-protected files do not require log-in, but will require the viewer to enter the passphrase you set.');
$info .= '</li><li>'.&explain_conditionals();	$info .= '</li><li>'.&explain_conditionals();
$info .= '</li></ul>'.	$info .= '</li></ul>'.
&mt('A listing of files viewable without log-in is available at: ')."<a href=\"/adm/$udom/$uname/aboutme/portfolio\">http://$ENV{'SERVER_NAME'}/adm/$udom/$uname/aboutme/portfolio</a>.<br />";	&mt('A listing of files viewable without log-in is available at: ')."<a href=\"/adm/$udom/$uname/aboutme/portfolio\">".&Apache::lonnet::absolute_url($ENV{'SERVER_NAME'})."/adm/$udom/$uname/aboutme/portfolio</a>.<br />";
if ($group eq '') {	if ($group eq '') {
$info .= &mt("For logged in users a 'Display file listing' link will also appear (when there are viewable files) on your personal information page:");	$info .= &mt("For logged in users a 'Display file listing' link will also appear (when there are viewable files) on your personal information page:");
} else {	} else {
$info .= &mt("For logged in users a 'Display file listing' link will also appear (when there are viewable files) on the course information page:");	$info .= &mt("For logged in users a 'Display file listing' link will also appear (when there are viewable files) on the course information page:");
}	}
$info .= "<br /><a href=\"/adm/$udom/$uname/aboutme\">http://$ENV{'SERVER_NAME'}/adm/$udom/$uname/aboutme</a><br />";	$info .= "<br /><a href=\"/adm/$udom/$uname/aboutme\">".&Apache::lonnet::absolute_url($ENV{'SERVER_NAME'})."/adm/$udom/$uname/aboutme</a><br />";
if ($group ne '') {	if ($group ne '') {
$info .= &mt("Users with privileges to edit course contents may add a course information page to a course using the 'Course Info' button in DOCS").'<br />';	$info .= &mt("Users with privileges to edit course contents may add a course information page to a course using the 'Course Info' button in DOCS").'<br />';
}	}
Line 779 sub display_access {	Line 858 sub display_access {
if ($can_setacl) {	if ($can_setacl) {
&open_form($r,$url);	&open_form($r,$url);
$r->print($header.$info);	$r->print($header.$info);
$r->print('<br />'.&Apache::loncommon::help_open_topic('Portfolio ShareFile SetAccess', 'Help on setting up share access'));	$r->print('<br />'.&Apache::loncommon::help_open_topic('Portfolio ShareFile SetAccess', &mt('Help on setting up share access')));
$r->print(&Apache::loncommon::help_open_topic('Portfolio ShareFile ChangeSetting', 'Help on changing settings'));	$r->print(&Apache::loncommon::help_open_topic('Portfolio ShareFile ChangeSetting', &mt('Help on changing settings')));
$r->print(&Apache::loncommon::help_open_topic('Portfolio ShareFile StopAccess', 'Help on removing share access'));	$r->print(&Apache::loncommon::help_open_topic('Portfolio ShareFile StopAccess', &mt('Help on removing share access')));
&access_setting_table($r,$url,$file_name,$access_controls{$file_name},	&access_setting_table($r,$url,$file_name,$access_controls{$file_name},
$action);	$action);
my $button_text = {	my $button_text = {
'continue' => &mt('Proceed'),	'continue' => &mt('Proceed'),
'cancel' => &mt('Back to directory listing'),	'cancel' => &mt('Return to directory'),
};	};
&close_form($r,$url,$button_text);	&close_form($r,$url,$button_text);
} else {	} else {
Line 801 sub display_access {	Line 880 sub display_access {
sub explain_conditionals {	sub explain_conditionals {
return	return
&mt('Conditional files are accessible to logged-in users with accounts in the LON-CAPA network, who satisfy the conditions you set.').'<br />'."\n".	&mt('Conditional files are accessible to logged-in users with accounts in the LON-CAPA network, who satisfy the conditions you set.').'<br />'."\n".
&mt('The conditions can include affiliation with a particular course, or a user account in a specific domain.').'<br />'."\n".	&mt('The conditions can include affiliation with a particular course or community, or a user account in a specific domain.').'<br />'."\n".
&mt('Alternatively access can be granted to people with specific LON-CAPA usernames and domains.');	&mt('Alternatively access can be granted to people with specific LON-CAPA usernames and domains.');
}	}

Line 814 sub view_access_settings {	Line 893 sub view_access_settings {
$todisplay{$scope}{$key} = $$access_controls{$key};	$todisplay{$scope}{$key} = $$access_controls{$key};
}	}
if ($aclcount) {	if ($aclcount) {
$r->print(&mt('<h4>Current access controls defined for this file:</h4>'));	$r->print('<h4>'.&mt('Current access controls defined for this file:').'</h4>');
$r->print(&Apache::loncommon::start_data_table());	$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_header_row());	$r->print(&Apache::loncommon::start_data_table_header_row());
$r->print('<th>'.&mt('Access control').'</th><th>'.&mt('Dates available').	$r->print('<th>'.&mt('Access control').'</th><th>'.&mt('Dates available').
Line 825 sub view_access_settings {	Line 904 sub view_access_settings {
&build_access_summary($r,$count,$chg,%todisplay);	&build_access_summary($r,$count,$chg,%todisplay);
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
} 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 %anchor_fields = (	my %anchor_fields = (
'currentpath' => $env{'form.currentpath'}	'currentpath' => $env{'form.currentpath'}
);	);
$r->print('<br />'.&make_anchor($url, \%anchor_fields, &mt('Return to directory listing')));	$r->print('<br />'.&make_anchor($url, \%anchor_fields, &mt('Return to directory')));
return;	return;
}	}

Line 842 sub build_access_summary {	Line 921 sub build_access_summary {
guest => 'Passphrase-protected',	guest => 'Passphrase-protected',
domains => 'Conditional: domain-based',	domains => 'Conditional: domain-based',
users => 'Conditional: user-based',	users => 'Conditional: user-based',
course => 'Conditional: course-based',	course => 'Conditional: course/community-based',
);	);
my @allscopes = ('public','guest','domains','users','course');	my @allscopes = ('public','guest','domains','users','course');
foreach my $scope (@allscopes) {	foreach my $scope (@allscopes) {
Line 867 sub build_access_summary {	Line 946 sub build_access_summary {
}	}
}	}
$r->print('<td>'.&mt($scope_desc{$scope}));	$r->print('<td>'.&mt($scope_desc{$scope}));
	my $crstype;
if ($scope eq 'course') {	if ($scope eq 'course') {
if ($chg ne 'delete') {	if ($chg ne 'delete') {
my $cid = $content->{'domain'}.'_'.$content->{'number'};	my $cid = $content->{'domain'}.'_'.$content->{'number'};
my %course_description = &Apache::lonnet::coursedescription($cid);	my %course_description = &Apache::lonnet::coursedescription($cid);
$r->print('<br />('.$course_description{'description'}.')');	$r->print('<br />('.$course_description{'description'}.')');
	$crstype = 'Course';
	if ($course_description{'type'} ne '') {
	$crstype = $course_description{'type'};
	}
}	}
}	}
$r->print('</td><td>'.&mt('Start: ').$showstart.	$r->print('</td><td>'.&mt('Start: ').$showstart.
Line 891 sub build_access_summary {	Line 975 sub build_access_summary {
foreach my $item ('role','access','section','group') {	foreach my $item ('role','access','section','group') {
$r->print('<td>');	$r->print('<td>');
if ($item eq 'role') {	if ($item eq 'role') {
my $ucscope = $scope;
$ucscope =~ s/^(\w)/uc($1)/e;
my $role_output;	my $role_output;
foreach my $role (@{$content->{'roles'}{$id}{$item}}) {	foreach my $role (@{$content->{'roles'}{$id}{$item}}) {
if ($role eq 'all') {	if ($role eq 'all') {
Line 900 sub build_access_summary {	Line 982 sub build_access_summary {
} elsif ($role =~ /^cr/) {	} elsif ($role =~ /^cr/) {
$role_output .= (split('/',$role))[3].',';	$role_output .= (split('/',$role))[3].',';
} else {	} else {
$role_output .= &Apache::lonnet::plaintext($role,$ucscope).',';	$role_output .= &Apache::lonnet::plaintext($role,$crstype).',';
}	}
}	}
$role_output =~ s/,$//;	$role_output =~ s/,$//;
Line 961 sub update_access {	Line 1043 sub update_access {
$r->print('<h3>'.&mt('Allowing others to retrieve file: [_1]',	$r->print('<h3>'.&mt('Allowing others to retrieve file: [_1]',
$port_path.$file_name).'</h3>'."\n");	$port_path.$file_name).'</h3>'."\n");
$file_name = &prepend_group($file_name);	$file_name = &prepend_group($file_name);
my ($uname,$udom) = &get_name_dom();	my ($uname,$udom) = &get_name_dom($group);
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 1014 sub update_access {	Line 1096 sub update_access {
} else {	} else {
if ((@{$processing{'activate'}} > 0) \|\| (@{$processing{'update'}} > 0)) {	if ((@{$processing{'activate'}} > 0) \|\| (@{$processing{'update'}} > 0)) {
$errors .= '<span class="LC_error">'.	$errors .= '<span class="LC_error">'.
&mt('A problem occurred storing access control settings: [_1]',$outcome).	&mt('A problem occurred saving access control settings: [_1]',$outcome).
'</span>';	'</span>';
}	}
}	}
Line 1026 sub update_access {	Line 1108 sub update_access {
my $totalnew = 0;	my $totalnew = 0;
my $status = 'new';	my $status = 'new';
my ($firstitem,$lastitem);	my ($firstitem,$lastitem);
foreach my $newitem ('course','domains','users') {	my @types = ('course','domains','users');
	foreach my $newitem (@types) {
$allnew += $env{'form.new'.$newitem};	$allnew += $env{'form.new'.$newitem};
}	}
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);	&open_form($r,$url);
foreach my $newitem ('course','domains','users') {	my %showtypes = &Apache::lonlocal::texthash (
	course => 'course/community',
	domains => 'domain',
	users => 'user',
	);
	foreach my $newitem (@types) {
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 [_1]-based[_2] access control for portfolio file: [_3]','<b>'.$showtypes{$newitem},'</b>','<b>'.$env{'form.currentpath'}.$env{'form.selectfile'}.'</b>').'<br /><br />');
$firstitem = $totalnew;	$firstitem = $totalnew;
$lastitem = $totalnew + $env{'form.new'.$newitem};	$lastitem = $totalnew + $env{'form.new'.$newitem};
$totalnew = $lastitem;	$totalnew = $lastitem;
Line 1055 sub update_access {	Line 1143 sub update_access {
);	);
$r->print('<br />'.&make_anchor($url, \%anchor_fields, &mt('Display all access settings for this file')));	$r->print('<br />'.&make_anchor($url, \%anchor_fields, &mt('Display all access settings for this file')));
delete $anchor_fields{'access'};	delete $anchor_fields{'access'};
$r->print('     '.&make_anchor($url,\%anchor_fields,&mt('Return to directory listing')));	$r->print('     '.&make_anchor($url,\%anchor_fields,&mt('Return to directory')));
}	}
return;	return;
}	}
Line 1203 sub access_setting_table {	Line 1291 sub access_setting_table {
sub standard_settings {	sub standard_settings {
my ($r,$now,$then,$url,$filename,$acl_count,$start,$end,$public,$publicnum,	my ($r,$now,$then,$url,$filename,$acl_count,$start,$end,$public,$publicnum,
$publictext,$guest,$guestnum,$guesttext,$access_controls,%conditionals)=@_;	$publictext,$guest,$guestnum,$guesttext,$access_controls,%conditionals)=@_;
$r->print('<h3>'.&mt('Public access: [_1]',$publictext).'</h3>');	$r->print('<h3>'.&mt('Public access: [_1]',&mt($publictext)).'</h3>');
$r->print(&Apache::loncommon::start_data_table());	$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_header_row());	$r->print(&Apache::loncommon::start_data_table_header_row());
$r->print('<th>'.&mt('Action').'</th><th>'.&mt('Dates available').'</th>');	$r->print('<th>'.&mt('Action').'</th><th>'.&mt('Dates available').'</th>');
Line 1219 sub standard_settings {	Line 1307 sub standard_settings {
$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><td width="40"> </td><td valign="top">');	$r->print('</td><td width="40"> </td><td valign="top">');
$r->print('<h3>'.&mt('Passphrase-protected access: [_1]',$guesttext).'</h3>');	$r->print('<h3>'.&mt('Passphrase-protected access: [_1]',&mt($guesttext)).'</h3>');
$r->print(&Apache::loncommon::start_data_table());	$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_header_row());	$r->print(&Apache::loncommon::start_data_table_header_row());
$r->print('<th>'.&mt('Action').'</th><th>'.&mt('Dates available').	$r->print('<th>'.&mt('Action').'</th><th>'.&mt('Dates available').
Line 1265 sub standard_settings {	Line 1353 sub standard_settings {
'action' => 'chgconditions',	'action' => 'chgconditions',
'currentpath' => $env{'form.currentpath'},	'currentpath' => $env{'form.currentpath'},
);	);
$r->print('<h3>'.&mt('Conditional access: [_1]',$conditionstext).'</h3>');	$r->print('<h3>'.&mt('Conditional access: [_1]',&mt($conditionstext)).'</h3>');
if ($numconditionals > 0) {	if ($numconditionals > 0) {
my $count = 1;	my $count = 1;
my $chg = 'none';	my $chg = 'none';
Line 1278 sub standard_settings {	Line 1366 sub standard_settings {
&build_access_summary($r,$count,$chg,%conditionals);	&build_access_summary($r,$count,$chg,%conditionals);
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
} else {	} else {
$r->print(&make_anchor($url,\%anchor_fields,&mt('Add conditional access')).' '.&mt('based on domain, username, or course affiliation.'));	$r->print(&make_anchor($url,\%anchor_fields,&mt('Add conditional access')).' '.&mt('based on domain, username, or course/community affiliation.'));
}	}
}	}

Line 1312 sub acl_status {	Line 1400 sub acl_status {

sub access_element {	sub access_element {
my ($r,$type,$acl_count,$items,$access_controls,$now,$then) = @_;	my ($r,$type,$acl_count,$items,$access_controls,$now,$then) = @_;
my $title = $type;	my %typetext = &Apache::lonlocal::texthash(
$title =~ s/s$//;	domains => 'Domain',
$title =~ s/^(\w)/uc($1)/e;	users => 'User',
$r->print('<h3>'.&mt('[_1]-based conditional access: ',$title));	course => 'Course/Community'
	);
	$r->print('<h3>'.&mt('[_1]-based conditional access: ',$typetext{$type}));
if ($$acl_count{$type}) {	if ($$acl_count{$type}) {
$r->print($$acl_count{$type}.' ');	$r->print($$acl_count{$type}.' ');
if ($$acl_count{$type} > 1) {	if ($$acl_count{$type} > 1) {
Line 1333 sub access_element {	Line 1423 sub access_element {

sub display_access_row {	sub display_access_row {
my ($r,$status,$type,$items,$access_controls,$now,$then) = @_;	my ($r,$status,$type,$items,$access_controls,$now,$then) = @_;
	my $showtype;
	if ($type eq 'course') {
	$showtype = &mt('Courses/Communities');
	} elsif ($type eq 'domains') {
	$showtype = &mt('Domains');
	} elsif ($type eq 'users') {
	$showtype = &mt('Users');
	}
if (@{$items} > 0) {	if (@{$items} > 0) {
my @all_doms;	my @all_doms;
my $colspan = 3;	my $colspan = 3;
my $uctype = $type;
$uctype =~ s/^(\w)/uc($1)/e;
$r->print(&Apache::loncommon::start_data_table());	$r->print(&Apache::loncommon::start_data_table());
$r->print(&Apache::loncommon::start_data_table_header_row());	$r->print(&Apache::loncommon::start_data_table_header_row());
$r->print('<th>'.&mt('Action?').'</th><th>'.&mt($uctype).'</th><th>'.	$r->print('<th>'.&mt('Action?').'</th><th>'.$showtype.'</th><th>'.
&mt('Dates available').'</th>');	&mt('Dates available').'</th>');
if ($type eq 'course' && $status eq 'old') {	if ($type eq 'course' && $status eq 'old') {
$r->print('<th>'.&mt('Allowed [_1] member affiliations',$type).
	$r->print('<th>'.&mt('Allowed course/community affiliations').
'</th>');	'</th>');
$colspan ++;	$colspan ++;
} elsif ($type eq 'domains') {	} elsif ($type eq 'domains') {
Line 1370 sub display_access_row {	Line 1467 sub display_access_row {
}	}
$r->print(&Apache::loncommon::end_data_table());	$r->print(&Apache::loncommon::end_data_table());
} else {	} else {
$r->print(&mt('No [_1]-based conditions defined.<br />',$type).	$r->print(&mt('No [_1]-based conditions defined.',$showtype).'<br />'.
&additional_item($type));	&additional_item($type));
}	}
return;	return;
Line 1432 sub course_row {	Line 1529 sub course_row {
}	}
my $js = &Apache::loncommon::coursebrowser_javascript($defdom)	my $js = &Apache::loncommon::coursebrowser_javascript($defdom)
.&course_js();	.&course_js();
my $uctype = $type;	my $showtype = &mt('Course/Community');
$uctype =~ s/^(\w)/uc($1)/e;	my $crstype = 'Course';
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,	my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,
$type);	$type);
$r->print('<td>'.$js.&actionbox($status,$num,$scope).'</td>');	$r->print('<td>'.$js.&actionbox($status,$num,$scope).'</td>');
if ($status eq 'old') {	if ($status eq 'old') {
my $cid = $content->{'domain'}.'_'.$content->{'number'};	my $cid = $content->{'domain'}.'_'.$content->{'number'};
my %course_description = &Apache::lonnet::coursedescription($cid);	my %course_description = &Apache::lonnet::coursedescription($cid);
	if ($course_description{'type'} ne '') {
	$crstype = $course_description{'type'};
	}
$r->print('<td><input type="hidden" name="crsdom_'.$num.'" value="'.$content->{'domain'}.'" /><input type="hidden" name="crsnum_'.$num.'" value="'.$content->{'number'}.'" />'.$course_description{'description'}.'</td>');	$r->print('<td><input type="hidden" name="crsdom_'.$num.'" value="'.$content->{'domain'}.'" /><input type="hidden" name="crsnum_'.$num.'" value="'.$content->{'number'}.'" />'.$course_description{'description'}.'</td>');
} elsif ($status eq 'new') {	} elsif ($status eq 'new') {
$r->print('<td>'.&Apache::loncommon::selectcourse_link('portform','crsnum_'.$num,'crsdom_'.$num,'description_'.$num,$num.'_1',undef,$uctype).'  <input type="text" name="description_'.$num.'" size="30" /><input type="hidden" name="crsdom_'.$num.'" /><input type="hidden" name="crsnum_'.$num.'" /></td>');	$r->print('<td>'.&Apache::loncommon::selectcourse_link('portform','crsnum_'.$num,'crsdom_'.$num,'description_'.$num,$num.'_1',undef,$showtype).'  <input type="text" name="description_'.$num.'" size="30" /><input type="hidden" name="crsdom_'.$num.'" /><input type="hidden" name="crsnum_'.$num.'" /></td>');
}	}
$r->print('<td>'.&dateboxes($num,$start,$end));	$r->print('<td>'.&dateboxes($num,$start,$end));
my $newrole_id = 1;	my $newrole_id = 1;
Line 1460 sub course_row {	Line 1560 sub course_row {
$max_id = $role_id;	$max_id = $role_id;
}	}
$max_id ++;	$max_id ++;
my $role_selects = &role_selectors($num,$role_id,$type,$content,'display');	my $role_selects = &role_selectors($num,$role_id,$crstype,$content,'display');
$r->print('<tr><td><span style="white-space: nowrap"><label><input type="checkbox" name="delete_role_'.$num.'" value="'.$role_id.'" />'.&mt('Delete').'</label></span><br /><input type="hidden" name="preserve_role_'.$num.'" value="'.$role_id.'" /></td>'.$role_selects.'</tr>');	$r->print('<tr><td><span class="LC_nobreak"><label><input type="checkbox" name="delete_role_'.$num.'" value="'.$role_id.'" />'.&mt('Delete').'</label></span><br /><input type="hidden" name="preserve_role_'.$num.'" value="'.$role_id.'" /></td>'.$role_selects.'</tr>');
}	}
$r->print('</table>');	$r->print('</table>');
}	}
$r->print('<br />'.&mt('Add a roles-based condition').	$r->print('<br />'.&mt('Add a roles-based condition').
' <input type="checkbox" name ="add_role_'.	' <input type="checkbox" name="add_role_'.
$num.'" onClick="javascript:setRoleOptions('."'$num',	$num.'" onClick="javascript:setRoleOptions('."'$num',
'$max_id','$content->{'domain'}','$content->{'number'}',	'$max_id','$content->{'domain'}','$content->{'number'}',
'$uctype'".')" value="" />');	'$showtype'".')" value="" />');
$newrole_id = $max_id;	$newrole_id = $max_id;
} else {	} else {
$r->print('<input type="hidden" name ="add_role_'.$num.'" value="" />');	$r->print('<input type="hidden" name="add_role_'.$num.'" value="" />');
}	}
$r->print(&add_course_role($num,$newrole_id));	$r->print(&add_course_role($num,$newrole_id));
$r->print('</td>');	$r->print('</td>');
Line 1493 sub domains_row {	Line 1593 sub domains_row {
my ($r,$status,$item,$all_doms,$access_controls,$now,$then) = @_;	my ($r,$status,$item,$all_doms,$access_controls,$now,$then) = @_;
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,	my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,
'domains');	'domains');
my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="true">'.	my $dom_select = '<select name="dom_'.$num.'" size="4" multiple="multiple">'.
' <option value="">'.&mt('Please select').'</option>';	' <option value="">'.&mt('Please select').'</option>';
if ($status eq 'old') {	if ($status eq 'old') {
my $content = $$access_controls{$item};	my $content = $$access_controls{$item};
foreach my $dom (@{$all_doms}) {	foreach my $dom (@{$all_doms}) {
if ((@{$content->{'dom'}} > 0)	if ((@{$content->{'dom'}} > 0)
&& (grep(/^\Q$dom\E$/,@{$content->{'dom'}}))) {	&& (grep(/^\Q$dom\E$/,@{$content->{'dom'}}))) {
$dom_select .= '<option value="'.$dom.'" selected>'.	$dom_select .= '<option value="'.$dom.'" selected="selected">'.
$dom.'</option>';	$dom.'</option>';
} else {	} else {
$dom_select .= '<option value="'.$dom.'">'.$dom.'</option>';	$dom_select .= '<option value="'.$dom.'">'.$dom.'</option>';
Line 1530 sub users_row {	Line 1630 sub users_row {

sub additional_item {	sub additional_item {
my ($type) = @_;	my ($type) = @_;
my $output = &mt('Add new [_1] condition(s)?',$type).' '.&mt('Number to add: ').'<input type="text" name="new'.$type.'" size="3" value="0" />';	my $showtype;
	if ($type eq 'course') {
	$showtype = &mt('course/community');
	} elsif ($type eq 'domains') {
	$showtype = &mt('domains');
	} elsif ($type eq 'users') {
	$showtype = &mt('users');
	}
	my $output = &mt('Add new [_1] condition(s)?',$showtype).' '.&mt('Number to add: ').'<input type="text" name="new'.$type.'" size="3" value="0" />';
return $output;	return $output;
}	}

sub actionbox {	sub actionbox {
my ($status,$num,$scope) = @_;	my ($status,$num,$scope) = @_;
my $output = '<span style="white-space: nowrap"><label>';	my $output = '<span class="LC_nobreak"><label>';
if ($status eq 'new') {	if ($status eq 'new') {
my $checkstate;	my $checkstate;
if ($scope eq 'domains' \|\| $scope eq 'users' \|\| $scope eq 'course') {	if ($scope eq 'domains' \|\| $scope eq 'users' \|\| $scope eq 'course') {
Line 1547 sub actionbox {	Line 1655 sub actionbox {
&mt('Activate');	&mt('Activate');
} else {	} else {
$output .= '<input type="checkbox" name="delete" value="'.$num.	$output .= '<input type="checkbox" name="delete" value="'.$num.
'" />'.&mt('Delete').'</label></span><br /><span style="white-space: nowrap">'.	'" />'.&mt('Delete').'</label></span><br /><span class="LC_nobreak">'.
'<label><input type="checkbox" name="update" value="'.	'<label><input type="checkbox" name="update" value="'.
$num.'" />'.&mt('Update');	$num.'" />'.&mt('Update');
}	}
Line 1566 sub dateboxes {	Line 1674 sub dateboxes {
undef,undef,1);	undef,undef,1);
my $enddate = &Apache::lonhtmlcommon::date_setter('portform',	my $enddate = &Apache::lonhtmlcommon::date_setter('portform',
'enddate_'.$num,$end,undef,undef,undef,1,undef,	'enddate_'.$num,$end,undef,undef,undef,1,undef,
undef,undef,1). '  <span style="white-space: nowrap"><label>'.	undef,undef,1). '  <span class="LC_nobreak"><label>'.
'<input type="checkbox" name="noend_'.	'<input type="checkbox" name="noend_'.
$num.'" '.$noend.' />'.&mt('No end date').	$num.'" '.$noend.' />'.&mt('No end date').
'</label></span>';	'</label></span>';
Line 1601 sub role_selectors {	Line 1709 sub role_selectors {
$cdom = $env{'form.cdom'};	$cdom = $env{'form.cdom'};
$cnum = $env{'form.cnum'};	$cnum = $env{'form.cnum'};
}	}
my $uctype = $type;	my $crstype = 'Course';
$uctype =~ s/^(\w)/uc($1)/e;	if ($cnum =~ /^$match_community$/) {
	$crstype = 'Community'
	}
my ($sections,$groups,$allroles,$rolehash,$accesshash) =	my ($sections,$groups,$allroles,$rolehash,$accesshash) =
&Apache::loncommon::get_secgrprole_info($cdom,$cnum,1,$uctype);	&Apache::loncommon::get_secgrprole_info($cdom,$cnum,1,$crstype);
if (!@{$sections}) {	if (!@{$sections}) {
@{$sections} = ('none');	@{$sections} = ('none');
} else {	} else {
Line 1637 sub role_selectors {	Line 1747 sub role_selectors {
'group' => $groups,	'group' => $groups,
);	);
foreach my $item ('role','access','section','group') {	foreach my $item ('role','access','section','group') {
$output .= '<td><select name="'.$item.$longid.'" multiple="true" size="4">'."\n";	$output .= '<td><select name="'.$item.$longid.'" multiple="multiple" size="4">'."\n";
foreach my $entry (@{$allitems{$item}}) {	foreach my $entry (@{$allitems{$item}}) {
if ($caller eq 'display') {	if ($caller eq 'display') {
if ((@{$$content{'roles'}{$role_id}{$item}} > 0) &&	if ((@{$$content{'roles'}{$role_id}{$item}} > 0) &&
(grep(/^\Q$entry\E$/,@{$$content{'roles'}{$role_id}{$item}}))) {	(grep(/^\Q$entry\E$/,@{$$content{'roles'}{$role_id}{$item}}))) {
$output .= ' <option value="'.$entry.'" selected>'.	$output .= ' <option value="'.$entry.'" selected="selected">'.
$lookup{$item}{$entry}.'</option>';	$lookup{$item}{$entry}.'</option>';
next;	next;
}	}
Line 1699 function getIndexByName(item) {	Line 1809 function getIndexByName(item) {

</script>	</script>
END_SCRIPT	END_SCRIPT
$r->print(&mt('Select roles, course status, section(s) and group(s) for users who will be able to access the portfolio file.'));	$r->print(
$r->print('<form name="rolepicker" action="/adm/portfolio" method="post"><table><tr><th>'.&mt('Roles').'</th><th>'.&mt('[_1] status',$type).'</th><th>'.&mt('Sections').'</th><th>'.&mt('Groups').'</th></tr><tr>'.$role_selects.'</tr></table><br /><input type="button" name="rolepickbutton" value="Save selections" onclick="setRoles()" />');	'<p>'
	.&mt('Select roles, '.lc($type).' status, section(s) and group(s) for users'
	.' who will be able to access the portfolio file.')
	.'</p>'
	);
	$r->print(
	'<form name="rolepicker" action="/adm/portfolio" method="post">'
	.'<table><tr>'
	.'<th>'.&mt('Roles').'</th>'
	.'<th>'.&mt("$type status").'</th>'
	.'<th>'.&mt('Sections').'</th>'
	.'<th>'.&mt('Groups').'</th>'
	.'</tr><tr>'.$role_selects.'</tr>'
	.'</table><br />'
	.'<input type="button" name="rolepickbutton" value="'.&mt('Save').'" onclick="setRoles()" />'
	);
return;	return;
}	}

Line 1733 ENDSMP	Line 1858 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.$env{'form.fieldname'}.value=fileList;	var hwfield = opener.document.getElementsByName('$env{'form.fieldname'}');
	hwfield[0].value = fileList;
self.close();	self.close();
}	}
</script>	</script>
ENDSMP	ENDSMP
$r->print($javascript);	$r->print($javascript);
$r->print("<h1>Select portfolio files</h1>	$r->print("<h1>".&mt('Select portfolio files')."</h1>");
Check as many as you wish in response to the problem.<br />");
my @otherfiles=&Apache::lonnet::files_not_in_path($env{'user.name'}, $env{'form.currentpath'});	my @otherfiles=&Apache::lonnet::files_not_in_path($env{'user.name'}, $env{'form.currentpath'});
if (@otherfiles) {	if (@otherfiles) {
$r->print("<strong>Files selected from other directories:</strong><br />");	$r->print(&Apache::loncommon::start_data_table()
	.&Apache::loncommon::start_data_table_header_row()
	.'<th>'.&mt('Files selected from other directories:')."</th>"
	.&Apache::loncommon::end_data_table_header_row()
	);
foreach my $file (@otherfiles) {	foreach my $file (@otherfiles) {
$r->print($file."<br />");	$r->print(&Apache::loncommon::start_data_table_row()
	.'<td>'.$file."</td>"
	.&Apache::loncommon::end_data_table_row()
	);
}	}
	$r->print(&Apache::loncommon::end_data_table()
	.'<br />'
	);
}	}
	$r->print('<div>'
	.&mt('Check as many files as you wish in response to the problem:')
	.'</div>'
	);
}	}


Line 1755 sub check_for_upload {	Line 1894 sub check_for_upload {
my ($path,$fname,$group,$element) = @_;	my ($path,$fname,$group,$element) = @_;
my $disk_quota = &get_quota($group);	my $disk_quota = &get_quota($group);
my $filesize = (length($env{'form.'.$element})) / 1000; #express in k (1024?)	my $filesize = (length($env{'form.'.$element})) / 1000; #express in k (1024?)

my $portfolio_root = &get_portfolio_root();	my $portfolio_root = &get_portfolio_root();
my $port_path = &get_port_path();	my $port_path = &get_port_path();
my ($uname,$udom) = &get_name_dom();	my ($uname,$udom) = &get_name_dom($group);
# 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,$path);	my @dir_list=&get_dir_list($portfolio_root,$path,$group);
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) {
Line 1774 sub check_for_upload {	Line 1912 sub check_for_upload {
}	}
}	}
}	}
my $current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,$portfolio_root);	my $getpropath = 1;
	my $current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,$portfolio_root,$getpropath);

if (($current_disk_usage + $filesize) > $disk_quota){	if (($current_disk_usage + $filesize) > $disk_quota){
my $msg = '<span class="LC_error">Unable to upload <strong>'.$fname.' (size = '.$filesize.' kilobytes)</strong>. Disk quota will be exceeded.</span>'.	my $msg = '<span class="LC_error">'.
'<br />Disk quota is '.$disk_quota.' kilobytes. Your current disk usage is '.$current_disk_usage.' kilobytes.';	&mt('Unable to upload [_1]. (size = [_2] kilobytes). Disk quota will be exceeded.','<span class="LC_filename">'.$fname.'</span>',$filesize).'</span>'.
	'<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',$disk_quota,$current_disk_usage);
return ('will_exceed_quota',$msg);	return ('will_exceed_quota',$msg);
} elsif ($found_file) {	} elsif ($found_file) {
if ($locked_file) {	if ($locked_file) {
my $msg = '<span class="LC_error">'.'Unable to upload <strong>'.$fname.'</strong>, a <strong>locked</strong> file by that name was found in <strong>'.$port_path.$path.'</strong></span>'.	my $msg = '<span class="LC_error">';
'<br />You will be able to rename or delete existing '.$fname.' after a grade has been assigned.';	$msg .= &mt('Unable to upload [_1]. A locked file by that name was found in [_2].','<span class="LC_filename">'.$fname.'</span>','<span class="LC_filename">'.$port_path.$env{'form.currentpath'}.'</span>');
	$msg .= '</span><br />';
	$msg .= &mt('You will be able to rename or delete existing [_1] after a grade has been assigned.','<span class="LC_filename">'.$fname.'</span>');
return ('file_locked',$msg);	return ('file_locked',$msg);
} else {	} else {
my $msg = '<span class="LC_error">'.'Unable to upload <strong>'.$fname.'</strong>, a file by that name was found in <strong>'.$port_path.$path.'</strong></span>'.	my $msg = '<span class="LC_error">';
'<br />To upload, rename or delete existing '.$fname.' in '.$port_path.$path;	$msg .= &mt('Unable to upload [_1]. A file by that name was found in [_2].','<span class="LC_filename">'.$fname.'</span>',$port_path.$env{'form.currentpath'});
	$msg .= '</span>';
	$msg .= '<br />';
	$msg .= &mt('To upload, rename or delete existing [_1] in [_2].','<span class="LC_filename">'.$fname.'</span>', $port_path.$env{'form.currentpath'});
return ('file_exists',$msg);	return ('file_exists',$msg);
}	}
}	}
Line 1796 sub check_for_upload {	Line 1941 sub check_for_upload {
sub upload {	sub upload {
my ($r,$url,$group)=@_;	my ($r,$url,$group)=@_;
my $fname=&Apache::lonnet::clean_filename($env{'form.uploaddoc.filename'});	my $fname=&Apache::lonnet::clean_filename($env{'form.uploaddoc.filename'});
	my $disk_quota = &get_quota($group);
my ($state,$msg) = &check_for_upload($env{'form.currentpath'},	my $portfolio_root = &get_portfolio_root();
$fname,$group,'uploaddoc');	my $port_path = &get_port_path();
	my ($uname,$udom) = &get_name_dom($group);
	my $getpropath = 1;
	my $current_disk_usage = &Apache::lonnet::diskusage($udom,$uname,$portfolio_root,$getpropath);
	my ($state,$msg) =
	&Apache::loncommon::check_for_upload($env{'form.currentpath'},$fname,
	$group,'uploaddoc',$portfolio_root,
	$port_path,$disk_quota,
	$current_disk_usage,$uname,$udom);
if ($state eq 'will_exceed_quota'	if ($state eq 'will_exceed_quota'
\|\| $state eq 'file_locked'	\|\| $state eq 'file_locked'
\|\| $state eq 'file_exists' ) {	\|\| $state eq 'file_exists' ) {
Line 1807 sub upload {	Line 1959 sub upload {
return;	return;
}	}

my $port_path = &get_port_path();
my (%allfiles,%codebase,$mode);	my (%allfiles,%codebase,$mode);
if ($env{'form.uploaddoc.filename'} =~ m/(\.htm\|\.html\|\.shtml)$/i) {	if ($env{'form.uploaddoc.filename'} =~ m/(\.htm\|\.html\|\.shtml)$/i) {
$mode = 'parse';	if ($env{'form.parserflag'}) {
	$mode = 'parse';
	}
}	}
my $result=	my $result=
&Apache::lonnet::userfileupload('uploaddoc','',	&Apache::lonnet::userfileupload('uploaddoc','',
$port_path.$env{'form.currentpath'},	$port_path.$env{'form.currentpath'},
$mode,\%allfiles,\%codebase);	$mode,\%allfiles,\%codebase);
if ($result !~ m\|^/uploaded/\|) {	if ($result !~ m\|^/uploaded/\|) {
$r->print('<span class="LC_error">'.'An errror occured ('.$result.	$r->print('<span class="LC_error">'.&mt('An error occurred ([_1]) while trying to upload [_2].'
') while trying to upload '.&display_file().'</span><br />');	,$result,&display_file()).'</span><br />');
$r->print(&done('Back',$url));	$r->print(&done('Back',$url));
} else {	} else {
if (%allfiles) {	if (%allfiles) {
my $state = <<STATE;	if (!&suppress_embed_prompt()) {
	my $state = <<STATE;
<input type="hidden" name="action" value="upload_embedded" />	<input type="hidden" name="action" value="upload_embedded" />
<input type="hidden" name="currentpath" value="$env{'form.currentpath'}" />	<input type="hidden" name="currentpath" value="$env{'form.currentpath'}" />
<input type="hidden" name="fieldname" value="$env{'form.fieldname'}" />	<input type="hidden" name="fieldname" value="$env{'form.fieldname'}" />
<input type="hidden" name="mode" value="$env{'form.mode'}" />	<input type="hidden" name="mode" value="$env{'form.mode'}" />
STATE	STATE
$r->print("<p>Completed upload of the file. This file contained references to other files. You can upload these now: </p>");	$r->print("<h2>".&mt("Reference Warning")."</h2>");
$r->print(&Apache::londocs::ask_for_embedded_content('/adm/portfolio',$state,\%allfiles,\%codebase,{'error_on_invalid_names' => 1}));	$r->print("<p>".&mt("Completed upload of the file. This file contained references to other files. You must upload the referenced files or else the uploaded file may not work properly.")."</p>");
$r->print('<p>Or '.&done('Return to directory listing',$url).'</p>');	$r->print("<p>".&mt("Please select the locations from which the referenced files are to be uploaded.")."</p>");
	$r->print(&Apache::loncommon::ask_for_embedded_content('/adm/portfolio',$state,\%allfiles,\%codebase,
	{'error_on_invalid_names' => 1,
	'ignore_remote_references' => 1,}));
	$r->print('<p>Or '.&done('Return to directory',$url).'</p>');
	}
} else {	} else {
$r->print(&done(undef,$url));	$r->print(&done(undef,$url));
}	}
}	}
}	}

sub upload_embedded {
my ($r,$url,$group)=@_;
for (my $i=0; $i<$env{'form.number_embedded_items'}; $i++) {
next if (!exists($env{'form.embedded_item_'.$i.'.filename'}));

$env{'form.embedded_orig_'.$i} =
&unescape($env{'form.embedded_orig_'.$i});
my ($path,$fname) =
($env{'form.embedded_orig_'.$i} =~ m{(./)([^/])});
$path = $env{'form.currentpath'}.$path;
$fname = &Apache::lonnet::clean_filename($fname);

my ($state,$msg) = &check_for_upload($path,$fname,$group,
'embedded_item_'.$i);

if ($state eq 'will_exceed_quota'
\|\| $state eq 'file_locked'
\|\| $state eq 'file_exists' ) {
$r->print($msg);
next;
}

my $port_path = &get_port_path();
my $src_path = $env{'form.embedded_orig_'.$i};
$env{'form.embedded_item_'.$i.'.filename'}=$fname;

my $result=
&Apache::lonnet::userfileupload('embedded_item_'.$i,'',
$port_path.$path);
if ($result !~ m\|^/uploaded/\|) {
$r->print('<span class="LC_error">'.'An errror occured ('.$result.
') while trying to upload '.&display_file($path,$fname).'</span><br />');
next;
} else {
$r->print("<p> Uploaded ".
&display_file($port_path.$path,$fname).'</p>');
}
}
$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();	my ($uname,$udom) = &get_name_dom($group);
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'};
Line 1914 sub lock_info {	Line 2031 sub lock_info {
my %course_description =	my %course_description =
&Apache::lonnet::coursedescription($$array_item[1]);	&Apache::lonnet::coursedescription($$array_item[1]);
if ( $course_description{'description'} ne '') {	if ( $course_description{'description'} ne '') {
$r->print(&mt('In the course: <strong>[_1]</strong><br />',	$r->print(&mt('In the course:').' <strong>'.$course_description{'description'}.'</strong><br />');
$course_description{'description'}));
}	}
}	}
}	}
$r->print(&done('Back',$url));	$r->print(&done(&mt('Back'),$url));
return 'ok';	return 'ok';
}	}

sub createdir {	sub createdir {
my ($r,$url)=@_;	my ($r,$url,$group)=@_;
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">'.
Line 1934 sub createdir {	Line 2050 sub createdir {
return;	return;
}	}
my $portfolio_root = &get_portfolio_root();	my $portfolio_root = &get_portfolio_root();
my @dir_list=&get_dir_list($portfolio_root);	my @dir_list=&get_dir_list($portfolio_root,undef,$group);
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 1943 sub createdir {	Line 2059 sub createdir {
}	}
}	}
if ($found_file){	if ($found_file){
$r->print('<span class="LC_error">'.'Unable to create a directory named <strong>'.$newdir.	$r->print('<span class="LC_error">'
' </strong>a file or directory by that name already exists.</span><br />');	.&mt('Unable to create a directory named [_1].','<strong>'.$newdir.'</strong>')
	.' '.&mt('A file or directory by that name already exists.').'</span><br />');
} else {	} else {
my ($uname,$udom) = &get_name_dom();	my ($uname,$udom) = &get_name_dom($group);
my $port_path = &get_port_path();	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') {
$r->print('<span class="LC_error">'.'An errror occured ('.$result.	$r->print('<span class="LC_error">'
') while trying to create a new directory '.&display_file().'</span><br />');	.&mt('An error occurred ([_1]) while trying to create a new directory [_2].'
	,$result,&display_file())
	.'</span><br />');
}	}
}	}
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(&mt('The new directory name was changed from [_1] to [_2].'
	,'<strong>'.$env{'form.newdir'}.'</strong>','<strong>'.$newdir.'</strong>'));
}	}
$r->print(&done(undef,$url));	$r->print(&done(undef,$url));
}	}
Line 1964 sub createdir {	Line 2084 sub createdir {
sub get_portfolio_root {	sub get_portfolio_root {
my ($udom,$uname,$group) = @_;	my ($udom,$uname,$group) = @_;
if (!(defined($udom)) \|\| !(defined($uname))) {	if (!(defined($udom)) \|\| !(defined($uname))) {
($uname,$udom) = &get_name_dom();	($uname,$udom) = &get_name_dom($group);
}	}
my $path = '/userfiles/portfolio';	my $path = '/userfiles/portfolio';
if (!defined($group)) {	if (!defined($group)) {
Line 1975 sub get_portfolio_root {	Line 2095 sub get_portfolio_root {
if (defined($group)) {	if (defined($group)) {
$path = '/userfiles/groups/'.$group.'/portfolio';	$path = '/userfiles/groups/'.$group.'/portfolio';
}	}
return (&Apache::loncommon::propath($udom,$uname).$path);	return $path;
}	}

sub get_group_quota {	sub get_group_quota {
Line 1990 sub get_group_quota {	Line 2110 sub get_group_quota {
$group_quota = $group_info{'quota'}; #expressed in Mb	$group_quota = $group_info{'quota'}; #expressed in Mb
if ($group_quota) {	if ($group_quota) {
$group_quota = 1000 * $group_quota; #expressed in k	$group_quota = 1000 * $group_quota; #expressed in k
}	}
}	}
return $group_quota;	return $group_quota;
}	}

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

sub get_name_dom {	sub get_name_dom {
	my ($group) = @_;
my ($uname,$udom);	my ($uname,$udom);
if (defined($env{'form.group'})) {	if (defined($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 2025 sub prepend_group {	Line 2147 sub prepend_group {
sub get_namespace {	sub get_namespace {
my $namespace = 'portfolio';	my $namespace = 'portfolio';
if (defined($env{'form.group'})) {	if (defined($env{'form.group'})) {
my ($uname,$udom) = &get_name_dom();	my ($uname,$udom) = &get_name_dom($env{'form.group'});
$namespace .= '_'.$udom.'_'.$uname.'_'.$env{'form.group'};	$namespace .= '_'.$udom.'_'.$uname.'_'.$env{'form.group'};
}	}
return $namespace;	return $namespace;
Line 2057 sub missing_priv {	Line 2179 sub missing_priv {
$rtnlink .= '?';	$rtnlink .= '?';
}	}
$rtnlink .= 'currentpath='.$escpath;	$rtnlink .= 'currentpath='.$escpath;
$r->print(&mt('<h3>Action disallowed</h3>'));	$r->print('<h3>'.&mt('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 (defined($env{'form.group'})) {	if (defined($env{'form.group'})) {
$r->print(&mt("in the group's file repository."));	$r->print(&mt("in the group's group portfolio."));
$rtnlink .= &group_args()	$rtnlink .= &group_args()
} else {	} else {
$r->print(&mt('in this portfolio.'));	$r->print(&mt('in this portfolio.'));
}	}
$rtnlink .= '">'.&mt('Return to directory listing page').'</a>';	$rtnlink .= '">'.&mt('Return to directory').'</a>';
$r->print('<br />'.$rtnlink);	$r->print('<br />'.$rtnlink);
$r->print(&Apache::loncommon::end_page());	$r->print(&Apache::loncommon::end_page());
return;	return;
Line 2113 sub get_quota {	Line 2235 sub get_quota {
return $disk_quota;	return $disk_quota;
}	}

	sub suppress_embed_prompt {
	my $suppress_prompt = 0;
	if (($env{'request.role'} =~ /^st/) && ($env{'request.course.id'} ne '')) {
	if ($env{'course.'.$env{'request.course.id'}.'.suppress_embed_prompt'} eq 'yes') {
	$suppress_prompt = 1;
	}
	}
	return $suppress_prompt;
	}


sub handler {	sub handler {
# this handles file management	# this handles file management
my $r = shift;	my $r = shift;
Line 2139 sub handler {	Line 2272 sub handler {
&Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));	&Apache::lonnet::allowed('vcg',$env{'request.course.id'}.($env{'request.course.sec'}?'/'.$env{'request.course.sec'}:''));
$env{'form.group'} =~ s/\W//g;	$env{'form.group'} =~ s/\W//g;
$group = $env{'form.group'};	$group = $env{'form.group'};
if ($group) {	if ($group ne '') {
($uname,$udom) = &get_name_dom();	($uname,$udom) = &get_name_dom($group);
my %curr_groups = &Apache::longroup::coursegroups($udom,$uname,	my %curr_groups = &Apache::longroup::coursegroups($udom,$uname,
$group);	$group);
if (%curr_groups) {	if (%curr_groups) {
Line 2151 sub handler {	Line 2284 sub handler {
$env{'request.course.id'}.'/'.$group))) {	$env{'request.course.id'}.'/'.$group))) {
$portfolio_root = &get_portfolio_root();	$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(&mt('You do not have the privileges required to access the shared files space for this group.'));
$earlyout = 1;	$earlyout = 1;
}	}
} else {	} else {
$r->print('Not a valid group for this course');	$r->print(&mt('Not a valid group for this course'));
$earlyout = 1;	$earlyout = 1;
}	}
$title = &mt('Group files').' for '.$group;	$title = &mt('Group portfolio for [_1]', $group);
} else {	} else {
$r->print('Invalid group');	$r->print(&mt('Invalid group'));
$earlyout = 1;	$earlyout = 1;
}	}
if ($earlyout) { return OK; }	if ($earlyout) { return OK; }
Line 2186 sub handler {	Line 2319 sub handler {
} else {	} else {
($uname,$udom) = &get_name_dom();	($uname,$udom) = &get_name_dom();
$portfolio_root = &get_portfolio_root();	$portfolio_root = &get_portfolio_root();
$title = &mt('Portfolio Manager');	$title = &mt('My Space');
$can_modify = 1;	$can_modify = 1;
$can_delete = 1;	$can_delete = 1;
$can_upload = 1;	$can_upload = 1;
Line 2198 sub handler {	Line 2331 sub handler {
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
# Give the LON-CAPA page header	# Give the LON-CAPA page header
	my $brcrum = [{href=>"/adm/portfolio",text=>"Portfolio Manager"}];

if ($env{"form.mode"} eq 'selectfile'){	if ($env{"form.mode"} eq 'selectfile'){
$r->print(&Apache::loncommon::start_page($title,undef,	$r->print(&Apache::loncommon::start_page($title,undef,
{'only_body' => 1}));	{'only_body' => 1}));
} elsif ($env{'form.action'} eq 'rolepicker') {	} elsif ($env{'form.action'} eq 'rolepicker') {
$r->print(&Apache::loncommon::start_page('New role-based condition',undef,	$r->print(&Apache::loncommon::start_page('New role-based condition',undef,
{'no_nav_bar' => 1, }));	{'no_nav_bar' => 1, }));
} else {	} elsif ($caller eq 'coursegrp_portfolio') {
$r->print(&Apache::loncommon::start_page($title));	$r->print(&Apache::loncommon::start_page($title));
	} else {
	$r->print(&Apache::loncommon::start_page($title,undef,
	{'bread_crumbs' => $brcrum}));
	if (!&Apache::lonnet::usertools_access($uname,$udom,'portfolio')) {
	$r->print('<h2>'.&mt('No user portfolio available') .'</h2>'.
	&mt('This is a result of one of the following:').'<ul>'.
	'<li>'.&mt('The administrator of this domain has disabled portfolio functionality for this specific user.').'</li>'.
	'<li>'.&mt('The domain has been configured to disable, by default, portfolio functionality for all users in the domain.').'</li>'.
	'</ul>');
	$r->print(&Apache::loncommon::end_page());
	return OK;
	}
}	}
$r->rflush();	$r->rflush();
my ($blocked,$blocktext) =	my ($blocked,$blocktext) =
Line 2216 sub handler {	Line 2363 sub handler {
return OK;	return OK;
}	}
if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){	if (($env{'form.storeupl'}) & (!$env{'form.uploaddoc.filename'})){
$r->print('<span class="LC_error">'.	$r->print('<span class="LC_error">');
'No file was selected to upload.'.	$r->print(&mt('No file was selected to upload.').' ');
'To upload a file, click <strong>Browse...</strong>'.	$r->print(&mt('To upload a file, click <strong>Browse...</strong> and select a file, then click <strong>Upload</strong>.'));
', select a file, then click <strong>Upload</strong>.'.	$r->print('</span>');
'</span>');
}	}
if ($env{'form.meta'}) {	if ($env{'form.meta'}) {
&open_form($r,$url);	&open_form($r,$url);
# $r->print(&edit_meta_data($r, $env{'form.currentpath'}.$env{'form.selectfile'}));	$r->print(&mt('Edit the meta data').'<br />');
$r->print('Edit the meta data<br />');
&close_form($r,$url);	&close_form($r,$url);
}	}
if ($env{'form.store'}) {	if ($env{'form.store'}) {
Line 2239 sub handler {	Line 2384 sub handler {
}	}
} elsif ($env{'form.action'} eq 'upload_embedded') {	} elsif ($env{'form.action'} eq 'upload_embedded') {
if ($can_upload) {	if ($can_upload) {
&upload_embedded($r,$url,$group);	my $disk_quota = &get_quota($group);
	my $getpropath = 1;
	my $current_disk_usage =
	&Apache::lonnet::diskusage($udom,$uname,$portfolio_root,$getpropath);
	$r->print(
	&Apache::loncommon::upload_embedded('portfolio',$port_path,$uname,$udom,
	$group,$portfolio_root,$group,$disk_quota,$current_disk_usage));
	$r->print(&done(undef,$url));
} else {	} else {
&missing_priv($r,$url,'upload');	&missing_priv($r,$url,'upload');
}	}
Line 2251 sub handler {	Line 2403 sub handler {
}	}
} elsif ($env{'form.action'} eq 'delete') {	} elsif ($env{'form.action'} eq 'delete') {
if ($can_delete) {	if ($can_delete) {
&delete($r,$url);	&delete($r,$url,$group);
} else {	} else {
&missing_priv($r,$url,'delete');	&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);	&delete_dir_confirmed($r,$url,$group);
} else {	} else {
&missing_priv($r,$url,'delete');	&missing_priv($r,$url,'delete');
}	}
Line 2277 sub handler {	Line 2429 sub handler {
$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);	&rename($r,$url,$group);
} else {	} else {
&missing_priv($r,$url,'rename');	&missing_priv($r,$url,'rename');
}	}
Line 2302 sub handler {	Line 2454 sub handler {
}	}
} elsif ($env{'form.createdir'}) {	} elsif ($env{'form.createdir'}) {
if ($can_upload) {	if ($can_upload) {
&createdir($r,$url);	&createdir($r,$url,$group);
} else {	} else {
&missing_priv($r,$url,'upload');	&missing_priv($r,$url,'upload');
}	}
Line 2317 sub handler {	Line 2469 sub handler {
&Apache::lonhtmlcommon::clear_breadcrumbs();	&Apache::lonhtmlcommon::clear_breadcrumbs();
$r->print(&coursegrp_portfolio_header($udom,$uname,$grp_desc));	$r->print(&coursegrp_portfolio_header($udom,$uname,$grp_desc));
}	}
my @dir_list=&get_dir_list($portfolio_root);	my @dir_list=&get_dir_list($portfolio_root,$current_path,$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:
# 1) never been here, so directory structure not created	# 1) never been here, so directory structure not created
Line 2333 sub handler {	Line 2485 sub handler {
$current_path = '/'; # force it back to the root	$current_path = '/'; # force it back to the root
}	}
# now grab the directory list again, for the first time	# now grab the directory list again, for the first time
@dir_list=&Apache::lonnet::dirlist($current_path,	@dir_list=&get_dir_list($portfolio_root,$current_path,$group);
$udom,$uname,$portfolio_root);
}	}
# 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,	&display_common($r,$url,$current_path,$is_empty,\@dir_list,
$can_upload);	$can_upload,$group);
&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.178
changed lines
	Added in v.1.222