--- loncom/interface/portfolio.pm 2006/08/04 20:41:32 1.144 +++ loncom/interface/portfolio.pm 2006/08/06 16:48:44 1.147 @@ -1,7 +1,7 @@ # The LearningOnline Network # portfolio browser # -# $Id: portfolio.pm,v 1.144 2006/08/04 20:41:32 albertel Exp $ +# $Id: portfolio.pm,v 1.147 2006/08/06 16:48:44 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,10 +291,10 @@ sub display_directory { $line .= ''; } if ($can_modify) { - my $cat=''.&mt('Catalog Information').
+                            my $cat='<img class='; $line .= 'Rename'; - $line .= ''; } @@ -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';
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'}).'
'.$version_flag{$filename}.''.$cat.''; + $line .= ''.''.$cat.''; } $line .= '