--- loncom/interface/portfolio.pm 2006/08/02 03:05:10 1.142 +++ loncom/interface/portfolio.pm 2006/08/04 20:41:32 1.144 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.142 2006/08/02 03:05:10 raeburn Exp $ +# $Id: portfolio.pm,v 1.144 2006/08/04 20:41:32 albertel Exp $ # # Copyright Michigan State University Board of Trustees # @@ -339,6 +339,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, @@ -1475,7 +1476,6 @@ 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,7 +1595,10 @@ sub createdir { } sub get_portfolio_root { - my ($uname,$udom) = &get_name_dom(); + my ($udom,$uname) = @_; + if (!defined($uname) || !defined($udom)) { + ($uname,$udom) = &get_name_dom(); + } my $path; if (defined($env{'form.group'})) { $path = '/userfiles/groups/'.$env{'form.group'}.'/portfolio';