--- loncom/interface/portfolio.pm 2006/08/04 21:44:19 1.145 +++ loncom/interface/portfolio.pm 2006/08/04 22:22:32 1.146 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.145 2006/08/04 21:44:19 banghart Exp $ +# $Id: portfolio.pm,v 1.146 2006/08/04 22:22:32 banghart Exp $ # # Copyright Michigan State University Board of Trustees # @@ -154,7 +154,7 @@ sub display_directory_line { $r->print(''); $r->print($line); $r->print(''); - $r->print(''.$$version_flag{$filename}.''. + $r->print(''.$$version_flag{$filename}.''. $filename.''); $r->print(''.$size.''); $r->print(''.&Apache::lonlocal::locallocaltime($mtime).''); @@ -208,11 +208,11 @@ sub display_directory { if ($select_mode eq 'true') { $r->print('
'); $r->print(''. - ''); + ''); } else { $r->print(''); $r->print('
Select NameSizeLast Modified
Select  NameSizeLast Modified
'. - ''); + ''); } $r->print("\n".&group_form_data()."\n"); @@ -250,12 +250,12 @@ sub display_directory { } if (exists($versioned{$filename})) { if ($show_versions) { - $version_flag{$filename} = ''.&mt('opened folder').''; + $version_flag{$filename} = ''.&mt('opened folder').''; } else { - $version_flag{$filename} = ''.&mt('closed folder').''; + $version_flag{$filename} = ''.&mt('closed folder').''; } } 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(''); - $r->print(''); + $r->print(''); $r->print(''); } else { my $css_class = 'LC_browser_file'; @@ -291,7 +291,7 @@ sub display_directory { $line .= ''; } if ($can_modify) { - my $cat=''.&mt('Catalog Information').
+                            my $cat='<img class='; $line .= 'Rename'; $line .= '
Actions NameSizeLast ModifiedCurrent Access Status
Actions  NameSizeLast ModifiedCurrent Access Status
'.&mt('closed folder').'Go to ...'.$version_flag{$filename}.&make_anchor($url,$filename.'/',$current_path.$filename.'/',$env{'form.mode'},$env{"form.fieldname"},$env{'form.continue'}).'/'.$version_flag{$filename}.''.&make_anchor($url,$filename.'/',$current_path.$filename.'/',$env{'form.mode'},$env{"form.fieldname"},$env{'form.continue'}).'/
'.''.$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';