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

[banghart]

banghart		Fri Sep 10 16:31:35 2004 EDT

  Modified files:              
    /loncom/interface	portfolio.pm 
  Log:
  	Fixed indenting and re-cuddled else
  
  
Index: loncom/interface/portfolio.pm
diff -u loncom/interface/portfolio.pm:1.43 loncom/interface/portfolio.pm:1.44
--- loncom/interface/portfolio.pm:1.43	Fri Sep 10 16:14:45 2004
+++ loncom/interface/portfolio.pm	Fri Sep 10 16:31:35 2004
@@ -385,22 +385,22 @@
         if ($current_path eq '/'){
 	        &Apache::lonnet::mkdiruserfile($ENV{'user.name'},
 	        $ENV{'user.domain'},'portfolio');
-        }else{ # some directory that snuck in
+        } else { # some directory that snuck in
             # get rid of the directory from the recent pulldown, just in case
             &Apache::lonhtmlcommon::remove_recent('portfolio',[$current_path]);
             $current_path = '/'; # force it back to the root        
         }
         # now grab the directory list again, for the first time
-    	@dir_list=&Apache::lonnet::dirlist($current_path,
+        @dir_list=&Apache::lonnet::dirlist($current_path,
 				    $ENV{'user.domain'},
 				    $ENV{'user.name'},$portfolio_root);
         
-    }
-	# need to know if directory is empty so it can be removed if desired
-	my $is_empty=(@dir_list == 2);
-	&display_directory($r,$current_path,$is_empty,\@dir_list);
-	$r->print("</body>\n</html>\n");
-	return OK;
+        }
+	    # need to know if directory is empty so it can be removed if desired
+	    my $is_empty=(@dir_list == 2);
+	    &display_directory($r,$current_path,$is_empty,\@dir_list);
+	    $r->print("</body>\n</html>\n");
+	    return OK;
     }
 }
 1;