'.
- 'Actions Name Size Last Modified Current Access Status ');
+ 'Actions Name Size Last Modified Current Access Status ');
}
$r->print("\n".&group_form_data()."\n");
@@ -249,13 +270,21 @@ sub display_directory {
$show_versions = 'true';
}
if (exists($versioned{$filename})) {
+ %anchor_fields = (
+ 'selectfile' => $filename,
+ 'continue' => 'false',
+ 'currentpath' => $current_path,
+ );
if ($show_versions) {
- $version_flag{$filename} = ' ';
+ $version_flag{$filename} = &make_anchor('portfolio',\%anchor_fields,
+ ' ');
} else {
- $version_flag{$filename} = ' ';
+ $anchor_fields{'showversions'} = $filename;
+ $version_flag{$filename} = &make_anchor('portfolio',\%anchor_fields,
+ ' ');
}
} else {
- $version_flag{$filename} = '';
+ $version_flag{$filename} = ' ';
}
if ($dirptr&$testdir) {
my $colspan='colspan="2"';
@@ -264,7 +293,14 @@ 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'}).'/ ');
+ %anchor_fields = (
+ 'selectfile' => $filename.'/',
+ 'currentpath' => $current_path.$filename.'/',
+ 'mode' => $env{"form.mode"},
+ 'fieldname' => $env{"form.fieldname"},
+ 'continue' => $env{"form.continue"}
+ );
+ $r->print(''.$version_flag{$filename}.' '.&make_anchor($url,\%anchor_fields,$filename.'/').' ');
$r->print(' ');
} else {
my $css_class = 'LC_browser_file';
@@ -279,7 +315,10 @@ sub display_directory {
$line.=' />';
} else {
if (exists $locked_files{$fullpath}) {
- $line.='Locked ';
+ %anchor_fields = (
+ 'lockinfo' => $current_path.$filename
+ );
+ $line.=''.&make_anchor($url,\%anchor_fields,'Locked').' ';
$css_class= 'LC_browser_file_locked';
} else {
if (!$can_modify) {
@@ -291,10 +330,15 @@ sub display_directory {
$line .= ' ';
}
if ($can_modify) {
- my $cat=' ';
- $line .= 'Rename ';
- $line .= ''.$version_flag{$filename}.''.$cat.' ';
+ %anchor_fields = (
+ 'rename' => $filename,
+ currentpath => $current_path
+ );
+ $line .= &make_anchor($url,\%anchor_fields,'Rename');
+ $line .= ' '.&make_anchor($href_edit_location.$filename.'.meta',undef,$cat);
+ # ''.$cat.' ';
}
$line .= ' ';
}
@@ -339,6 +383,7 @@ sub display_directory {
foreach my $dir_line (@version_lines) {
my ($v_filename,$dom,$testdir,$size,$mtime,$obs) = @$dir_line;
my ($v_fname,$version,$v_extension) = &Apache::grades::file_name_version_ext($v_filename);
+ $line = ' ';
if (($v_fname eq $fname)&&($v_extension eq $extension)) {
&display_directory_line($r,$select_mode,$fullpath, $v_filename, $mtime, $size,
$css_class, $line, \%access_controls, $curr_access, $now,