version 1.254, 2014/12/01 22:52:49
|
version 1.255, 2014/12/07 19:45:19
|
Line 232 sub display_directory_line {
|
Line 232 sub display_directory_line {
|
if ($lock_info) { |
if ($lock_info) { |
my %anchor_fields = ('lockinfo' => $fullpath); |
my %anchor_fields = ('lockinfo' => $fullpath); |
if ($versions) { # hold the folder open |
if ($versions) { # hold the folder open |
my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($fullpath); |
my ($fname,$version,$extension) = &Apache::lonnet::file_name_version_ext($fullpath); |
$fname =~ s|^/||; |
$fname =~ s|^/||; |
$anchor_fields{'showversions'} = $fname.'.'.$extension; |
$anchor_fields{'showversions'} = $fname.'.'.$extension; |
} |
} |
Line 365 sub display_directory {
|
Line 365 sub display_directory {
|
} (@{$dir_list})) { |
} (@{$dir_list})) { |
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$dir_line,16); |
my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$dir_line,16); |
$filename =~ s/\s+$//; |
$filename =~ s/\s+$//; |
my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename); |
my ($fname,$version,$extension) = &Apache::lonnet::file_name_version_ext($filename); |
if ($version) { |
if ($version) { |
my $fullpath = &prepend_group($current_path.$fname.'.'.$extension); |
my $fullpath = &prepend_group($current_path.$fname.'.'.$extension); |
push(@{ $versioned{$fullpath} }, |
push(@{ $versioned{$fullpath} }, |
Line 378 sub display_directory {
|
Line 378 sub display_directory {
|
my $zerobyte; |
my $zerobyte; |
foreach my $dir_line (@dir_lines) { |
foreach my $dir_line (@dir_lines) { |
my ($filename,$dom,$testdir,$size,$mtime,$obs) = @$dir_line; |
my ($filename,$dom,$testdir,$size,$mtime,$obs) = @$dir_line; |
my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($filename); |
my ($fname,$version,$extension) = &Apache::lonnet::file_name_version_ext($filename); |
if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/)) { |
if (($filename ne '.') && ($filename ne '..') && ($filename !~ /\.meta$/ ) && ($filename !~ /(.*)\.(\d+)\.([^\.]*)$/)) { |
my $version_flag; |
my $version_flag; |
my $show_versions; |
my $show_versions; |