Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/portfolio.pm between versions 1.140 and 1.200

version 1.140, 2006/07/30 19:38:13	version 1.200, 2008/12/05 10:23:56
Line 66 sub group_form_data {	Line 66 sub group_form_data {
# 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, $anchor_fields, $inner_text) = @_;
$continue_select) = @_;	if ($$anchor_fields{'continue'} ne 'true') {$$anchor_fields{'continue'} = 'false'};
if ($continue_select ne 'true') {$continue_select = 'false'};	my $anchor = '<a href="'.$url.'?';
my $anchor = '<a href="'.$url.'?selectfile='.$filename.'&currentpath='.$current_path.'&mode='.$current_mode.'&continue='.$continue_select.'&fieldname='.$field_name;	foreach my $field_name (keys(%$anchor_fields)) {
	$anchor .= $field_name.'='.$$anchor_fields{$field_name}.'&';
	}
	$anchor =~ s/&$//;
$anchor .= &group_args();	$anchor .= &group_args();
$anchor .= '">'.$filename.'</a>';	$anchor .= '">'.$inner_text.'</a>';
return $anchor;	return $anchor;
}	}

Line 84 sub display_common {	Line 87 sub display_common {
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' =>	'createdir_label' =>
'Create subdirectory in current directory:');	'Create subdirectory in current directory',
	'parse' => 'If HTML file, upload embedded images/multimedia/css/linked files'
	);
my $escuri = &HTML::Entities::encode($r->uri,'&<>"');	my $escuri = &HTML::Entities::encode($r->uri,'&<>"');
$r->print(<<"TABLE");	my $help_fileupload = &Apache::loncommon::help_open_topic('Portfolio AddFiles');
<table id="LC_portfolio_actions">	my $help_createdir = &Apache::loncommon::help_open_topic('Portfolio CreateDirectory');
<tr id="LC_portfolio_upload">
<td class="LC_label">	# FIXME: This line should be deleted once Portfolio uses breadcrumbs
$text{'upload_label'}	$r->print(&Apache::loncommon::help_open_topic('Portfolio About', &mt('Help on the portfolio')));
</td>
<td class="LC_value">	my $parse_check;
<form method="post" enctype="multipart/form-data" action="$escuri">	if (!&suppress_embed_prompt()) {
$groupitem	$parse_check = <<"END";
<input name="uploaddoc" type="file" />	<br />
<input type="hidden" name="currentpath" value="$current_path" />	<span class="LC_nobreak">
<input type="hidden" name="action" value="$env{"form.action"}" />	<label>$lt{'parse'}
<input type="hidden" name="fieldname" value="$env{"form.fieldname"}" />	<input type="checkbox" name="parserflag" checked="checked" />
<input type="hidden" name="mode" value="$env{"form.mode"}" />	</label>
<input type="submit" name="storeupl" value="$text{'upload'}" />	</span>
</form>	END
</td>	}
</tr>
<tr id="LC_portfolio_createdir">	$r->print('<div>');
<td class="LC_label">	# Upload File
$text{'createdir_label'}	$r->print('<div class="LC_left_float">'
</td>	.'<form method="post" enctype="multipart/form-data" action="'.$escuri.'">'
<td class="LC_value">	.'<fieldset>'
<form method="post" action="$escuri">	.'<legend>'.$lt{'upload_label'}.'</legend>'
<input name="newdir" type="input" />$groupitem	.$groupitem
<input type="hidden" name="currentpath" value="$current_path" />	.'<input name="uploaddoc" type="file" />'
<input type="hidden" name="action" value="$env{"form.action"}" />	.'<input type="hidden" name="currentpath" value="'.$current_path.'" />'
<input type="hidden" name="fieldname" value="$env{"form.fieldname"}" />	.'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'
<input type="hidden" name="mode" value="$env{"form.mode"}" />	.'<input type="hidden" name="fieldname" value="'.$env{"form.fieldname"}.'" />'
<input type="submit" name="createdir" value="$text{'createdir'}" />	.'<input type="hidden" name="mode" value="'.$env{"form.mode"}.'" />'
</form>	.'<input type="submit" name="storeupl" value="'.$lt{'upload'}.'" />'
</td>	.$help_fileupload
</tr>	.$parse_check
</table>	.'</fieldset>'
TABLE	.'</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="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="'.$lt{'createdir'}.'" />'
	.$help_createdir
	.'</fieldset>'
	.'</form>'
	.'</div>'
	);
	$r->print('</div>');
	} # end "if can_upload"

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"}).'/');	my %anchor_fields = (
	'selectfile' => $port_path,
	'currentpath' => '/',
	'mode' => $env{"form.mode"},
	'fieldname' => $env{"form.fieldname"},
	'continue' => $env{"form.continue"}
	);
	$r->print('<span class="LC_current_location">'.&make_anchor($url,\%anchor_fields,$port_path).'/');
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"}).'/');	my %anchor_fields = (
	'selectfile' => $tree[$i],
	'currentpath' => $newCurrentPath,
	'mode' => $env{"form.mode"},
	'fieldname' => $env{"form.fieldname"},
	'continue' => $env{"form.continue"}
	);
	$r->print(&make_anchor($url,\%anchor_fields,$tree[$i]).'/');
}	}
}	}
$r->print('</span>');	$r->print('</span>');
	$r->print(&Apache::loncommon::help_open_topic('Portfolio ChangeDirectory'));
&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"}.&group_args());	$r->print('<br /><form method="post" action="'.$url.'?mode='.$env{"form.mode"}.'&fieldname='.$env{"form.fieldname"}.&group_args());
$r->print('">'.	$r->print('">'.
Line 147 TABLE	Line 186 TABLE
}	}

