version 1.19, 2004/07/28 22:30:31
|
version 1.21, 2004/08/23 21:16:43
|
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('/','/')); |
if (@tree > 1){ |
if (@tree > 1){ |
my $newCurrentPath = ''; |
my $newCurrentPath = ''; |
for (my $i = 1; $i< @tree; $i++){ |
for (my $i = 1; $i< @tree; $i++){ |
Line 261 sub handler {
|
Line 269 sub handler {
|
} |
} |
} |
} |
$r->print('</font>'); |
$r->print('</font>'); |
|
&Apache::lonhtmlcommon::store_recent('portfolio',$currentPath,$currentPath); |
|
$r->print('<br /><form method=post action="/adm/portfolio">'.&Apache::lonhtmlcommon::select_recent('portfolio','currentpath', |
|
'this.form.submit();')); |
|
$r->print("</form>"); |
$r->print('<table border="0" cellspacing="2" cellpadding="2">'. |
$r->print('<table border="0" cellspacing="2" cellpadding="2">'. |
'<tr><th> </th><th>Actions</th><th>Name</th><th>Title</th><th>Status</th><th>Last Modified</th></tr>'); |
'<tr><th> </th><th>Actions</th><th>Name</th><th>Title</th><th>Status</th><th>Last Modified</th></tr>'); |
foreach my $line (@dirList) { |
foreach my $line (@dirList) { |