version 1.56, 2004/11/10 05:57:53
|
version 1.57, 2004/11/22 22:59:32
|
Line 33 use Apache::lonlocal;
|
Line 33 use Apache::lonlocal;
|
# 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) = @_; |
my ($filename, $current_path, $current_mode, $field_name) = @_; |
my $anchor = '<a href="/adm/portfolio?selectfile='.$filename.'¤tpath='.$current_path.'">'.$filename.'</a>'; |
my $anchor = '<a href="/adm/portfolio?selectfile='.$filename.'¤tpath='.$current_path.'&mode='.$current_mode.'&fieldname='.$field_name.'">'.$filename.'</a>'; |
return $anchor; |
return $anchor; |
} |
} |
my $dirptr=16384; |
my $dirptr=16384; |
Line 48 sub display_common {
|
Line 48 sub display_common {
|
'<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="submit" name="storeupl" value="Upload" />'. |
'<input type="submit" name="storeupl" value="Upload" />'. |
'</form>'; |
'</form>'; |
$r->print($displayOut); |
$r->print($displayOut); |
Line 57 sub display_common {
|
Line 58 sub display_common {
|
'<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="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','/').'/'); |
$r->print('<font size="+2">'.&make_anchor('portfolio','/',$ENV{"form.mode"},$ENV{"form.fieldname"}).'/'); |
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).'/'); |
$r->print(&make_anchor($tree[$i],'/'.$newCurrentPath, $ENV{"form.mode"},$ENV{"form.fieldname"}).'/'); |
} |
} |
} |
} |
$r->print('</font>'); |
$r->print('</font>'); |
Line 121 sub display_directory {
|
Line 123 sub display_directory {
|
if ($dirptr&$testdir) { |
if ($dirptr&$testdir) { |
$r->print('<tr bgcolor="#FFAA99"><td><img src="'.$iconpath.'folder_closed.gif"></td>'); |
$r->print('<tr bgcolor="#FFAA99"><td><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.'/').'</td>'); |
$r->print('<td>'.&make_anchor($filename.'/',$current_path.$filename.'/',$ENV{'form.mode'},$ENV{"form.fieldname"}).'</td>'); |
$r->print('</tr>'); |
$r->print('</tr>'); |
} else { |
} else { |
$r->print('<tr bgcolor="#CCCCFF">'); |
$r->print('<tr bgcolor="#CCCCFF">'); |
Line 186 sub display_file_select {
|
Line 188 sub display_file_select {
|
if ($dirptr&$testdir) { |
if ($dirptr&$testdir) { |
$r->print('<tr bgcolor="#FFAA99"><td><img src="'.$iconpath.'folder_closed.gif"></td>'); |
$r->print('<tr bgcolor="#FFAA99"><td><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.'/').'</td>'); |
$r->print('<td>'.&make_anchor($filename.'/',$current_path.$filename.'/',$ENV{'form.mode'},$ENV{"form.fieldname"}).'</td>'); |
$r->print('</tr>'); |
$r->print('</tr>'); |
} else { |
} else { |
$r->print('<tr bgcolor="#CCCCFF">'); |
$r->print('<tr bgcolor="#CCCCFF">'); |
Line 244 sub done {
|
Line 246 sub 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'}. |
'">'.&mt('Done').'</a></h3>'); |
'">'.&mt('Done').'</a></h3>'); |
} |
} |
|
|