sub display_directory_line {	sub display_directory_line {
my ($r,$select_mode,$fullpath, $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 ($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.'">');	my $fullpath = &prepend_group($current_path.$filename);
$r->print($line);	$r->print(&Apache::loncommon::start_data_table_row());
$r->print('<td><img alt="" src="'.&Apache::loncommon::icon($filename).'" /></td>');	$r->print($line); # contains first two cells of table
$r->print('<td>'.$$version_flag{$filename}.'<a href="'.$href_location.$filename.'">'.	my $lock_info;
$filename.'</a></td>');	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>'.$version_flag.'</td>');
	} else { # this is a graded or handed back file
	my ($user,$domain) = &get_name_dom($env{'form.group'});
	my $permissions_hash = &Apache::lonnet::get_portfile_permissions($domain,$user);
	if (defined($$permissions_hash{$fullpath})) {
	foreach my $array_item (@{$$permissions_hash{$fullpath}}) {
	if (ref($array_item) eq 'ARRAY') {
	if ($$array_item[-1] eq 'handback') {
	$lock_info = 'Handback';
	} elsif ($$array_item[-1] eq 'graded') {
	$lock_info = 'Graded';
	}
	}
	}
	}
	if ($lock_info) {
	my %anchor_fields = ('lockinfo' => $fullpath);
	if ($versions) { # hold the folder open
	my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($fullpath);
	$fname =~ s\|^/\|\|;
	$anchor_fields{'showversions'} = $fname.'.'.$extension;
	}
	$lock_info = &make_anchor(undef,\%anchor_fields,$lock_info);
	}
	$r->print('<td colspan="2">'.$lock_info.'</td>');
	}
	# $r->print('<td>'.$$version_flag{$filename}.'</td><td>');
	$r->print('<td>'.&make_anchor($href_location.$filename,undef,$filename).'</td>');
$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">'
$r->print('<a href="'.$url.'?access='.$filename.	.&mt($curr_access).'   '
'&currentpath='.$current_path.&group_args().	);
'">'.$access_admin_text.'</a></span></td>');	my %anchor_fields = (
	'access' => $filename,
	'currentpath' => $current_path
	);
	$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 176 sub display_directory {	Line 250 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 188 sub display_directory {	Line 262 sub display_directory {
$current_permissions,$group);	$current_permissions,$group);
my %access_controls = &Apache::lonnet::get_access_controls($current_permissions,$group);	my %access_controls = &Apache::lonnet::get_access_controls($current_permissions,$group);
my $now = time;	my $now = time;
if ($env{"form.mode"} eq 'selectfile'){	if ($env{"form.mode"} eq 'selectfile') {
&select_files($r);	&select_files($r);
$checked_files =&Apache::lonnet::files_in_path($uname,$env{'form.currentpath'});	$checked_files =&Apache::lonnet::files_in_path($uname,$env{'form.currentpath'});
$select_mode = 'true';	$select_mode = 'true';
Line 197 sub display_directory {	Line 271 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 207 sub display_directory {	Line 283 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>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('<table id="LC_browser">'.	$r->print(&Apache::loncommon::help_open_topic('Portfolio FileList',
'<tr><th colspan="2">Actions</th><th> </th><th>Name</th><th>Size</th><th>Last Modified</th><th>Current Access Status</th></tr>');	&mt('Using the portfolio file list')));
	$r->print(&Apache::loncommon::start_data_table()
	.&Apache::loncommon::start_data_table_header_row()
	.'<th colspan="2">'.&mt('Actions'). &Apache::loncommon::help_open_topic('Portfolio FileAction').'</th>'
	.'<th> </th><th> </th>'
	.'<th>'.&mt('Name').&Apache::loncommon::help_open_topic('Portfolio OpenFile').'</th>'
	.'<th>'.&mt('Size').'</th>'
	.'<th>'.&mt('Last Modified').'</th>'
	.'<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");

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 $dir_line (sort	foreach my $dir_line (sort
{	{
Line 227 sub display_directory {	Line 320 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);
if ($version) {	if ($version) {
push(@version_lines, [$filename,$dom,$testdir,$size,$mtime,$obs]);	my $fullpath = &prepend_group($current_path.$fname.'.'.$extension);
$versioned{$fname.'.'.$extension} .= $version.",";	push(@{ $versioned{$fullpath} },
	[$filename,$dom,$testdir,$size,$mtime,$obs,]);
} else {	} else {
push(@dir_lines, [$filename,$dom,$testdir,$size,$mtime,$obs]);	push(@dir_lines, [$filename,$dom,$testdir,$size,$mtime,$obs]);
}	}
Line 243 sub display_directory {	Line 335 sub display_directory {
my ($filename,$dom,$testdir,$size,$mtime,$obs) = @$dir_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 $version_flag;
my $show_versions;	my $show_versions;
if ($env{'form.showversions'} eq $filename) {	my $fullpath = &prepend_group($current_path.$filename);
	if ($env{'form.showversions'} =~ /$filename/) {
$show_versions = 'true';	$show_versions = 'true';
}	}
if (exists($versioned{$filename})) {	if (exists($versioned{$fullpath})) {
	my %anchor_fields = (
	'selectfile' => $fullpath,
	'continue' => 'false',
	'currentpath' => $current_path,
	);
if ($show_versions) {	if ($show_versions) {
$version_flag{$filename} = '<a href="portfolio"><img alt="'.&mt('opened folder').'" src="'.$iconpath.'folder_pointer_opened.gif" /></a>';	# Must preserve other possible showversion files
	my $version_remainder = $env{'form.showversions'};
	$version_remainder =~ s/$filename//g;
	$anchor_fields{'showversions'} = $version_remainder;
	$version_flag = &make_anchor('portfolio',\%anchor_fields,
	'<img class="LC_icon" alt="'.&mt('opened folder').'" src="'.$iconpath.'folder_pointer_opened.gif" />');
} else {	} else {
$version_flag{$filename} = '<a href="portfolio?showversions='.$filename.'"><img alt="'.&mt('closed folder').'" src="'.$iconpath.'folder_pointer_closed.gif" /></a>';	# allow multiple files to show versioned
	$anchor_fields{'showversions'} = $env{'form.showversions'}.','.$filename;
	$version_flag = &make_anchor('portfolio',\%anchor_fields,
	'<img class="LC_icon" alt="'.&mt('closed folder').'" src="'.$iconpath.'folder_pointer_closed.gif" />');
}	}
} else {	} else {
$version_flag{$filename} = '';	$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.'folder_closed.gif" /></td>'
$r->print('<td>'.$version_flag{$filename}.&make_anchor($url,$filename.'/',$current_path.$filename.'/',$env{'form.mode'},$env{"form.fieldname"},$env{'form.continue'}).'/</td>');	.'<td>'.&mt('Go to ...').'</td>');
	my %anchor_fields = (
	'selectfile' => $filename.'/',
	'currentpath' => $current_path.$filename.'/',
	'mode' => $env{"form.mode"},
	'fieldname' => $env{"form.fieldname"},
	'continue' => $env{"form.continue"}
	);
	$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';
my $line;	my $line;
my $fullpath = $current_path.$filename;
$fullpath = &prepend_group($fullpath);
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 {
if (exists $locked_files{$fullpath}) {	if (exists $locked_files{$fullpath}) {
$line.='<td colspan="2"><a href="'.$url.'?lockinfo='.$current_path.$filename.&group_args().'">Locked</a></td>';	my %anchor_fields = (
	'lockinfo' => $fullpath
	);
	$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 291 sub display_directory {	Line 412 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 alt="'.&mt('Catalog Information').	my $cat='<img class="LC_icon" 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.&group_args().'">Rename</a>';	my %anchor_fields = (
$line .= '</td><td>'.$version_flag{$filename}.'<a href="'.$href_edit_location.$filename.'.meta">'.$cat.'</a>';	'rename' => $filename,
	currentpath => $current_path
	);
	$line .= &make_anchor($url,\%anchor_fields,&mt('Rename'));
	$line .= '</td><td>'.&make_anchor($href_edit_location.$filename.'.meta',\%anchor_fields,$cat);
	# '<a href="'.$href_edit_location.$filename.'.meta">'.$cat.'</a>';
}	}
$line .= '</td>';	$line .= '</td>';
}	}
Line 332 sub display_directory {	Line 458 sub display_directory {
$curr_access = join('+ ',@allaccesses);	$curr_access = join('+ ',@allaccesses);
}	}
}	}
&display_directory_line($r,$select_mode,$fullpath, $filename, $mtime, $size, $css_class, $line,	&display_directory_line($r,$select_mode, $filename, $mtime, $size, $css_class, $line,
\%access_controls, $curr_access,$now, \%version_flag, $href_location,	\%access_controls, $curr_access,$now, $version_flag, $href_location,
$url, $current_path, $access_admin_text);	$url, $current_path, $access_admin_text);
if ($show_versions) {	if ($show_versions) {
foreach my $dir_line (@version_lines) {	foreach my $dir_line (@{ $versioned{$fullpath} }) {
my ($v_filename,$dom,$testdir,$size,$mtime,$obs) = @$dir_line;	my ($v_filename,$dom,$testdir,$size,$mtime,$obs) =
my ($v_fname,$version,$v_extension) = &Apache::grades::file_name_version_ext($v_filename);	@$dir_line;
if (($v_fname eq $fname)&&($v_extension eq $extension)) {	$line = '<td colspan="2"> </td>';
&display_directory_line($r,$select_mode,$fullpath, $v_filename, $mtime, $size,	&display_directory_line($r,$select_mode, $v_filename, $mtime, $size,
$css_class, $line, \%access_controls, $curr_access, $now,	$css_class, $line, \%access_controls, $curr_access, $now,
\%version_flag, $href_location, $url, $current_path, $access_admin_text, 1);	undef, $href_location, $url, $current_path, $access_admin_text, 1);
}
}	}
}	}
}	}
}	}
}	}
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').'
	</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 431 sub done {	Line 561 sub done {
unless (defined $message) {	unless (defined $message) {
$message='Done';	$message='Done';
}	}
my $result = '<h3><a href="'.$url.'?currentpath='.	my %anchor_fields = (
$env{'form.currentpath'}.	'showversions' => $env{'form.showversions'},
'&fieldname='.$env{'form.fieldname'}.	'currentpath' => $env{'form.currentpath'},
'&mode='.$env{'form.mode'}.	'fieldname' => $env{'form.fieldname'},
&group_args();	'mode' => $env{'form.mode'}
$result .= '">'.&mt($message).'</a></h3>';	);
	my $result = '<h3>'.&make_anchor($url,\%anchor_fields,&mt($message)).'</h3>';
return $result;	return $result;
}	}

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 463 sub delete {	Line 594 sub delete {
}	}

sub delete_confirmed {	sub delete_confirmed {
my ($r,$url)=@_;	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,
	$uname);
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'}.
$delete_file);	$delete_file);
if ($result ne 'ok') {	if ($result ne 'ok') {
$r->print('<span class="LC_error"> An error occured ('.$result.	$r->print('<span class="LC_error">'
') while trying to delete '.&display_file(undef, $delete_file).'</span><br />');	.&mt('An error occurred ([_1]) while trying to delete [_2].'
	,$result,&display_file(undef, $delete_file))
	.'</span><br /><br />');
	} else {
	$r->print(&mt('File: [_1] deleted.',
	&display_file(undef,$delete_file)));
	my $file_name = $env{'form.currentpath'}.$delete_file;
	$file_name = &prepend_group($file_name);
	my %access_controls =
	&Apache::lonnet::get_access_controls($current_permissions,
	$group,$file_name);
	if (keys(%access_controls) > 0) {
	my %changes;
	foreach my $key (keys(%{$access_controls{$file_name}})) {
	$changes{'delete'}{$key} = 1;
	}
	if (keys(%changes) > 0) {
	my ($outcome,$deloutcome,$new_values,$translation) =
	&Apache::lonnet::modify_access_controls($file_name,\%changes,
	$udom,$uname);
	if ($outcome ne 'ok') {
	$r->print('<br />'.&mt("An error occurred ([_1]) while ".
	"trying to delete access controls for the file.",$outcome).
	'</span><br /><br />');
	} else {
	if ($deloutcome eq 'ok') {
	$r->print('<br />'.&mt('Access controls also deleted for the file.').'<br /><br />');
	} else {
	$r->print('<span class="LC_error">'.'<br />'.
	&mt("An error occurred ([_1]) while ".
	"trying to delete access controls for the file.",$deloutcome).
	'</span><br /><br />');
	}
	}
	}
	}
}	}
}	}
$r->print(&done(undef,$url));	$r->print(&done(undef,$url));
Line 483 sub delete_confirmed {	Line 651 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 517 sub delete_dir_confirmed {	Line 684 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="input" size="50" />').'</p>');
&close_form($r,$url);	&close_form($r,$url);
}	}
}	}

