--- loncom/interface/lonaboutme.pm	2006/09/19 14:02:42	1.55
+++ loncom/interface/lonaboutme.pm	2006/12/09 23:33:55	1.58
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # "About Me" Personal Information
 #
-# $Id: lonaboutme.pm,v 1.55 2006/09/19 14:02:42 raeburn Exp $
+# $Id: lonaboutme.pm,v 1.58 2006/12/09 23:33:55 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -57,7 +57,7 @@ sub handler {
 					      'No user information available');
         return OK;
     } else {
-        $is_course = &check_for_course($cdom,$cnum);
+        $is_course = &is_course($cdom,$cnum);
     }
 
 # --------------------------------------------------------- The syllabus fields
@@ -171,12 +171,12 @@ sub handler {
 	}
     }
        if (($allowed) && ($env{'form.storesyl'})) {
-	   foreach (keys %syllabusfields) {
-               my $field=$env{'form.'.$_};
+	   foreach my $syl_field (keys(%syllabusfields)) {
+               my $field=$env{'form.'.$syl_field};
                $field=~s/\s+$//s;
                $field=&Apache::lonfeedback::clear_out_html($field,
                                                            $env{'user.adv'});
-	       $syllabus{$_}=$field;
+	       $syllabus{$syl_field}=$field;
            }
            $syllabus{'uploaded.lastmodified'}=time;
            &Apache::lonnet::put('aboutme',\%syllabus,$cdom,$cnum);
@@ -209,9 +209,9 @@ sub handler {
 	 '</form><form method="post">');
 
        }
-       foreach (sort keys %syllabusfields) {
-          if (($syllabus{$_}) || ($allowed)) {
-              my $message=$syllabus{$_};
+       foreach my $field (sort(keys(%syllabusfields))) {
+          if (($syllabus{$field}) || ($allowed)) {
+              my $message=$syllabus{$field};
 	      &Apache::lonfeedback::newline_to_br(\$message);
               $message
              =~s/(http\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
@@ -220,15 +220,15 @@ sub handler {
 	      }
 	      $message=&Apache::lontexconvert::msgtexconverted($message);
 	      if ($target ne 'tex') {
-		  $r->print('<h3>'.$syllabusfields{$_}.'</h3><blockquote>'.
+		  $r->print('<h3>'.$syllabusfields{$field}.'</h3><blockquote>'.
                             $message.'</blockquote>');
 	      } else {
-		     $r->print('\\\\\textbf{'.$syllabusfields{$_}.'}\\\\'.
+		     $r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\'.
 			       &Apache::lonxml::xmlparse($r,'tex',$message).'\\\\');
 	      }
               if ($allowed) {
-                 $r->print('<br /><textarea cols="80" rows="6" name="'.$_.'">'.
-			   &HTML::Entities::encode($syllabus{$_},'"&<>').
+                 $r->print('<br /><textarea cols="80" rows="6" name="'.$field.'">'.
+			   &HTML::Entities::encode($syllabus{$field},'"&<>').
            '</textarea><input type="submit" name="storesyl" value="'.
 			   &mt('Store').'" />');
 	      }
@@ -311,11 +311,11 @@ sub print_portfiles_link {
             if ($is_course) {
                 $output .= &mt('One group portfolio file is available.').'<ul>';
             } else {
-                $output .= &mt('One portfolio file owned by [_1] is available.').'<ul>';
+                $output .= &mt('One portfolio file owned by [_1] is available.',$name).'<ul>';
             }
         } else {
             if ($is_course) {
-                $output .= &mt('A total of [_1] group portfolio files are available.').'<ul>';
+                $output .= &mt('A total of [_1] group portfolio files are available.',$filecounts->{'both'}).'<ul>';
             } else {
                 $output .= &mt('A total of [_1] portfolio files owned by [_2] are available.',$filecounts->{'both'},$name).'<ul>';
             }
@@ -629,15 +629,5 @@ sub parse_directory {
     return $output;
 }
 
-sub check_for_course {
-    my ($cdom,$cnum) = @_;
-    my %courses = &Apache::lonnet::courseiddump($cdom,'.',1,'.','.',$cnum,undef,
-                                                undef,'.');
-    if (exists($courses{$cdom.'_'.$cnum})) {
-        return 1;
-    }
-    return 0;
-}
-
 1;
 __END__