'.
- 'Actions | | Name | Size | Last Modified | Current Access Status |
');
+ 'Actions | | | Name | Size | Last Modified | Current Access Status |
');
}
$r->print("\n".&group_form_data()."\n");
@@ -250,12 +250,12 @@ sub display_directory {
}
if (exists($versioned{$filename})) {
if ($show_versions) {
- $version_flag{$filename} = '';
+ $version_flag{$filename} = '';
} else {
- $version_flag{$filename} = '';
+ $version_flag{$filename} = '';
}
} else {
- $version_flag{$filename} = '';
+ $version_flag{$filename} = ' ';
}
if ($dirptr&$testdir) {
my $colspan='colspan="2"';
@@ -264,7 +264,7 @@ sub display_directory {
}
$r->print(' | ');
$r->print('Go to ... | ');
- $r->print(''.$version_flag{$filename}.&make_anchor($url,$filename.'/',$current_path.$filename.'/',$env{'form.mode'},$env{"form.fieldname"},$env{'form.continue'}).'/ | ');
+ $r->print(''.$version_flag{$filename}.' | '.&make_anchor($url,$filename.'/',$current_path.$filename.'/',$env{'form.mode'},$env{"form.fieldname"},$env{'form.continue'}).'/ | ');
$r->print('
');
} else {
my $css_class = 'LC_browser_file';
@@ -291,7 +291,7 @@ sub display_directory {
$line .= '';
}
if ($can_modify) {
- my $cat='';
$line .= 'Rename';
$line .= ''.''.$cat.'';
@@ -1476,6 +1476,7 @@ sub upload {
}
}
$fname=&Apache::lonnet::clean_filename($fname);
+
my $portfolio_root=&get_portfolio_root();
my ($uname,$udom) = &get_name_dom();
my $port_path = &get_port_path();
@@ -1595,10 +1596,7 @@ sub createdir {
}
sub get_portfolio_root {
- my ($udom,$uname) = @_;
- if (!defined($uname) || !defined($udom)) {
- ($uname,$udom) = &get_name_dom();
- }
+ my ($uname,$udom) = &get_name_dom();
my $path;
if (defined($env{'form.group'})) {
$path = '/userfiles/groups/'.$env{'form.group'}.'/portfolio';
|