--- loncom/interface/portfolio.pm	2013/04/24 02:23:51	1.242
+++ loncom/interface/portfolio.pm	2013/04/30 14:17:05	1.243
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # portfolio browser
 #
-# $Id: portfolio.pm,v 1.242 2013/04/24 02:23:51 raeburn Exp $
+# $Id: portfolio.pm,v 1.243 2013/04/30 14:17:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -640,7 +640,7 @@ sub display_file {
 
 sub done {
     my ($linktext,$url)=@_;
-    unless (defined $linktext) {
+    unless (defined($linktext)) {
         $linktext='Return to directory';
     }
     my %anchor_fields = (
@@ -1219,7 +1219,7 @@ sub update_access {
                 $totalnew = $lastitem;
                 my @numbers;   
                 for (my $i=$firstitem; $i<$lastitem; $i++) {
-                    push (@numbers,$i);
+                    push(@numbers,$i);
                 }
                 &display_access_row($r,$status,$newitem,\@numbers,
                                     $access_controls{$file_name},$now,$then);