[LON-CAPA-cvs] cvs: loncom /interface portfolio.pm

albertel lon-capa-cvs@mail.lon-capa.org
Mon, 19 Dec 2005 20:41:45 -0000


albertel		Mon Dec 19 15:41:45 2005 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  - cat link fixed to work with subdirs
  - icon fiexed to display correct icon
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.90 loncom/interface/portfolio.pm:1.91
--- loncom/interface/portfolio.pm:1.90	Mon Dec 19 15:11:35 2005
+++ loncom/interface/portfolio.pm	Mon Dec 19 15:41:45 2005
@@ -132,7 +132,7 @@
         $r->print('<form method="post" action="/adm/portfolio">');
     }
     my $href_location="/uploaded/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path";
-    my $href_edit_location="/editupload/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path";
+    my $href_edit_location="/editupload/$env{'user.domain'}/$env{'user.name'}/portfolio$current_path/";
     foreach my $line (sort 
 		      { 
 			  my ($afile)=split('&',$a,2);
@@ -173,7 +173,7 @@
                             </td>');
                     }
                 }
-                $r->print('<td><img src="'.$iconpath.'unknown.gif"></td>');
+                $r->print('<td><img src="'.&Apache::loncommon::icon($filename).'"></td>');
                 $r->print('<td><a href="'.$href_location.$filename.'">'.
 			    $filename.'</a></td>'); 
                 $r->print('<td>'.$size.'</td>');