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

[albertel]

albertel		Wed Aug  9 13:47:26 2006 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  - clenaup 
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.151 loncom/interface/portfolio.pm:1.152
--- loncom/interface/portfolio.pm:1.151	Tue Aug  8 17:34:05 2006
+++ loncom/interface/portfolio.pm	Wed Aug  9 13:47:26 2006
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # portfolio browser
 #
-# $Id: portfolio.pm,v 1.151 2006/08/08 21:34:05 banghart Exp $
+# $Id: portfolio.pm,v 1.152 2006/08/09 17:47:26 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -167,7 +167,6 @@
     my ($r,$select_mode,$fullpath, $filename, $mtime, $size, $css_class,
 	$line, $access_controls, $curr_access, $now, $version_flag,
 	$href_location, $url, $current_path, $access_admin_text, $versions)=@_;
-    my %anchor_fields;
     # my ($filename,$dom,undef,$testdir,undef,undef,undef,undef,$size,undef,$mtime,undef,undef,undef,$obs,undef)=split(/\&/,$line,16); 
     $r->print('<tr class="'.$css_class.'">');
     $r->print($line);
@@ -179,7 +178,7 @@
     if ($select_mode ne 'true') {
 	$r->print('<td><span style="white-space: nowrap">'.
 		  &mt($curr_access).'&nbsp;&nbsp;&nbsp;');
-        %anchor_fields = (
+        my %anchor_fields = (
             'access' => $filename,
             'currentpath' => $current_path
         );
@@ -192,7 +191,6 @@
     my ($r,$url,$current_path,$is_empty,$dir_list,$group,$can_upload,
         $can_modify,$can_delete,$can_setacl)=@_;
     my $iconpath= $r->dir_config('lonIconsURL') . "/";
-    my %anchor_fields;
     my $display_out;
     my $select_mode;
     my $checked_files;
@@ -270,7 +268,7 @@
     	        $show_versions = 'true';
     	    }
     	    if (exists($versioned{$filename})) {
-    	        %anchor_fields = (
+    	        my %anchor_fields = (
     	            'selectfile' => $filename,
     	            'continue' => 'false',
     	            'currentpath' => $current_path,
@@ -293,7 +291,7 @@
                 }
 		$r->print('<tr class="LC_browser_folder"><td '.$colspan.'><img alt="'.&mt('closed folder').'" src="'.$iconpath.'folder_closed.gif" /></td>');
                 $r->print('<td>Go to ...</td>');
-                %anchor_fields = (
+                my %anchor_fields = (
                     'selectfile'    => $filename.'/',
                     'currentpath'   => $current_path.$filename.'/',
                     'mode'          => $env{"form.mode"},
@@ -315,7 +313,7 @@
 		    $line.=' /></td>';
                 } else {
                     if (exists $locked_files{$fullpath}) {
-                        %anchor_fields = (
+                        my %anchor_fields = (
                             'lockinfo' => $current_path.$filename
                         );
                         $line.='<td colspan="2">'.&make_anchor($url,\%anchor_fields,'Locked').'</td>';
@@ -332,7 +330,7 @@
                         if ($can_modify) {
                             my $cat='<img class="LC_icon" alt="'.&mt('Catalog Information').
                             '" src="'.&Apache::loncommon::lonhttpdurl('/res/adm/pages/catalog.gif').'" />';
-                            %anchor_fields = (
+                            my %anchor_fields = (
                                 'rename' => $filename,
                                 currentpath => $current_path
                             );