sub rename_confirmed {	sub rename_confirmed {
my ($r,$url)=@_;	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 544 sub rename_confirmed {	Line 711 sub rename_confirmed {
$r->print(&done(undef,$url));	$r->print(&done(undef,$url));
return;	return;
}	}
	my $chg_access;
my $result=	my $result=
&Apache::lonnet::renameuserfile($uname,$udom,	&Apache::lonnet::renameuserfile($uname,$udom,
$port_path.$env{'form.currentpath'}.$env{'form.selectfile'},	$port_path.$env{'form.currentpath'}.$env{'form.selectfile'},
$port_path.$env{'form.currentpath'}.$filenewname);	$port_path.$env{'form.currentpath'}.$filenewname);
if ($result ne 'ok') {	if ($result eq 'ok') {
	$chg_access = &access_for_renamed($filenewname,$group,$udom,$uname);
	} else {
$r->print('<span class="LC_error">'.	$r->print('<span class="LC_error">'.
&mt('An errror 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;
}	}
if ($filenewname ne $env{'form.filenewname'}) {	if ($filenewname ne $env{'form.filenewname'}) {
$r->print(&mt("The new file name was changed from:<br />[_1] to [_2]",	$r->print(&mt("The new file name was changed from:<br />[_1] to [_2]",
'<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($chg_access);
$r->print(&done(undef,$url));	$r->print(&done(undef,$url));
}	}

	sub access_for_renamed {
	my ($filenewname,$group,$udom,$uname) = @_;
	my $oldfile = $env{'form.currentpath'}.$env{'form.selectfile'};
	$oldfile = &prepend_group($oldfile);
	my $newfile = $env{'form.currentpath'}.$filenewname;
	$newfile = &prepend_group($newfile);
	my $current_permissions =
	&Apache::lonnet::get_portfile_permissions($udom,$uname);
	my %access_controls =
	&Apache::lonnet::get_access_controls($current_permissions,
	$group,$oldfile);
	my $chg_text;
	if (keys(%access_controls) > 0) {
	my %change_old;
	my %change_new;
	foreach my $key (keys(%{$access_controls{$oldfile}})) {
	$change_old{'delete'}{$key} = 1;
	$change_new{'activate'}{$key} = $access_controls{$oldfile}{$key};
	}
	my ($outcome,$deloutcome,$new_values,$translation) =
	&Apache::lonnet::modify_access_controls($oldfile,\%change_old,
	$udom,$uname);
	if ($outcome ne 'ok') {
	$chg_text ='<br /><br />'.&mt("An error occurred ([_1]) while ".
	"trying to delete access control records for the old name.",$outcome).
	'</span><br />';
	} else {
	if ($deloutcome ne 'ok') {
	$chg_text = '<br /><br /><span class="LC_error"><br />'.
	&mt("An error occurred ([_1]) while ".
	"trying to delete access control records for the old name.",$deloutcome).
	'</span><br />';
	}
	}
	($outcome,$deloutcome,$new_values,$translation) =
	&Apache::lonnet::modify_access_controls($newfile,\%change_new,
	$udom,$uname);
	if ($outcome ne 'ok') {
	$chg_text .= '<br /><br />'.
	&mt("An error occurred ([_1]) while ".
	"trying to update access control records for the new name.",$outcome).
	'</span><br />';
	}
	if ($chg_text eq '') {
	$chg_text = '<br /><br />'.&mt('Access controls updated to reflect the name change.');
	}
	}
	return $chg_text;
	}

sub display_access {	sub display_access {
my ($r,$url,$group,$can_setacl,$port_path) = @_;	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,
$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]',$port_path.$env{'form.currentpath'}.$env{'form.access'}).'</h3>';	my ($header,$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>';	if ($action eq 'chgaccess') {
	$header = '<h3>'.&mt('Allowing others to retrieve file: [_1]',$port_path.$env{'form.currentpath'}.$env{'form.access'}).'</h3>';
	$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.');
	$info .= '<br /><ul><li>'.&mt('Public files are available to anyone without the need for login.');
	$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></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 />";
	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:");
	} 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 .= "<br /><a href=\"/adm/$udom/$uname/aboutme\">http://$ENV{'SERVER_NAME'}/adm/$udom/$uname/aboutme</a><br />";
	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 />';
	}
	} else {
	$header = '<h3>'.&mt('Conditional access controls for file: [_1]',$port_path.$env{'form.currentpath'}.$env{'form.access'}).'</h3>'.
	&explain_conditionals().'<br />';
	}
if ($can_setacl) {	if ($can_setacl) {
&open_form($r,$url);	&open_form($r,$url);
$r->print($header.$info);	$r->print($header.$info);
&access_setting_table($r,$access_controls{$file_name});	$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', &mt('Help on changing settings')));
	$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},
	$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 591 sub display_access {	Line 837 sub display_access {
}	}
}	}

	sub explain_conditionals {
	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('The conditions can include affiliation with a particular course, 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.');
	}

sub view_access_settings {	sub view_access_settings {
my ($r,$url,$access_controls,$aclcount) = @_;	my ($r,$url,$access_controls,$aclcount) = @_;
my ($showstart,$showend);	my ($showstart,$showend);
Line 600 sub view_access_settings {	Line 853 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 611 sub view_access_settings {	Line 864 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 />');
}	}
$r->print('<br /><a href="'.$url.'?currentpath='.$env{'form.currentpath'}.	my %anchor_fields = (
&group_args().'">'.&mt('Return to directory listing').'</a>');	'currentpath' => $env{'form.currentpath'}
	);
	$r->print('<br />'.&make_anchor($url, \%anchor_fields, &mt('Return to directory')));
return;	return;
}	}

Line 627 sub build_access_summary {	Line 882 sub build_access_summary {
domains => 'Conditional: domain-based',	domains => 'Conditional: domain-based',
users => 'Conditional: user-based',	users => 'Conditional: user-based',
course => 'Conditional: course-based',	course => 'Conditional: course-based',
group => 'Conditional: group-based',
);	);
my @allscopes = ('public','guest','domains','users','course','group');	my @allscopes = ('public','guest','domains','users','course');
foreach my $scope (@allscopes) {	foreach my $scope (@allscopes) {
if ((!(exists($todisplay{$scope}))) \|\| (ref($todisplay{$scope}) ne 'HASH')) {	if ((!(exists($todisplay{$scope}))) \|\| (ref($todisplay{$scope}) ne 'HASH')) {
next;	next;
Line 652 sub build_access_summary {	Line 906 sub build_access_summary {
}	}
}	}
$r->print('<td>'.&mt($scope_desc{$scope}));	$r->print('<td>'.&mt($scope_desc{$scope}));
if (($scope eq 'course') \|\| ($scope eq 'group')) {	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);
Line 664 sub build_access_summary {	Line 918 sub build_access_summary {
if ($chg ne 'delete') {	if ($chg ne 'delete') {
if ($scope eq 'guest') {	if ($scope eq 'guest') {
$r->print(&mt('Passphrase').': '.$content->{'password'});	$r->print(&mt('Passphrase').': '.$content->{'password'});
} elsif ($scope eq 'course' \|\| $scope eq 'group') {	} elsif ($scope eq 'course') {
$r->print('<table><tr>');	$r->print('<table width="100%"><tr>');
$r->print('<th>'.&mt('Roles').'</th><th>'.	$r->print('<th>'.&mt('Roles').'</th><th>'.
&mt('Access').'</th><th>'.	&mt('Access').'</th><th>'.
&mt('Sections').'</th>');	&mt('Sections').'</th>');
if ($scope eq 'course') {	$r->print('<th>'.&mt('Groups').'</th>');
$r->print('<th>'.&mt('Groups').'</th>');
} else {
$r->print('<th>'.&mt('Teams').'</th>');
}
$r->print('</tr>');	$r->print('</tr>');
foreach my $id (sort(keys(%{$content->{'roles'}}))) {	foreach my $id (sort(keys(%{$content->{'roles'}}))) {
$r->print('<tr>');	$r->print('<tr>');
Line 697 sub build_access_summary {	Line 947 sub build_access_summary {
} else {	} else {
$r->print(join(',',@{$content->{'roles'}{$id}{$item}}));	$r->print(join(',',@{$content->{'roles'}{$id}{$item}}));
}	}
$r->print('</tr>');	$r->print('</td>');
}	}
$r->print("</table>");	$r->print('</tr>');
}	}
$r->print("</tr></table>");	$r->print('</table>');
} elsif ($scope eq 'domains') {	} elsif ($scope eq 'domains') {
$r->print(&mt('Domains: ').join(',',@{$content->{'dom'}}));	$r->print(&mt('Domains: ').join(',',@{$content->{'dom'}}));
} elsif ($scope eq 'users') {	} elsif ($scope eq 'users') {
Line 747 sub update_access {	Line 997 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]',
$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 803 sub update_access {	Line 1053 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 815 sub update_access {	Line 1065 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','group','domains','users') {	foreach my $newitem ('course','domains','users') {
$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','group','domains','users') {	foreach my $newitem ('course','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>',&mt($newitem),$env{'form.currentpath'}.$env{'form.selectfile'}).'<br /><br />');
$firstitem = $totalnew;	$firstitem = $totalnew;
$lastitem = $totalnew + $env{'form.new'.$newitem};	$lastitem = $totalnew + $env{'form.new'.$newitem};
$totalnew = $lastitem;	$totalnew = $lastitem;
Line 838 sub update_access {	Line 1088 sub update_access {
}	}
&close_form($r,$url);	&close_form($r,$url);
} else {	} else {
$r->print('<br /><a href="'.$url.'?access='.$env{'form.selectfile'}.	my %anchor_fields = (
'&currentpath='.$env{'form.currentpath'}.&group_args().'">'.	'currentpath' => $env{'form.currentpath'},
&mt('Display all access settings for this file').'</a>'.	'access' => $env{'form.selectfile'}
'     '.	);
'<a href="'.$url.'?currentpath='.$env{'form.currentpath'}.	$r->print('<br />'.&make_anchor($url, \%anchor_fields, &mt('Display all access settings for this file')));
&group_args().'">'.&mt('Return to directory listing').'</a>');	delete $anchor_fields{'access'};
	$r->print('     '.&make_anchor($url,\%anchor_fields,&mt('Return to directory')));
}	}
return;	return;
}	}
Line 860 sub build_access_record {	Line 1111 sub build_access_record {

if ($scope eq 'guest') {	if ($scope eq 'guest') {
$record->{'password'} = $env{'form.password'};	$record->{'password'} = $env{'form.password'};
} elsif (($scope eq 'course') \|\| ($scope eq 'group')) {	} elsif ($scope eq 'course') {
$record->{'domain'} = $env{'form.crsdom_'.$num};	$record->{'domain'} = $env{'form.crsdom_'.$num};
$record->{'number'} = $env{'form.crsnum_'.$num};	$record->{'number'} = $env{'form.crsnum_'.$num};
my @role_ids;	my @role_ids;
Line 942 sub sort_users {	Line 1193 sub sort_users {
}	}

sub access_setting_table {	sub access_setting_table {
my ($r,$access_controls) = @_;	my ($r,$url,$filename,$access_controls,$action) = @_;
my ($public,$publictext);	my ($public,$publictext);
$publictext = &mt('Off');	$publictext ='Off';
my ($guest,$guesttext);	my ($guest,$guesttext);
$guesttext = &mt('Off');	$guesttext = 'Off';
my @courses = ();	my @courses = ();
my @groups = ();
my @domains = ();	my @domains = ();
my @users = ();	my @users = ();
my $now = time;	my $now = time;
my $then = $now + (606024*180); # six months approx.	my $then = $now + (606024*180); # six months approx.
my ($num,$scope,$publicnum,$guestnum);	my ($num,$scope,$publicnum,$guestnum);
my (%acl_count,%end,%start);	my (%acl_count,%end,%start,%conditionals);
foreach my $key (sort(keys(%{$access_controls}))) {	foreach my $key (sort(keys(%{$access_controls}))) {
($num,$scope,$end{$key},$start{$key}) = &unpack_acc_key($key);	($num,$scope,$end{$key},$start{$key}) = &unpack_acc_key($key);
if ($scope eq 'public') {	if ($scope eq 'public') {
Line 965 sub access_setting_table {	Line 1215 sub access_setting_table {
$guest=$key;	$guest=$key;
$guestnum = $num;	$guestnum = $num;
$guesttext = &acl_status($start{$key},$end{$key},$now);	$guesttext = &acl_status($start{$key},$end{$key},$now);
} elsif ($scope eq 'course') {	} else {
push(@courses,$key);	$conditionals{$scope}{$key} = $$access_controls{$key};
} elsif ($scope eq 'group') {	if ($scope eq 'course') {
push(@groups,$key);	push(@courses,$key);
} elsif ($scope eq 'domains') {	} elsif ($scope eq 'domains') {
push(@domains,$key);	push(@domains,$key);
} elsif ($scope eq 'users') {	} elsif ($scope eq 'users') {
push(@users,$key);	push(@users,$key);
	}
}	}
$acl_count{$scope} ++;	$acl_count{$scope} ++;
}	}
$r->print('<table border="0"><tr><td valign="top">');	$r->print('<table border="0"><tr><td valign="top">');
$r->print('<h3>'.&mt('Public access:').' '.$publictext.'</h3>');	if ($action eq 'chgaccess') {
	&standard_settings($r,$now,$then,$url,$filename,\%acl_count,\%start,
	\%end,$public,$publicnum,$publictext,$guest,$guestnum,
	$guesttext,$access_controls,%conditionals);
	} else {
	&condition_setting($r,$access_controls,$now,$then,\%acl_count,
	\@domains,\@users,\@courses);
	}
	$r->print('</td></tr></table>');
	}

	sub standard_settings {
	my ($r,$now,$then,$url,$filename,$acl_count,$start,$end,$public,$publicnum,
	$publictext,$guest,$guestnum,$guesttext,$access_controls,%conditionals)=@_;
	$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 985 sub access_setting_table {	Line 1250 sub access_setting_table {
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
if ($public) {	if ($public) {
$r->print('<td>'.&actionbox('old',$publicnum,'public').'</td><td>'.	$r->print('<td>'.&actionbox('old',$publicnum,'public').'</td><td>'.
&dateboxes($publicnum,$start{$public},$end{$public}).'</td>');	&dateboxes($publicnum,$start->{$public},$end->{$public}).'</td>');
} else {	} else {
$r->print('<td>'.&actionbox('new','0','public').'</td><td>'.	$r->print('<td>'.&actionbox('new','0','public').'</td><td>'.
&dateboxes('0',$now,$then).'</td>');	&dateboxes('0',$now,$then).'</td>');
Line 993 sub access_setting_table {	Line 1258 sub access_setting_table {
$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:').' '.$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 1004 sub access_setting_table {	Line 1269 sub access_setting_table {
if ($guest) {	if ($guest) {
$passwd = $$access_controls{$guest}{'password'};	$passwd = $$access_controls{$guest}{'password'};
$r->print('<td>'.&actionbox('old',$guestnum,'guest').'</td><td>'.	$r->print('<td>'.&actionbox('old',$guestnum,'guest').'</td><td>'.
&dateboxes($guestnum,$start{$guest},$end{$guest}).'</td>');	&dateboxes($guestnum,$start->{$guest},$end->{$guest}).'</td>');
} else {	} else {
$r->print('<td>'.&actionbox('new','1','guest').'</td><td>'.	$r->print('<td>'.&actionbox('new','1','guest').'</td><td>'.
&dateboxes('1',$now,$then).'</td>');	&dateboxes('1',$now,$then).'</td>');
Line 1013 sub access_setting_table {	Line 1278 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>'.
&access_element($r,'domains',\%acl_count,\@domains,$access_controls,$now,$then);	'<tr><td colspan="3">');
	my $numconditionals = 0;
	my $conditionstext;
	my %cond_status;
	foreach my $scope ('domains','users','course') {
	$numconditionals += $acl_count->{$scope};
	if ($acl_count->{$scope} > 0) {
	if ($conditionstext ne 'Active') {
	foreach my $key (keys(%{$conditionals{$scope}})) {
	$conditionstext = &acl_status($start->{$key},$end->{$key},$now);
	if ($conditionstext eq 'Active') {
	last;
	}
	}
	}
	}
	}
	if ($conditionstext eq '') {
	$conditionstext = 'Off';
	}
	my %anchor_fields = (
	'access' => $env{'form.selectfile'},
	'action' => 'chgconditions',
	'currentpath' => $env{'form.currentpath'},
	);
	$r->print('<h3>'.&mt('Conditional access: [_1]',&mt($conditionstext)).'</h3>');
	if ($numconditionals > 0) {
	my $count = 1;
	my $chg = 'none';
	$r->print(&mt('You have previously set [_1] conditional access controls.',$numconditionals).' '.&make_anchor($url,\%anchor_fields,&mt('Change Conditions')).'<br /><br />');
	$r->print(&Apache::loncommon::start_data_table());
	$r->print(&Apache::loncommon::start_data_table_header_row());
	$r->print('<th>'.&mt('Access control').'</th><th>'.&mt('Dates available').
	'</th><th>'.&mt('Additional information').'</th>');
	$r->print(&Apache::loncommon::end_data_table_header_row());
	&build_access_summary($r,$count,$chg,%conditionals);
	$r->print(&Apache::loncommon::end_data_table());
	} else {
	$r->print(&make_anchor($url,\%anchor_fields,&mt('Add conditional access')).' '.&mt('based on domain, username, or course affiliation.'));
	}
	}

	sub condition_setting {
	my ($r,$access_controls,$now,$then,$acl_count,$domains,$users,$courses) = @_;
	$r->print('<tr><td valign="top">');
	&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 ($acl_count->{course} > 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) {
$r->print('</tr><tr><td colspan="3"> </td></tr><tr><td colspan="3" valign="top">');
} else {
$r->print('<td> </td><td valign="top">');
}
&access_element($r,'group',\%acl_count,\@groups,$access_controls,$now,$then);
$r->print('</td></tr></table>');	$r->print('</td></tr></table>');
}	}

sub acl_status {	sub acl_status {
my ($start,$end,$now) = @_;	my ($start,$end,$now) = @_;
if ($start > $now) {	if ($start > $now) {
return &mt('Inactive');	return 'Inactive';
}	}
if ($end && $end<$now) {	if ($end && $end<$now) {
return &mt('Inactive');	return 'Inactive';
}	}
return &mt('Active');	return 'Active';
}	}

sub access_element {	sub access_element {
Line 1050 sub access_element {	Line 1354 sub access_element {
my $title = $type;	my $title = $type;
$title =~ s/s$//;	$title =~ s/s$//;
$title =~ s/^(\w)/uc($1)/e;	$title =~ s/^(\w)/uc($1)/e;
$r->print('<h3>'.&mt('[_1]-based conditional access: ',$title));	$r->print('<h3>'.&mt('[_1]-based conditional access: ',&mt($title)));
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 1077 sub display_access_row {	Line 1381 sub display_access_row {
$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>'.&mt($uctype).'</th><th>'.
&mt('Dates available').'</th>');	&mt('Dates available').'</th>');
if (($type eq 'course') \|\| ($type eq 'group')) {	if ($type eq 'course' && $status eq 'old') {
$r->print('<th>'.&mt('Allowed [_1] member affiliations',$type).	$r->print('<th>'.&mt('Allowed [_1] member affiliations',$type).
'</th>');	'</th>');
$colspan ++;	$colspan ++;
} elsif ($type eq 'domains') {	} elsif ($type eq 'domains') {
@all_doms = &Apache::loncommon::get_domains();	@all_doms = sort(&Apache::lonnet::all_domains());
}	}
$r->print(&Apache::loncommon::end_data_table_header_row());	$r->print(&Apache::loncommon::end_data_table_header_row());
foreach my $key (@{$items}) {	foreach my $key (@{$items}) {
$r->print(&Apache::loncommon::start_data_table_row());	$r->print(&Apache::loncommon::start_data_table_row());
if (($type eq 'course') \|\| ($type eq 'group')) {	if ($type eq 'course') {
&course_row($r,$status,$type,$key,$access_controls,$now,$then);	&course_row($r,$status,$type,$key,$access_controls,$now,$then);
} elsif ($type eq 'domains') {	} elsif ($type eq 'domains') {
&domains_row($r,$status,$key,\@all_doms,$access_controls,$now,	&domains_row($r,$status,$key,\@all_doms,$access_controls,$now,
Line 1105 sub display_access_row {	Line 1409 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.',&mt($type)).'<br />'
&additional_item($type));	.&additional_item($type));
}	}
return;	return;
}	}
Line 1114 sub display_access_row {	Line 1418 sub display_access_row {
sub course_js {	sub course_js {
return qq\|	return qq\|
<script type="text/javascript">	<script type="text/javascript">
function setRoleOptions(caller,num,cdom,cnum,type) {	function setRoleOptions(num,roleid,cdom,cnum,type) {
addIndexnum = getCallerIndex(caller);	updateIndexNum = getIndexByValue('update',num);
updateIndexnum = getIndex('update',num);	var addItem = 'add_role_'+num;
if (caller.checked) {	var addIndexNum = getIndexByName(addItem);
document.portform.elements[updateIndexnum].checked = true;	if (document.portform.elements[addItem].checked) {
var url = '/adm/portfolio?action=rolepicker&setroles='+addIndexnum+'&cnum='+cnum+'&cdom='+cdom+'&type='+type;	document.portform.elements[updateIndexNum].checked = true;
	var url = '/adm/portfolio?action=rolepicker&setroles='+num+'_'+roleid+'&cnum='+cnum+'&cdom='+cdom+'&type='+type;
var title = 'Roles_Chooser';	var title = 'Roles_Chooser';
var options = 'scrollbars=1,resizable=1,menubar=0';	var options = 'scrollbars=1,resizable=1,menubar=0';
options += ',width=700,height=600';	options += ',width=700,height=600';
rolebrowser = open(url,title,options,'1');	rolebrowser = open(url,title,options,'1');
rolebrowser.focus();	rolebrowser.focus();
} else {	} else {
for (var j=0;j<5;j++) {	addArray = new Array ('role','access','section','group');
document.portform.elements[addIndexnum+j].value = '';	for (var j=0;j<addArray.length;j++) {
	var itemIndex = getIndexByName(addArray[j]+'_'+num+'_'+roleid);
	document.portform.elements[itemIndex].value = '';
}	}
}	}
}	}

function getCallerIndex(caller) {	function getIndexByName(item) {
for (var i=0;i<document.portform.elements.length;i++) {	for (var i=0;i<document.portform.elements.length;i++) {
if (document.portform.elements[i] == caller) {	if (document.portform.elements[i].name == item) {
return i;	return i;
}	}
}	}
return -1;	return -1;
}	}

function getIndex(name,value) {	function getIndexByValue(name,value) {
for (var i=0;i<document.portform.elements.length;i++) {	for (var i=0;i<document.portform.elements.length;i++) {
if (document.portform.elements[i].name == name && document.portform.elements[i].value == value) {	if (document.portform.elements[i].name == name && document.portform.elements[i].value == value) {
return i;	return i;
Line 1164 sub course_row {	Line 1471 sub course_row {
}	}
my $js = &Apache::loncommon::coursebrowser_javascript($defdom)	my $js = &Apache::loncommon::coursebrowser_javascript($defdom)
.&course_js();	.&course_js();
my $crsgrptext = 'Groups';
if ($type eq 'group') {
$crsgrptext = 'Teams';
}
my $uctype = $type;	my $uctype = $type;
$uctype =~ s/^(\w)/uc($1)/e;	$uctype =~ s/^(\w)/uc($1)/e;
my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,	my ($num,$scope,$end,$start) = &set_identifiers($status,$item,$now,$then,
Line 1178 sub course_row {	Line 1481 sub course_row {
my %course_description = &Apache::lonnet::coursedescription($cid);	my %course_description = &Apache::lonnet::coursedescription($cid);
$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,undef,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,$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>'.&dateboxes($num,$start,$end).'</td>');	$r->print('<td>'.&dateboxes($num,$start,$end));
$r->print('<td><table><tr>');	my $newrole_id = 1;
$r->print('<th>'.&mt('Action').'</th><th>'.&mt('Roles').'</th><th>'.
&mt('Access').'</th><th>'.&mt('Sections').'</th><th>'.
&mt($crsgrptext).'</th></tr>');
if ($status eq 'old') {	if ($status eq 'old') {
	$r->print('</td><td>');
my $max_id = 0;	my $max_id = 0;
foreach my $role_id (sort(keys(%{$content->{'roles'}}))) {	if (keys(%{$content->{'roles'}}) > 0) {
if ($role_id > $max_id) {	$r->print('<table><tr><th>'.&mt('Action').'</th>'.
$max_id = $role_id;	'<th>'.&mt('Roles').'</th>'.
}	'<th>'.&mt('Access').'</th>'.
$max_id ++;	'<th>'.&mt('Sections').'</th>'.
my $role_selects = &role_selectors($num,$role_id,$status,$type,$content,'display');	'<th>'.&mt('Groups').'</th></tr>');
$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>');	foreach my $role_id (sort(keys(%{$content->{'roles'}}))) {
}	if ($role_id > $max_id) {
$r->print('</table><br />'.&mt('Add a roles-based condition').' <input type="checkbox" name ="add_role_'.$num.'" onClick="javascript:setRoleOptions(this,'."'$num','$content->{'domain'}','$content->{'number'}','$uctype'".')" value="'.$max_id.'" /><input type="hidden" name="role_'.$num.'_'.$max_id.'" /><input type="hidden" name="access_'.$num.'_'.$max_id.'" /><input type="hidden" name="section_'.$num.'_'.$max_id.'" /><input type="hidden" name="group_'.$num.'_'.$max_id.'" /></td>');	$max_id = $role_id;
} elsif ($status eq 'new') {	}
my $role_id = 1;	$max_id ++;
my $role_selects = &role_selectors($num,$role_id,$status,$type,undef,'display');	my $role_selects = &role_selectors($num,$role_id,$type,$content,'display');
$r->print('<tr><td><input type="checkbox" name="add_role_'.$num.'" value="'.$role_id.'" checked="checked" />'.&mt('Add').'<input type="hidden" name="grplist_'.$num.'_'.$role_id.'" /></td>'.$role_selects);	$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('</tr></table></td>');	}
	$r->print('</table>');
	}
	$r->print('<br />'.&mt('Add a roles-based condition').
	' <input type="checkbox" name ="add_role_'.
	$num.'" onClick="javascript:setRoleOptions('."'$num',
	'$max_id','$content->{'domain'}','$content->{'number'}',
	'$uctype'".')" value="" />');
	$newrole_id = $max_id;
	} else {
	$r->print('<input type="hidden" name ="add_role_'.$num.'" value="" />');
}	}
	$r->print(&add_course_role($num,$newrole_id));
	$r->print('</td>');
return;	return;
}	}

	sub add_course_role {
	my ($num,$max_id) = @_;
	my $output;
	$output .='<input type="hidden" name="role_'.$num.'_'.$max_id.'" />'.
	'<input type="hidden" name="access_'.$num.'_'.$max_id.'" />'.
	'<input type="hidden" name="section_'.$num.'_'.$max_id.'" />'.
	'<input type="hidden" name="group_'.$num.'_'.$max_id.'" />';
	return $output;
	}

sub domains_row {	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,
Line 1246 sub users_row {	Line 1569 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 $output = &mt('Add new [_1] condition(s)?',&mt($type)).' '.&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') {
$output .= '<input type="checkbox" name="activate" value="'.$num.'" />'.	my $checkstate;
	if ($scope eq 'domains' \|\| $scope eq 'users' \|\| $scope eq 'course') {
	$checkstate = 'checked="checked"';
	}
	$output .= '<input type="checkbox" name="activate" value="'.$num.'" '.
	$checkstate.' />'.
&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 1277 sub dateboxes {	Line 1605 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 1302 sub set_identifiers {	Line 1630 sub set_identifiers {
}	}

sub role_selectors {	sub role_selectors {
my ($num,$role_id,$status,$type,$content,$caller) = @_;	my ($num,$role_id,$type,$content,$caller) = @_;
my ($output,$cdom,$cnum,$longid);	my ($output,$cdom,$cnum,$longid);
if ($caller eq 'display') {	if ($caller eq 'display') {
$longid = '_'.$num.'_'.$role_id;	$longid = '_'.$num.'_'.$role_id;
if ($status eq 'new') {	$cdom = $$content{'domain'};
foreach my $item ('role','access','section','group') {	$cnum = $$content{'number'};
$output .= '<td><select name="'.$item.$longid.'">'.
'<option value="">'.&mt('Pick [_1] first',$type).
'</option></select></td>';
}
return $output;
} else {
$cdom = $$content{'domain'};
$cnum = $$content{'number'};
}
} elsif ($caller eq 'rolepicker') {	} elsif ($caller eq 'rolepicker') {
$cdom = $env{'form.cdom'};	$cdom = $env{'form.cdom'};
$cnum = $env{'form.cnum'};	$cnum = $env{'form.cnum'};
Line 1354 sub role_selectors {	Line 1673 sub role_selectors {
'role' => $allroles,	'role' => $allroles,
'access' => \@allaccesses,	'access' => \@allaccesses,
'section' => $sections,	'section' => $sections,
'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="true" size="4">'."\n";
Line 1378 sub role_selectors {	Line 1697 sub role_selectors {

sub role_options_window {	sub role_options_window {
my ($r) = @_;	my ($r) = @_;
my $cdom = $env{'form.cdom'};
my $cnum = $env{'form.cnum'};
my $type = $env{'form.type'};	my $type = $env{'form.type'};
my $addindex = $env{'form.setroles'};	my $rolenum = $env{'form.setroles'};
my $grouptitle = 'Groups';	my ($num,$role_id) = ($rolenum =~ /^([\d_]+)_(\d+)$/);
if ($type eq 'Group') {	my $role_elements;
$grouptitle = 'Teams';	foreach my $item ('role','access','section','group') {
}	$role_elements .= "'".$item.'_'.$rolenum."',";
my $role_selects = &role_selectors(1,1,'new',$type,undef,'rolepicker');	}
	$role_elements =~ s/,$//;
	my $role_selects = &role_selectors($num,$role_id,$type,undef,
	'rolepicker');
$r->print(<<"END_SCRIPT");	$r->print(<<"END_SCRIPT");
<script type="text/javascript">	<script type="text/javascript">
function setRoles() {	function setRoles() {
var addidx = $addindex+1;	var role_elements = new Array($role_elements);
for (var i=0; i<4; i++) {	for (var i=0; i<role_elements.length; i++) {
var copylist = '';	var copylist = '';
for (var j=0; j<document.rolepicker.elements[i].length; j++) {	for (var j=0; j<document.rolepicker.elements[i].length; j++) {
if (document.rolepicker.elements[i].options[j].selected) {	if (document.rolepicker.elements[i].options[j].selected) {
Line 1399 function setRoles() {	Line 1719 function setRoles() {
}	}
}	}
copylist = copylist.substr(0,copylist.length-1);	copylist = copylist.substr(0,copylist.length-1);
opener.document.portform.elements[addidx+i].value = copylist;	var openerItem = getIndexByName(role_elements[i]);
	opener.document.portform.elements[openerItem].value = copylist;
}	}
	var roleAdder = getIndexByName('add_role_$num');
	opener.document.portform.elements[roleAdder].value = '$role_id';
self.close();	self.close();
}	}

	function getIndexByName(item) {
	for (var i=0;i<opener.document.portform.elements.length;i++) {
	if (opener.document.portform.elements[i].name == item) {
	return i;
	}
	}
	return -1;
	}

</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(&mt('Select roles, course status, section(s) and group(s) for users who will be able to access the portfolio file.'));
$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($grouptitle).'</th></tr><tr>'.$role_selects.'</tr></table><br /><input type="button" name="rolepickbutton" value="Save selections" onclick="setRoles()" />');	$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()" />');
return;	return;
}	}

Line 1439 ENDSMP	Line 1772 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>'
	);
}	}

sub upload {
my ($r,$url,$group)=@_;
my $fname=$env{'form.uploaddoc.filename'};
my $filesize = (length($env{'form.uploaddoc'})) / 1000; #express in k (1024?)
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);

my $portfolio_root=&get_portfolio_root();	sub check_for_upload {
my ($uname,$udom) = &get_name_dom();	my ($path,$fname,$group,$element) = @_;
	my $disk_quota = &get_quota($group);
	my $filesize = (length($env{'form.'.$element})) / 1000; #express in k (1024?)
	my $portfolio_root = &get_portfolio_root();
my $port_path = &get_port_path();	my $port_path = &get_port_path();
	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);	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) {
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 = $path.$file_name;
$file_name = &prepend_group($file_name);	$file_name = &prepend_group($file_name);
$found_file = 1;	$found_file = 1;
# FIXME I think this is incorrect, prepend_group took care of this?
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;
}	}
}	}
}	}
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){
$r->print('<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>'.
$r->print(&done('Back',$url));	'<br />'.&mt('Disk quota is [_1] kilobytes. Your current disk usage is [_2] kilobytes.',$disk_quota,$current_disk_usage);
}	return ('will_exceed_quota',$msg);
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>'.	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>');
$r->print(&done('Back',$url));	$msg .= '</span><br />';
} else {	$msg .= &mt('You will be able to rename or delete existing [_1] after a grade has been assigned.','<span class="LC_filename">'.$fname.'</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>'.	return ('file_locked',$msg);
'<br />To upload, rename or delete existing '.$fname.' in '.$port_path.$env{'form.currentpath'});	} else {
$r->print(&done('Back',$url));	my $msg = '<span class="LC_error">';
}	$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'});
} else {	$msg .= '</span>';
my $result=&Apache::lonnet::userfileupload('uploaddoc','',	$msg .= '<br />';
$port_path.$env{'form.currentpath'});	$msg .= &mt('To upload, rename or delete existing [_1] in [_2].','<span class="LC_filename">'.$fname.'</span>', $port_path.$env{'form.currentpath'});
if ($result !~ m\|^/uploaded/\|) {	return ('file_exists',$msg);
$r->print('<span class="LC_error">'.'An errror occured ('.$result.	}
') while trying to upload '.&display_file().'</span><br />');	}
$r->print(&done('Back',$url));	}
} else {
$r->print(&done(undef,$url));	sub upload {
	my ($r,$url,$group)=@_;
	my $fname=&Apache::lonnet::clean_filename($env{'form.uploaddoc.filename'});
	my $disk_quota = &get_quota($group);
	my $portfolio_root = &get_portfolio_root();
	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'
	\|\| $state eq 'file_locked'
	\|\| $state eq 'file_exists' ) {
	$r->print($msg.&done('Back',$url));
	return;
	}

	my (%allfiles,%codebase,$mode);
	if ($env{'form.uploaddoc.filename'} =~ m/(\.htm\|\.html\|\.shtml)$/i) {
	if ($env{'form.parserflag'}) {
	$mode = 'parse';
}	}
}	}
	my $result=
	&Apache::lonnet::userfileupload('uploaddoc','',
	$port_path.$env{'form.currentpath'},
	$mode,\%allfiles,\%codebase);
	if ($result !~ m\|^/uploaded/\|) {
	$r->print('<span class="LC_error">'.&mt('An error occurred ([_1]) while trying to upload [_2].'
	,$result,&display_file()).'</span><br />');
	$r->print(&done('Back',$url));
	} else {
	if (%allfiles) {
	if (!&suppress_embed_prompt()) {
	my $state = <<STATE;
	<input type="hidden" name="action" value="upload_embedded" />
	<input type="hidden" name="currentpath" value="$env{'form.currentpath'}" />
	<input type="hidden" name="fieldname" value="$env{'form.fieldname'}" />
	<input type="hidden" name="mode" value="$env{'form.mode'}" />
	STATE
	$r->print("<h2>".&mt("Reference Warning")."</h2>");
	$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>".&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 {
	$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'};
$file_name = &prepend_group($file_name);	$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') {	next if (ref($array_item) ne 'ARRAY');
my $filetext;
if (defined($group)) {	my $filetext;
$filetext = '<strong>'.$env{'form.lockinfo'}.	if (defined($group)) {
'</strong> (group: '.$group.')';	$filetext = '<strong>'.$env{'form.lockinfo'}.
} else {	'</strong> (group: '.$group.')';
$filetext = '<strong>'.$file_name.'</strong>';	} else {
}	$filetext = '<strong>'.$file_name.'</strong>';
$r->print(&mt('[_1] was submitted in response to problem: ',	}
$filetext).
'<strong>'.&Apache::lonnet::gettitle($$array_item[0]).	my $title ='<strong>'.&Apache::lonnet::gettitle($$array_item[0]).
'</strong><br />');	'</strong><br />';
my %course_description = &Apache::lonnet::coursedescription($$array_item[1]);	if ($$array_item[-1] eq 'graded') {
$r->print(&mt('In the course: <strong>[_1]</strong><br />',	$r->print(&mt('[_1] was submitted in response to problem: [_2]',
$course_description{'description'}));	$filetext,$title));
# $r->print('the third is '.$$array_item[2].'<br>');	} elsif ($$array_item[-1] eq 'handback') {
# $r->print("item is $$array_item[0]<br> and $$array_item[0]");	$r->print(&mt('[_1] was handed back in response to problem: [_2]',
}	$filetext,$title));
	} else {
	# submission style lock
	$r->print(&mt('[_1] was submitted in response to problem: [_2]',
	$filetext,$title));
	}
	my %course_description =
	&Apache::lonnet::coursedescription($$array_item[1]);
	if ( $course_description{'description'} ne '') {
	$r->print(&mt('In the course:').' <strong>'.$course_description{'description'}.'</strong><br />');
	}
}	}
}	}
$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 1566 sub createdir {	Line 1964 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 1575 sub createdir {	Line 1973 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));
}	}

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

sub get_group_quota {	sub get_group_quota {
Line 1616 sub get_group_quota {	Line 2024 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) = @_;	my ($portfolio_root,$path,$group) = @_;
my ($uname,$udom) = &get_name_dom();	$path \|\|= $env{'form.currentpath'};
return &Apache::lonnet::dirlist($env{'form.currentpath'},	my ($uname,$udom) = &get_name_dom($group);
$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 1651 sub prepend_group {	Line 2061 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 1683 sub missing_priv {	Line 2093 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'})) {
Line 1692 sub missing_priv {	Line 2102 sub missing_priv {
} 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 1721 sub coursegrp_portfolio_header {	Line 2131 sub coursegrp_portfolio_header {
return $output;	return $output;
}	}

	sub get_quota {
	my ($group) = @_;
	my $disk_quota;
	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;
	}
	} else {
	$disk_quota = &Apache::loncommon::get_user_quota($env{'user.name'},
	$env{'user.domain'}); #expressed in Mb
	$disk_quota = 1000 * $disk_quota; # convert from Mb to kb
	}
	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
Line 1748 sub handler {	Line 2186 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 1760 sub handler {	Line 2198 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 files 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 1817 sub handler {	Line 2255 sub handler {
$r->print(&Apache::loncommon::start_page($title));	$r->print(&Apache::loncommon::start_page($title));
}	}
$r->rflush();	$r->rflush();
	my ($blocked,$blocktext) =
	&Apache::loncommon::blocking_status('port',$uname,$udom);
	if ($blocked) {
	$r->print($blocktext);
	$r->print(&Apache::loncommon::end_page());
	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 1839 sub handler {	Line 2282 sub handler {
} else {	} else {
&missing_priv($r,$url,'upload');	&missing_priv($r,$url,'upload');
}	}
	} elsif ($env{'form.action'} eq 'upload_embedded') {
	if ($can_upload) {
	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 {
	&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);	&delete_confirmed($r,$url,$group);
} else {	} else {
&missing_priv($r,$url,'delete');	&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);	&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 1865 sub handler {	Line 2321 sub handler {
}	}
} 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);	&rename_confirmed($r,$url,$group);
} else {	} else {
&missing_priv($r,$url,'rename');	&missing_priv($r,$url,'rename');
}	}
Line 1873 sub handler {	Line 2329 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');
}	}
} elsif ($env{'form.access'}) {	} elsif ($env{'form.access'}) {
$env{'form.selectfile'} = $env{'form.access'};	$env{'form.selectfile'} = $env{'form.access'};
$env{'form.action'} = 'chgaccess';	if (!defined($env{'form.action'})) {
&display_access($r,$url,$group,$can_setacl,$port_path);	$env{'form.action'} = 'chgaccess';
} elsif ($env{'form.action'} eq 'chgaccess') {	}
	&display_access($r,$url,$group,$can_setacl,$port_path,$env{'form.action'});
	} elsif (($env{'form.action'} eq 'chgaccess') \|\|
	($env{'form.action'} eq 'chgconditions')) {
if ($can_setacl) {	if ($can_setacl) {
&update_access($r,$url,$group,$port_path);	&update_access($r,$url,$group,$port_path);
} else {	} else {
Line 1895 sub handler {	Line 2354 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 1910 sub handler {	Line 2369 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 1926 sub handler {	Line 2385 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);

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.140
changed lines
	Added in v.1.200