loncom/interface/portfolio.pm - diff

Return to portfolio.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.19, 2004/07/28 22:30:31	version 1.20, 2004/07/29 17:04:21
Line 218 sub handler {	Line 218 sub handler {
# as well as information about the home server directory structure, specifically	# as well as information about the home server directory structure, specifically
# the path to the users userfiles directory.	# the path to the users userfiles directory.
#	#
$r->print('/userfiles/portfolio'.$currentPath.'<br>');
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';
Line 251 sub handler {	Line 250 sub handler {
# Display begins here	# Display begins here
#	#
##############################	##############################
	$r->print('<table border="0" cellspacing="2" cellpadding="2"><tr valign="middle">');
	$r->print('<td bgcolor="#ccddaa" align="center">');
	my $displayOut = '<form method="post" enctype="multipart/form-data">';
	$displayOut = $displayOut.'<input name="uploaddoc" type="file" />'.
	'<input type="hidden" name="currentpath" value="'.$currentPath.'" />'.
	'<input type="submit" name="storeupl" value="Upload" />'.
	'</form>';
	$r->print($displayOut);
	$r->print('</td></tr></table>');
my @tree = split (/\//,$currentPath);	my @tree = split (/\//,$currentPath);
$r->print('<font size="+2">'.makeAnchor('portfolio','/').'/');	$r->print('<font size="+2">'.makeAnchor('portfolio','/').'/');
if (@tree > 1){	if (@tree > 1){