--- loncom/interface/lonbulletin.pm	2006/08/28 13:09:51	1.41
+++ loncom/interface/lonbulletin.pm	2007/07/03 00:12:30	1.44
@@ -1,7 +1,7 @@
 # The LearningOnline Network
 # Bulletin Board Handler
 #
-# $Id: lonbulletin.pm,v 1.41 2006/08/28 13:09:51 albertel Exp $
+# $Id: lonbulletin.pm,v 1.44 2007/07/03 00:12:30 www Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -212,11 +212,11 @@ sub handler {
           &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);
        }
        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,1);
-	       $syllabus{$_}=$field;
+	       $syllabus{$syl_field}=$field;
            }
            $syllabus{'uploaded.lastmodified'}=time;
            &Apache::lonnet::put('bulletinpage_'.$marker,\%syllabus,$dom,$crs);
@@ -239,9 +239,9 @@ sub handler {
          '<input type="submit" name="storeupl" value="'.&mt('Upload').'">'.
 	 '</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/(https*\:\/\/[^\s]+)/\<a href=\"$1\"\>\<tt\>$1\<\/tt\>\<\/a\>/g;
@@ -249,12 +249,12 @@ sub handler {
 		  $message=&Apache::lonspeller::markeduptext($message);
 	      }
 	      $message=&Apache::lontexconvert::msgtexconverted($message);
-	      unless ($_ eq 'aaa_title') {
-		if (($_ ne 'bbb_content') || ($allowed)) {
+	      unless ($field eq 'aaa_title') {
+		if (($field ne 'bbb_content') || ($allowed)) {
 		    if ($target ne 'tex') {
-			$r->print('<h3>'.$syllabusfields{$_}.'</h3>');
+			$r->print('<h3>'.$syllabusfields{$field}.'</h3>');
 		    } else {
-			$r->print('\\\\\textbf{'.$syllabusfields{$_}.'}\\\\');
+			$r->print('\\\\\textbf{'.$syllabusfields{$field}.'}\\\\');
 		    }
 		}
 		if ($target ne 'tex') {
@@ -264,9 +264,9 @@ sub handler {
 		    $r->print(' '.&Apache::lonxml::xmlparse($r,'tex',$message).' ');
 		}
                  if ($allowed) {
-                $r->print('<br /><textarea cols="80" rows="10" name="'.$_.'">'.
-			  &HTML::Entities::encode($syllabus{$_},'&"<>').
-           '</textarea><input type="submit" name="storesyl" value="'.&mt('Store').'" />');
+                $r->print('<br /><textarea cols="80" rows="10" name="'.$field.'">'.
+			  &HTML::Entities::encode($syllabus{$field},'&"<>').
+           '</textarea><input type="submit" name="storesyl" value="'.&mt('Save').'" />');
 	        }
 	    } else {
                 if ($target ne 'tex') {
@@ -276,9 +276,9 @@ sub handler {
 		}
                 if ($allowed) {
                  $r->print(
-                '<br />'.&mt('Topic').'<br /><textarea cols="80" rows="2" name="'.$_.'">'.
-			  &HTML::Entities::encode($syllabus{$_},'&"<>').
-           '</textarea><input type="submit" name="storesyl" value="'.&mt('Store').'" />');
+                '<br />'.&mt('Topic').'<br /><textarea cols="80" rows="2" name="'.$field.'">'.
+			  &HTML::Entities::encode($syllabus{$field},'&"<>').
+           '</textarea><input type="submit" name="storesyl" value="'.&mt('Save').'" />');
                 }
             }
 	  }