--- loncom/interface/portfolio.pm 2006/08/18 13:49:34 1.160 +++ loncom/interface/portfolio.pm 2006/08/24 18:28:43 1.162 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.160 2006/08/18 13:49:34 raeburn Exp $ +# $Id: portfolio.pm,v 1.162 2006/08/24 18:28:43 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -191,6 +191,11 @@ sub display_directory_line { } if ($lock_info) { my %anchor_fields = ('lockinfo' => $fullpath); + if ($versions) { # hold the folder open + my ($fname,$version,$extension) = &Apache::grades::file_name_version_ext($fullpath); + $fname =~ s|^/||; + $anchor_fields{'showversions'} = $fname.'.'.$extension; + } $lock_info = &make_anchor(undef,\%anchor_fields,$lock_info); } $r->print(''.$lock_info.''); @@ -289,7 +294,7 @@ sub display_directory { my $version_flag; my $show_versions; my $fullpath = &prepend_group($current_path.$filename); - if ($env{'form.showversions'} eq $filename) { + if ($env{'form.showversions'} =~ /$filename/) { $show_versions = 'true'; } if (exists($versioned{$fullpath})) { @@ -299,10 +304,15 @@ sub display_directory { 'currentpath' => $current_path, ); if ($show_versions) { + # Must preserve other possible showversion files + my $version_remainder = $env{'form.showversions'}; + $version_remainder =~ s/$filename//g; + $anchor_fields{'showversions'} = $version_remainder; $version_flag = &make_anchor('portfolio',\%anchor_fields, ''.&mt('opened folder').''); } else { - $anchor_fields{'showversions'} = $filename; + # allow multiple files to show versioned + $anchor_fields{'showversions'} = $env{'form.showversions'}.','.$filename; $version_flag = &make_anchor('portfolio',\%anchor_fields, ''.&mt('closed folder').''); } @@ -496,6 +506,7 @@ sub done { $message='Done'; } my %anchor_fields = ( + 'showversions' => $env{'form.showversions'}, 'currentpath' => $env{'form.currentpath'}, 'fieldname' => $env{'form.fieldname'}, 'mode' => $env{'form.mode'}