Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/portfolio.pm between versions 1.60 and 1.87

version 1.60, 2004/12/04 02:15:42	version 1.87, 2005/08/26 21:47:25
Line 29 use Apache::lonnet;	Line 29 use Apache::lonnet;
use Apache::lontexconvert;	use Apache::lontexconvert;
use Apache::lonfeedback;	use Apache::lonfeedback;
use Apache::lonlocal;	use Apache::lonlocal;
	use Apache::lonnet;

# 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 ($filename, $current_path, $current_mode, $field_name) = @_;	my ($filename, $current_path, $current_mode, $field_name, $continue_select) = @_;
my $anchor = '<a href="/adm/portfolio?selectfile='.$filename.'&currentpath='.$current_path.'&mode='.$current_mode.'&fieldname='.$field_name.'">'.$filename.'</a>';	if ($continue_select ne 'true') {$continue_select = 'false'};
	my $anchor = '<a href="/adm/portfolio?selectfile='.$filename.'&currentpath='.$current_path.'&mode='.$current_mode.'&continue='.$continue_select.'&fieldname='.$field_name.'">'.$filename.'</a>';
return $anchor;	return $anchor;
}	}
my $dirptr=16384;	my $dirptr=16384;
Line 46 sub display_common {	Line 48 sub display_common {
my $displayOut = '<form method="post" enctype="multipart/form-data">';	my $displayOut = '<form method="post" enctype="multipart/form-data">';
$displayOut .= '<input name="uploaddoc" type="file" />'.	$displayOut .= '<input name="uploaddoc" type="file" />'.
'<input type="hidden" name="currentpath" value="'.$current_path.'" />'.	'<input type="hidden" name="currentpath" value="'.$current_path.'" />'.
'<input type="hidden" name="action" value="'.$ENV{"form.action"}.'" />'.	'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'.
'<input type="hidden" name="fieldname" value="'.$ENV{"form.fieldname"}.'" />'.	'<input type="hidden" name="fieldname" value="'.$env{"form.fieldname"}.'" />'.
'<input type="hidden" name="mode" value="'.$ENV{"form.mode"}.'" />'.	'<input type="hidden" name="mode" value="'.$env{"form.mode"}.'" />'.
'<input type="submit" name="storeupl" value="Upload" />'.	'<input type="submit" name="storeupl" value="Upload" />'.
'</form>';	'</form>';
$r->print($displayOut);	$r->print($displayOut);
Line 56 sub display_common {	Line 58 sub display_common {
$displayOut = '<form method="post">';	$displayOut = '<form method="post">';
$displayOut .= '<input name="newdir" type="input" />'.	$displayOut .= '<input name="newdir" type="input" />'.
'<input type="hidden" name="currentpath" value="'.$current_path.'" />'.	'<input type="hidden" name="currentpath" value="'.$current_path.'" />'.
'<input type="hidden" name="action" value="'.$ENV{"form.action"}.'" />'.	'<input type="hidden" name="action" value="'.$env{"form.action"}.'" />'.
'<input type="hidden" name="fieldname" value="'.$ENV{"form.fieldname"}.'" />'.	'<input type="hidden" name="fieldname" value="'.$env{"form.fieldname"}.'" />'.
'<input type="hidden" name="mode" value="'.$ENV{"form.mode"}.'" />'.	'<input type="hidden" name="mode" value="'.$env{"form.mode"}.'" />'.
'<input type="submit" name="createdir" value="'.&mt("Create Directory").'" />'.	'<input type="submit" name="createdir" value="'.&mt("Create Directory").'" />'.
'</form>';	'</form>';
$r->print($displayOut);	$r->print($displayOut);
$r->print('</td></tr></table>');	$r->print('</td></tr></table>');
my @tree = split (/\//,$current_path);	my @tree = split (/\//,$current_path);
$r->print('<font size="+2">'.&make_anchor('portfolio','/',$ENV{"form.mode"},$ENV{"form.fieldname"}).'/');	$r->print('<font size="+2">'.&make_anchor('portfolio','/',$env{"form.mode"},$env{"form.fieldname"},$env{"form.continue"}).'/');
if (@tree > 1){	if (@tree > 1){
my $newCurrentPath = '';	my $newCurrentPath = '';
for (my $i = 1; $i< @tree; $i++){	for (my $i = 1; $i< @tree; $i++){
$newCurrentPath .= $tree[$i].'/';	$newCurrentPath .= $tree[$i].'/';
$r->print(&make_anchor($tree[$i],'/'.$newCurrentPath, $ENV{"form.mode"},$ENV{"form.fieldname"}).'/');	$r->print(&make_anchor($tree[$i],'/'.$newCurrentPath, $env{"form.mode"},$env{"form.fieldname"}, $env{"form.continue"}).'/');
}	}
}	}
$r->print('</font>');	$r->print('</font>');
&Apache::lonhtmlcommon::store_recent('portfolio',$current_path,$current_path);	&Apache::lonhtmlcommon::store_recent('portfolio',$current_path,$current_path);
$r->print('<br /><form method=post action="/adm/portfolio?mode='.$ENV{"form.mode"}.'&fieldname='.$ENV{"form.fieldname"}.'">'.	$r->print('<br /><form method=post action="/adm/portfolio?mode='.$env{"form.mode"}.'&fieldname='.$env{"form.fieldname"}.'">'.
&Apache::lonhtmlcommon::select_recent('portfolio','currentpath',	&Apache::lonhtmlcommon::select_recent('portfolio','currentpath',
'this.form.submit();'));	'this.form.submit();'));
$r->print("</form>");	$r->print("</form>");
Line 83 sub display_directory {	Line 85 sub display_directory {
my ($r,$current_path,$is_empty,$dir_list)=@_;	my ($r,$current_path,$is_empty,$dir_list)=@_;
my $iconpath= $r->dir_config('lonIconsURL') . "/";	my $iconpath= $r->dir_config('lonIconsURL') . "/";
my $display_out;	my $display_out;
my %locked_files=&Apache::lonnet::dump('file_permissions',	my $select_mode;
$ENV{'user.domain'},$ENV{'user.name'});	my $checked_files;
my $locked_file;	my %locked_files = &Apache::lonnet::get_marked_as_readonly_hash ($env{'user.domain'},$env{'user.name'});
foreach my $key (keys %locked_files) {	if ($env{"form.mode"} eq 'selectfile'){
$locked_file .= $locked_files{$key}.':';	&select_files($r);
}	$checked_files =&Apache::lonnet::files_in_path($env{'user.name'},$env{'form.currentpath'});
if ($is_empty && ($current_path ne '/')) {	$select_mode = 'true';
$display_out = '<form method="post" action="/adm/portfolio">'.	}
'<input type="hidden" name="action" value="deletedir" />'.
'<input type="submit" name="deletedir" value="'.&mt("Delete Directory").'" />'.
'<input type="hidden" name="selectfile" value="" />'.
'<input type="hidden" name="currentpath" value="'.$current_path.'" />'.
'</form>';

$r->print($display_out);
return;
}
$r->print('<table border="0" cellspacing="2" cellpadding="2">'.
'<tr><th>Actions</th><th> </th><th>Name</th><th>Size</th><th>Last Modified</th></tr>');
my $href_location="/uploaded/$ENV{'user.domain'}/$ENV{'user.name'}/portfolio$current_path";
foreach my $line (sort
{
my ($afile)=split('&',$a,2);
my ($bfile)=split('&',$b,2);
return (lc($afile) cmp lc($bfile));
} (@$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(/\&/,$line,16);
if ($Apache::lonhomework::results{"resource.$ENV{'user.domain'}.$ENV{'user.name'}.$filename"}eq'true'){
&Apache::lonnet::logthis("found submitted file");
&Apache::lonnet::logthis("resource.$ENV{'user.domain'}.$ENV{'user.name'}.$filename");
} else {
&Apache::lonnet::logthis("$filename not found submitted file");
&Apache::lonnet::logthis("resource.$ENV{'user.domain'}.$ENV{'user.name'}.$filename");
}
if (($filename ne '.') && ($filename ne '..')) {
if ($dirptr&$testdir) {
$r->print('<tr bgcolor="#FFAA99"><td><img src="'.$iconpath.'folder_closed.gif"></td>');
$r->print('<td>Go to ...</td>');
$r->print('<td>'.&make_anchor($filename.'/',$current_path.$filename.'/',$ENV{'form.mode'},$ENV{"form.fieldname"}).'</td>');
$r->print('</tr>');
} else {
$r->print('<tr bgcolor="#CCCCFF">');
$r->print('<td>
<form method="post" action="/adm/portfolio">
<select name="action">
<option value=""></option>
<option value="delete">'.&mt("Delete").'</option>
<option value="rename">'.&mt("Rename").'</option>
</select>
<input type="submit" name="doit" value="Go" />
<input type="hidden" name="selectfile" value="'.$filename.'" />
<input type="hidden" name="currentpath" value="'.$current_path.'" />
</form>
</td>');
$r->print('<td><img src="'.$iconpath.'unknown.gif"></td>');
$r->print('<td><a href="'.$href_location.$filename.'">'.
$filename.'</a></td>');
$r->print('<td>'.$size.'</td>');
$r->print('<td>'.&Apache::lonlocal::locallocaltime($mtime).'</td>');
$r->print('</tr>');
}
}
}
# <tr bgcolor="#FFAA99"> pink bg
# <tr bgcolor="#CCCCFF"> blue bg
# $r->print(&display_directory($current_path, $currentFile, @dir_list));
# $r->print('</td>><td>');
# $r->print(&display_actions($current_path, $currentFile, $isEmpty));
$r->print('</table></form>');
}
sub display_file_select {
my ($r,$current_path,$is_empty,$dir_list)=@_;
my $iconpath= $r->dir_config('lonIconsURL') . "/";
my $display_out;
my %checked_files = &Apache::lonnet::files_in_path($ENV{'user.name'}, $ENV{'form.currentpath'});
if ($is_empty && ($current_path ne '/')) {	if ($is_empty && ($current_path ne '/')) {
$display_out = '<form method="post" action="/adm/portfolio">'.	$display_out = '<form method="post" action="/adm/portfolio">'.
'<input type="hidden" name="action" value="deletedir" />'.	'<input type="hidden" name="action" value="deletedir" />'.
'<input type="submit" name="deletedir" value="'.&mt("Delete Directory").'" />'.	'<input type="submit" name="deletedir" value="'.&mt("Delete Directory").'" />'.
'<input type="hidden" name="selectfile" value="" />'.	'<input type="hidden" name="selectfile" value="" />'.
'<input type="hidden" name="currentpath" value="'.$current_path.'" />'.	'<input type="hidden" name="currentpath" value="'.$current_path.'" />'.

'</form>';	'</form>';

$r->print($display_out);	$r->print($display_out);
return;	return;
}	}
$r->print('<table border="0" cellspacing="2" cellpadding="2">'.	if ($select_mode eq 'true') {
	$r->print('<table border="0" cellspacing="2" cellpadding="2">'.
'<tr><th>Select</th><th> </th><th>Name</th><th>Size</th><th>Last Modified</th></tr>');	'<tr><th>Select</th><th> </th><th>Name</th><th>Size</th><th>Last Modified</th></tr>');
my $href_location="/uploaded/$ENV{'user.domain'}/$ENV{'user.name'}/portfolio$current_path";	$r->print('<form method="post" name="checkselect" action="/adm/portfolio">');
$r->print('<form method="post" name="checkselect" action="/adm/portfolio">');	} else {
	$r->print('<table border="0" cellspacing="2" cellpadding="2">'.
	'<tr><th colspan="2">Actions</th><th> </th><th>Name</th><th>Size</th><th>Last Modified</th></tr>');
	$r->print('<form method="post" action="/adm/portfolio">');
	}
	my $href_location="/uploaded/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path";
	my $href_edit_location="/editupload/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path";
foreach my $line (sort	foreach my $line (sort
{	{
my ($afile)=split('&',$a,2);	my ($afile)=split('&',$a,2);
Line 185 sub display_file_select {	Line 124 sub display_file_select {
#$strip holds directory/file name	#$strip holds directory/file name
#$dom	#$dom
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16);	my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16);
if (($filename ne '.') && ($filename ne '..')) {	$filename =~ s/\s+$//;
	if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.)\.(.)\.(.*)/)) {
if ($dirptr&$testdir) {	if ($dirptr&$testdir) {
$r->print('<tr bgcolor="#FFAA99"><td><img src="'.$iconpath.'folder_closed.gif"></td>');	if ($select_mode eq 'true'){
	$r->print('<tr bgcolor="#FFAA99"><td><img src="'.$iconpath.'folder_closed.gif"></td>');
	} else {
	$r->print('<tr bgcolor="#FFAA99"><td colspan="2"><img src="'.$iconpath.'folder_closed.gif"></td>');
	}
$r->print('<td>Go to ...</td>');	$r->print('<td>Go to ...</td>');
$r->print('<td>'.&make_anchor($filename.'/',$current_path.$filename.'/',$ENV{'form.mode'},$ENV{"form.fieldname"}).'</td>');	$r->print('<td>'.&make_anchor($filename.'/',$current_path.$filename.'/',$env{'form.mode'},$env{"form.fieldname"},$env{'form.continue'}).'</td>');
$r->print('</tr>');	$r->print('</tr>');
} else {	} else {
$r->print('<tr bgcolor="#CCCCFF">');	$r->print('<tr bgcolor="#CCCCFF">');
$r->print('<td>	if ($select_mode eq 'true'){
<input type="checkbox" name="selectedfile" value="'.$filename.'" >	$r->print('<td><input type="checkbox" name="checkfile" value="'.$filename.'"');
</td>');	if ($$checked_files{$filename} eq 'selected') {
	$r->print("CHECKED");
	}
	$r->print('></td>');
	} else {
	if (exists $locked_files{$current_path.$filename}){
	$r->print('<td colspan="2"><a href="portfolio?lockinfo='.$current_path.$filename.'">Locked</a></td>');
	} else {
	$r->print('<td><input type="checkbox" name="selectfile" value="'.$filename.'" />
	<a href="/adm/portfolio?rename='.$filename.'&currentpath='.$current_path.'">Rename</a></td>
	<td><a href="'.$href_edit_location.$filename.'.meta">Meta</a>
	</td>');
	}
	}
$r->print('<td><img src="'.$iconpath.'unknown.gif"></td>');	$r->print('<td><img src="'.$iconpath.'unknown.gif"></td>');
$r->print('<td><a href="'.$href_location.$filename.'">'.	$r->print('<td><a href="'.$href_location.$filename.'">'.
$filename.'</a></td>');	$filename.'</a></td>');
Line 205 sub display_file_select {	Line 162 sub display_file_select {
}	}
}	}
}	}
$r->print('</table>	if ($select_mode eq 'true') {
	$r->print('</table>
<input type="hidden" name="continue" value="true">	<input type="hidden" name="continue" value="true">
<input type="hidden" name="fieldname" value="'.$ENV{'form.fieldname'}.'">	<input type="hidden" name="fieldname" value="'.$env{'form.fieldname'}.'">
<input type="hidden" name="mode" value="selectfile">	<input type="hidden" name="mode" value="selectfile">
<input type="submit" name="submit" value="Select checked files, and continue selecting." /><br />	<input type="submit" name="submit" value="Select checked files, and continue selecting." /><br />
<input type="button" name="doit" onClick= "finishSelect();" value="Select checked files, and close window" />	<input type="button" name="doit" onClick= "finishSelect();" value="Select checked files, and close window" />
<input type="hidden" name="currentpath" value="'.$current_path.'" />	<input type="hidden" name="currentpath" value="'.$current_path.'" />
</form>');	</form>');
	} else {
	$r->print('</table>
	<input type="submit" name="doit" value="Delete Checked Files" />
	<input type="hidden" name="action" value="delete" />
	<input type="hidden" name="currentpath" value="'.$current_path.'" />
	</form>');
	}
}	}

sub open_form {	sub open_form {
my ($r)=@_;	my ($r)=@_;
	my @files=&Apache::loncommon::get_env_multiple('form.selectfile');
$r->print('<form method="post" action="/adm/portfolio">');	$r->print('<form method="post" action="/adm/portfolio">');
$r->print('<input type="hidden" name="action" value="'.	$r->print('<input type="hidden" name="action" value="'.
$ENV{'form.action'}.'" />');	$env{'form.action'}.'" />');
$r->print('<input type="hidden" name="confirmed" value="1" />');	$r->print('<input type="hidden" name="confirmed" value="1" />');
$r->print('<input type="hidden" name="selectfile" value="'.	foreach (@files) {
$ENV{'form.selectfile'}.'" />');	$r->print('<input type="hidden" name="selectfile" value="'.
	$_.'" />');
	}
$r->print('<input type="hidden" name="currentpath" value="'.	$r->print('<input type="hidden" name="currentpath" value="'.
$ENV{'form.currentpath'}.'" />');	$env{'form.currentpath'}.'" />');
}	}

sub close_form {	sub close_form {
Line 234 sub close_form {	Line 202 sub close_form {
$r->print('<form action="/adm/portfolio" method="POST">	$r->print('<form action="/adm/portfolio" method="POST">
<p>	<p>
<input type="hidden" name="currentpath" value="'.	<input type="hidden" name="currentpath" value="'.
$ENV{'form.currentpath'}.'" />	$env{'form.currentpath'}.'" />
<input type="submit" value="'.&mt('Cancel').'" />	<input type="submit" value="'.&mt('Cancel').'" />
</p></form>');	</p></form>');

Line 242 sub close_form {	Line 210 sub close_form {

sub display_file {	sub display_file {
my ($path,$filename)=@_;	my ($path,$filename)=@_;
if (!defined($path)) { $path=$ENV{'form.currentpath'}; }	my $display_file_text;
if (!defined($filename)) { $filename=$ENV{'form.selectfile'}; }	if (!defined($path)) { $path=$env{'form.currentpath'}; }
return '<tt>'.$path.$filename.'</tt>';	if (!defined($filename)) {
	$filename=$env{'form.selectfile'};
	$display_file_text = '<tt>'.$path.$filename.'</tt>';
	} elsif (ref($filename) eq "ARRAY") {
	foreach (@$filename) {
	$display_file_text .= '<tt>'.$path.$_.'</tt><br />';
	}
	} elsif (ref($filename) eq "SCALAR") {
	$display_file_text = '<tt>'.$path.$filename.'</tt>';
	}
	return $display_file_text;
}	}

sub done {	sub done {
	my ($message)=@_;
	unless (defined $message) {
	$message='Done';
	}
return ('<h3><a href="/adm/portfolio?currentpath='.	return ('<h3><a href="/adm/portfolio?currentpath='.
$ENV{'form.currentpath'}.	$env{'form.currentpath'}.
'&fieldname='.$ENV{'form.fieldname'}.	'&fieldname='.$env{'form.fieldname'}.
'&mode='.$ENV{'form.mode'}.	'&mode='.$env{'form.mode'}.
'">'.&mt('Done').'</a></h3>');	'">'.&mt($message).'</a></h3>');
}	}

sub delete {	sub delete {
my ($r)=@_;	my ($r)=@_;
my @check;	my @check;
my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'};	my $file_name = $env{'form.currentpath'}.$env{'form.selectfile'};
if (&Apache::lonnet::is_locked($file_name,$ENV{'user.domain'},$ENV{'user.name'} ) eq 'true') {	my @files=&Apache::loncommon::get_env_multiple('form.selectfile');

	if (&Apache::lonnet::is_locked($file_name,$env{'user.domain'},$env{'user.name'} ) eq 'true') {
$r->print ("The file is locked and cannot be deleted.<br />");	$r->print ("The file is locked and cannot be deleted.<br />");
$r->print(&done());	$r->print(&done('Back'));
} else {	} else {
&open_form($r);	if (scalar(@files)) {
$r->print('<p>'.&mt('Delete').' '.&display_file().'?</p>');	&open_form($r);
&close_form($r);	$r->print('<p>'.&mt('Delete').' '.&display_file(undef,\@files).'?</p>');
	&close_form($r);
	} else {
	$r->print("No file was checked to delete.<br />");
	$r->print(&done());
	}
}	}
}	}

sub delete_confirmed {	sub delete_confirmed {
my ($r)=@_;	my ($r)=@_;
my $result=&Apache::lonnet::removeuserfile($ENV{'user.name'},	my @files=&Apache::loncommon::get_env_multiple('form.selectfile');
$ENV{'user.domain'},'portfolio'.	my $result;
$ENV{'form.currentpath'}.	foreach my $delete_file (@files) {
$ENV{'form.selectfile'});	$result=&Apache::lonnet::removeuserfile($env{'user.name'},
if ($result ne 'ok') {	$env{'user.domain'},'portfolio'.
	$env{'form.currentpath'}.
	$delete_file);
	if ($result ne 'ok') {
$r->print('<font color="red"> An error occured ('.$result.	$r->print('<font color="red"> An error occured ('.$result.
') while trying to delete '.&display_file().'</font><br />');	') while trying to delete '.&display_file(undef, $delete_file).'</font><br />');
	}
}	}
$r->print(&done());	$r->print(&done());
}	}
Line 291 sub delete_dir {	Line 284 sub delete_dir {

sub delete_dir_confirmed {	sub delete_dir_confirmed {
my ($r)=@_;	my ($r)=@_;
my $directory_name = $ENV{'form.currentpath'};	my $directory_name = $env{'form.currentpath'};
$directory_name =~ m/\/$/;	$directory_name =~ s\|/$\|\|; # remove any trailing slash
$directory_name = $`;	my $result=&Apache::lonnet::removeuserfile($env{'user.name'},
my $result=&Apache::lonnet::removeuserfile($ENV{'user.name'},	$env{'user.domain'},'portfolio'.
$ENV{'user.domain'},'portfolio'.
$directory_name);	$directory_name);

if ($result ne 'ok') {	if ($result ne 'ok') {
Line 312 sub delete_dir_confirmed {	Line 304 sub delete_dir_confirmed {
for (my $i=1; $i < (@dirs - 1); $i ++){	for (my $i=1; $i < (@dirs - 1); $i ++){
$directory_name .= $dirs[$i].'/';	$directory_name .= $dirs[$i].'/';
}	}
$ENV{'form.currentpath'} = $directory_name;	$env{'form.currentpath'} = $directory_name;
}	}
$r->print(&done());	$r->print(&done());
}	}

sub rename {	sub rename {
my ($r)=@_;	my ($r)=@_;
my $file_name = $ENV{'form.currentpath'}.$ENV{'form.selectfile'};	my $file_name = $env{'form.currentpath'}.$env{'form.rename'};
if (&Apache::lonnet::is_locked($file_name,$ENV{'user.domain'},$ENV{'user.name'}) eq 'true') {	if (&Apache::lonnet::is_locked($file_name,$env{'user.domain'},$env{'user.name'}) 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());	$r->print(&done());
} else {	} else {
Line 333 sub rename {	Line 325 sub rename {

sub rename_confirmed {	sub rename_confirmed {
my ($r)=@_;	my ($r)=@_;
my $filenewname=&Apache::lonnet::clean_filename($ENV{'form.filenewname'});	my $filenewname=&Apache::lonnet::clean_filename($env{'form.filenewname'});
if ($filenewname eq '') {	if ($filenewname eq '') {
$r->print('<font color="red">'.	$r->print('<font color="red">'.
&mt("Error: no valid filename was provided to rename to.").	&mt("Error: no valid filename was provided to rename to.").
Line 342 sub rename_confirmed {	Line 334 sub rename_confirmed {
return;	return;
}	}
my $result=	my $result=
&Apache::lonnet::renameuserfile($ENV{'user.name'},$ENV{'user.domain'},	&Apache::lonnet::renameuserfile($env{'user.name'},$env{'user.domain'},
'portfolio'.$ENV{'form.currentpath'}.$ENV{'form.selectfile'},	'portfolio'.$env{'form.currentpath'}.$env{'form.selectfile'},
'portfolio'.$ENV{'form.currentpath'}.$filenewname);	'portfolio'.$env{'form.currentpath'}.$filenewname);
if ($result ne 'ok') {	if ($result ne 'ok') {
$r->print('<font color="red"> An errror occured ('.$result.	$r->print('<font color="red"> An errror occured ('.$result.
') while trying to rename '.&display_file().' to '.	') while trying to rename '.&display_file().' to '.
&display_file(undef,$filenewname).'</font><br />');	&display_file(undef,$filenewname).'</font><br />');
}	}
	if ($filenewname ne $env{'form.filenewname'}) {
	$r->print("The new file name was changed from:<br /><strong>".$env{'form.filenewname'}."</strong> to <strong>$filenewname </strong>");
	}
$r->print(&done());	$r->print(&done());
}	}
sub select_files {	sub select_files {
my ($r)=@_;	my ($r)=@_;
if ($ENV{'form.continue'} eq 'true') {	if ($env{'form.continue'} eq 'true') {
# here we update the selections for the currentpath	# here we update the selections for the currentpath
# eventually, have to handle removing those not checked, but . . .	# eventually, have to handle removing those not checked, but . . .
my @items=&Apache::loncommon::get_env_multiple('form.selectedfile');	my @items=&Apache::loncommon::get_env_multiple('form.checkfile');
&Apache::lonnet::save_selected_files($ENV{'user.name'}, $ENV{'form.currentpath'}, @items);	if (scalar(@items)){
	&Apache::lonnet::save_selected_files($env{'user.name'}, $env{'form.currentpath'}, @items);
	}
	} else {
	#empty the file for a fresh start
	&Apache::lonnet::clear_selected_files($env{'user.name'});
	}
	my @files = &Apache::lonnet::files_not_in_path($env{'user.name'}, $env{'form.currentpath'});
	my $java_files = join ",", @files;
	if ($java_files) {
	$java_files.=',';
}	}
my $java_script =(<<ENDSMP);	my $javascript =(<<ENDSMP);
<script language='javascript'>	<script language='javascript'>
function finishSelect() {	function finishSelect() {
fileList = "";	ENDSMP
	$javascript .= 'fileList = "'.$java_files.'";';
	$javascript .= (<<ENDSMP);
for (i=0;i<document.forms.checkselect.length;i++) {	for (i=0;i<document.forms.checkselect.length;i++) {
if (document.forms.checkselect[i].checked){	if (document.forms.checkselect[i].checked){
fileList = fileList + document.forms.checkselect.currentpath.value + document.forms.checkselect[i].value + "," ;	fileList = fileList + document.forms.checkselect.currentpath.value + document.forms.checkselect[i].value + "," ;
Line 371 sub select_files {	Line 378 sub select_files {
}	}
opener.document.forms.lonhomework.	opener.document.forms.lonhomework.
ENDSMP	ENDSMP
$java_script .= $ENV{'form.fieldname'};	$javascript .= $env{'form.fieldname'};
$java_script .= (<<ENDSMP);	$javascript .= (<<ENDSMP);
.value=fileList;	.value=fileList;
self.close();	self.close();
}	}
</script>	</script>
ENDSMP	ENDSMP
$r->print($java_script);	$r->print($javascript);
$r->print("<h1>Select portfolio files</h1>	$r->print("<h1>Select portfolio files</h1>
Check as many as you wish in response to the essay problem.<br />");	Check as many as you wish in response to the essay problem.<br />");
$r->print("<strong>Files selected:</strong><br />");	$r->print("<strong>Files selected from other directories:</strong><br />");
foreach (&Apache::lonnet::files_not_in_path($ENV{'user.name'}, $ENV{'form.currentpath'})) {	foreach (&Apache::lonnet::files_not_in_path($env{'user.name'}, $env{'form.currentpath'})) {
$r->print($_."<br />");	$r->print($_."<br />");
}	}
}	}
sub upload {	sub upload {
my ($r)=@_;	my ($r)=@_;
my $fname=$ENV{'form.uploaddoc.filename'};	my $fname=$env{'form.uploaddoc.filename'};
my $filesize = (length($ENV{'form.uploaddoc'})) / 1000; #express in k (1024?)	my $filesize = (length($env{'form.uploaddoc'})) / 1000; #express in k (1024?)
my $disk_quota = 20000; # expressed in k	my $disk_quota = 20000; # expressed in k
$fname=&Apache::lonnet::clean_filename($fname);	$fname=&Apache::lonnet::clean_filename($fname);
my $portfolio_root = &Apache::loncommon::propath($ENV{'user.domain'},	my $portfolio_root = &Apache::loncommon::propath($env{'user.domain'},
$ENV{'user.name'}).	$env{'user.name'}).
'/userfiles/portfolio';	'/userfiles/portfolio';
# 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=&Apache::lonnet::dirlist($ENV{'form.currentpath'},	my @dir_list=&Apache::lonnet::dirlist($env{'form.currentpath'},
$ENV{'user.domain'},	$env{'user.domain'},
$ENV{'user.name'},$portfolio_root);	$env{'user.name'},$portfolio_root);
my $found_file = 0;	my $found_file = 0;
	my $locked_file = 0;
foreach my $line (@dir_list) {	foreach my $line (@dir_list) {
my ($filename)=split(/\&/,$line,2);	my ($file_name)=split(/\&/,$line,2);
if ($filename eq $fname){	if ($file_name eq $fname){
$found_file = 1;	$found_file = 1;
	if (&Apache::lonnet::is_locked($env{'form.currentpath'}.$file_name,$env{'user.domain'},$env{'user.name'} ) eq 'true') {
	$locked_file = 1;
	}
}	}
}	}
my $current_disk_usage = &Apache::lonnet::diskusage($ENV{'user.domain'}, $ENV{'user.name'},$portfolio_root);	my $current_disk_usage = &Apache::lonnet::diskusage($env{'user.domain'}, $env{'user.name'},$portfolio_root);
if (($current_disk_usage + $filesize) > $disk_quota){	if (($current_disk_usage + $filesize) > $disk_quota){
$r->print('<font color="red">Unable to upload <strong>'.$fname.' (size = '.$filesize.' kilobytes</strong>. Disk quota will be exceeded.'.	$r->print('<font color="red">Unable to upload <strong>'.$fname.' (size = '.$filesize.' kilobytes)</strong>. Disk quota will be exceeded.'.
'<br />Disk quota is '.$disk_quota.' kilobytes. Your current disk usage is '.$current_disk_usage.' kilobytes.');	'<br />Disk quota is '.$disk_quota.' kilobytes. Your current disk usage is '.$current_disk_usage.' kilobytes.');
	$r->print(&done('Back'));
}	}
elsif ($found_file){	elsif ($found_file){
$r->print('<font color="red">Unable to upload <strong>'.$fname.'</strong>, a file by that name was found in <strong>'.$ENV{'form.currentpath'}.'</strong></font>'.	if ($locked_file){
'<br />To upload, rename or delete existing '.$fname.' in '.$ENV{'form.currentpath'});	$r->print('<font color="red">Unable to upload <strong>'.$fname.'</strong>, a <strong>locked</strong> file by that name was found in <strong>portfolio'.$env{'form.currentpath'}.'</strong></font>'.
	'<br />You will be able to rename or delete existing '.$fname.' after a grade has been assigned.');
	$r->print(&done('Back'));
	} else {
	$r->print('<font color="red">Unable to upload <strong>'.$fname.'</strong>, a file by that name was found in <strong>portfolio'.$env{'form.currentpath'}.'</strong></font>'.
	'<br />To upload, rename or delete existing '.$fname.' in portfolio'.$env{'form.currentpath'});
	$r->print(&done('Back'));
	}
} else {	} else {
my $result=&Apache::lonnet::userfileupload('uploaddoc','',	my $result=&Apache::lonnet::userfileupload('uploaddoc','',
'portfolio'.$ENV{'form.currentpath'});	'portfolio'.$env{'form.currentpath'});
if ($result !~ m\|^/uploaded/\|) {	if ($result !~ m\|^/uploaded/\|) {
$r->print('<font color="red"> An errror occured ('.$result.	$r->print('<font color="red"> An errror occured ('.$result.
') while trying to upload '.&display_file().'</font><br />');	') while trying to upload '.&display_file().'</font><br />');
	$r->print(&done('Back'));
	} else {
	$r->print(&done());
}	}
}	}
$r->print(&done());
}	}
	sub lock_info {
	my ($r) = @_;
	my %current_permissions = &Apache::lonnet::dump('file_permissions',$env{'user.domain'},$env{'user.name'});
	my $file_name = $env{'form.lockinfo'};
	foreach my $key(keys(%current_permissions)) {
	if ($file_name eq $key) {
	foreach my $array_item (@{$current_permissions{$key}}) {
	if (ref($array_item)) {
	$r->print('<strong>'.$key.'</strong> was submitted in response to problem: <strong>'.
	&Apache::lonnet::gettitle($$array_item[0]).'</strong><br />');
	my %course_description = &Apache::lonnet::coursedescription($$array_item[1]);
	$r->print('In the course: <strong>'.$course_description{'description'}.'</strong><br />');
	# $r->print('the third is '.$$array_item[2].'<br>');
	# $r->print("item is $$array_item[0]<br> and $$array_item[0]");
	}
	}
	}
	}
	$r->print(&done('Back'));
	return 'ok';
	}
sub createdir {	sub createdir {
my ($r)=@_;	my ($r)=@_;
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('<font color="red">'.	$r->print('<font color="red">'.
&mt("Error: no directory name was provided.").	&mt("Error: no directory name was provided.").
Line 435 sub createdir {	Line 476 sub createdir {
$r->print(&done());	$r->print(&done());
return;	return;
}	}
my $portfolio_root = &Apache::loncommon::propath($ENV{'user.domain'},	my $portfolio_root = &Apache::loncommon::propath($env{'user.domain'},
$ENV{'user.name'}).	$env{'user.name'}).
'/userfiles/portfolio';	'/userfiles/portfolio';
my @dir_list=&Apache::lonnet::dirlist($ENV{'form.currentpath'},	my @dir_list=&Apache::lonnet::dirlist($env{'form.currentpath'},
$ENV{'user.domain'},	$env{'user.domain'},
$ENV{'user.name'},$portfolio_root);	$env{'user.name'},$portfolio_root);
my $found_file = 0;	my $found_file = 0;
foreach my $line (@dir_list) {	foreach my $line (@dir_list) {
my ($filename)=split(/\&/,$line,2);	my ($filename)=split(/\&/,$line,2);
Line 452 sub createdir {	Line 493 sub createdir {
$r->print('<font color="red"> Unable to create a directory named <strong>'.$newdir.	$r->print('<font color="red"> Unable to create a directory named <strong>'.$newdir.
' </strong>a file or directory by that name already exists.</font><br />');	' </strong>a file or directory by that name already exists.</font><br />');
} else {	} else {
my $result=&Apache::lonnet::mkdiruserfile($ENV{'user.name'},	my $result=&Apache::lonnet::mkdiruserfile($env{'user.name'},
$ENV{'user.domain'},'portfolio'.$ENV{'form.currentpath'}.$newdir);	$env{'user.domain'},'portfolio'.$env{'form.currentpath'}.$newdir);
if ($result ne 'ok') {	if ($result ne 'ok') {
$r->print('<font color="red"> An errror occured ('.$result.	$r->print('<font color="red"> An errror occured ('.$result.
') while trying to create a new directory '.&display_file().'</font><br />');	') while trying to create a new directory '.&display_file().'</font><br />');
}	}
}	}
	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(&done());	$r->print(&done());
}	}

sub handler {	sub handler {
# this handles file management	# this handles file management
my $r = shift;	my $r = shift;
my $portfolio_root = &Apache::loncommon::propath($ENV{'user.domain'},	my $portfolio_root = &Apache::loncommon::propath($env{'user.domain'},
$ENV{'user.name'}).	$env{'user.name'}).
'/userfiles/portfolio';	'/userfiles/portfolio';
	&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},
	['selectfile','currentpath','meta','lockinfo',
	'currentfile','action','fieldname','mode','rename','continue']);
&Apache::loncommon::no_cache($r);	&Apache::loncommon::no_cache($r);
&Apache::loncommon::content_type($r,'text/html');	&Apache::loncommon::content_type($r,'text/html');
$r->send_http_header;	$r->send_http_header;
# Give the LON-CAPA page header	# Give the LON-CAPA page header
$r->print('<html><head><title>'.	my $html=&Apache::lonxml::xmlbegin();
	$r->print($html.'<head><title>'.
&mt('Portfolio Manager').	&mt('Portfolio Manager').
"</title></head>\n".	"</title></head>\n");
&Apache::loncommon::bodytag('Portfolio Manager'));	if ($env{"form.mode"} eq 'selectfile'){
	$r->print(&Apache::loncommon::bodytag('Portfolio Manager',undef,undef,1));
	} else {
	$r->print(&Apache::loncommon::bodytag('Portfolio Manager'));
	}
$r->rflush();	$r->rflush();
&Apache::loncommon::get_unprocessed_cgi($ENV{'QUERY_STRING'},	if (($env{'form.storeupl'} eq 'Upload') & (!$env{'form.uploaddoc.filename'})){
['selectfile','currentpath',
'currentfile','action','fieldname','mode']);
if (($ENV{'form.storeupl'} eq 'Upload') & (!$ENV{'form.uploaddoc.filename'})){
$r->print('<font color="red"> No file was selected to upload.'.	$r->print('<font color="red"> No file was selected to upload.'.
'To upload a file, click <strong>Browse...</strong>'.	'To upload a file, click <strong>Browse...</strong>'.
', select a file, then click <strong>Upload</strong>,</font>');	', select a file, then click <strong>Upload</strong>,</font>');
}	}
if ($ENV{'form.uploaddoc.filename'}) {	if ($env{'form.meta'}) {
	&open_form($r);
	# $r->print(&edit_meta_data($r, $env{'form.currentpath'}.$env{'form.selectfile'}));
	$r->print('Edit the meta data<br />');
	&close_form($r);
	}
	if ($env{'form.store'}) {
	}

	if ($env{'form.uploaddoc.filename'}) {
&upload($r);	&upload($r);
} elsif ($ENV{'form.action'} eq 'delete' && $ENV{'form.confirmed'}) {	} elsif ($env{'form.action'} eq 'delete' && $env{'form.confirmed'}) {
&delete_confirmed($r);	&delete_confirmed($r);
} elsif ($ENV{'form.action'} eq 'delete') {	} elsif ($env{'form.action'} eq 'delete') {
&delete($r);	&delete($r);
} elsif ($ENV{'form.action'} eq 'deletedir' && $ENV{'form.confirmed'}) {	} elsif ($env{'form.action'} eq 'deletedir' && $env{'form.confirmed'}) {
&delete_dir_confirmed($r);	&delete_dir_confirmed($r);
} elsif ($ENV{'form.action'} eq 'deletedir'){	} elsif ($env{'form.action'} eq 'deletedir'){
&delete_dir($r);	&delete_dir($r);
} elsif ($ENV{'form.action'} eq 'rename' && $ENV{'form.confirmed'}) {	} elsif ($env{'form.action'} eq 'rename' && $env{'form.confirmed'}) {
&rename_confirmed($r);	&rename_confirmed($r);
} elsif ($ENV{'form.action'} eq 'rename') {	} elsif ($env{'form.rename'}) {
	$env{'form.selectfile'} = $env{'form.rename'};
	$env{'form.action'} = 'rename';
&rename($r);	&rename($r);
} elsif ($ENV{'form.createdir'}) {	} elsif ($env{'form.createdir'}) {
&createdir($r);	&createdir($r);
	} elsif ($env{'form.lockinfo'}) {
	&lock_info($r);
} else {	} else {
my $current_path='/';	my $current_path='/';
if ($ENV{'form.currentpath'}) {	if ($env{'form.currentpath'}) {
$current_path = $ENV{'form.currentpath'};	$current_path = $env{'form.currentpath'};
}	}
my @dir_list=&Apache::lonnet::dirlist($current_path,	my @dir_list=&Apache::lonnet::dirlist($current_path,
$ENV{'user.domain'},	$env{'user.domain'},
$ENV{'user.name'},$portfolio_root);	$env{'user.name'},$portfolio_root);
if ($dir_list[0] eq 'no_such_dir'){	if ($dir_list[0] eq 'no_such_dir'){
# two main reasons for this:	# two main reasons for this:
# 1) never been here, so directory structure not created	# 1) never been here, so directory structure not created
# 2) back-button navigation after deleting a directory	# 2) back-button navigation after deleting a directory
if ($current_path eq '/'){	if ($current_path eq '/'){
&Apache::lonnet::mkdiruserfile($ENV{'user.name'},	&Apache::lonnet::mkdiruserfile($env{'user.name'},
$ENV{'user.domain'},'portfolio');	$env{'user.domain'},'portfolio');
} else {	} else {
# some directory that snuck in get rid of the directory	# some directory that snuck in get rid of the directory
# from the recent pulldown, just in case	# from the recent pulldown, just in case
Line 525 sub handler {	Line 587 sub handler {
}	}
# 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=&Apache::lonnet::dirlist($current_path,
$ENV{'user.domain'},	$env{'user.domain'},
$ENV{'user.name'},$portfolio_root);	$env{'user.name'},$portfolio_root);
}	}
# need to know if directory is empty so it can be removed if desired	# need to know if directory is empty so it can be removed if desired
my $is_empty=(@dir_list == 2);	my $is_empty=(@dir_list == 2);
&display_common($r,$current_path,$is_empty,\@dir_list);	&display_common($r,$current_path,$is_empty,\@dir_list);
if ($ENV{"form.mode"} eq 'selectfile'){	&display_directory($r,$current_path,$is_empty,\@dir_list);
&select_files($r);
&display_file_select($r,$current_path,$is_empty,\@dir_list);
} else {
&display_directory($r,$current_path,$is_empty,\@dir_list);
}
$r->print("</body>\n</html>\n");	$r->print("</body>\n</html>\n");
return OK;	return OK;
}	}

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.60
changed lines
	Added in v.1.87