--- loncom/interface/lonaboutme.pm 2006/09/19 14:02:42 1.55 +++ loncom/interface/lonaboutme.pm 2006/12/10 08:44:35 1.59 @@ -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.59 2006/12/10 08:44:35 raeburn 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 = &Apache::lonnet::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 { '