--- loncom/interface/lonparmset.pm	2001/08/08 21:00:49	1.32
+++ loncom/interface/lonparmset.pm	2001/08/09 19:28:47	1.33
@@ -12,7 +12,7 @@
 # 11/20,11/21,11/22,11/23,11/24,11/25,11/27,11/28,
 # 12/08,12/12,
 # 16/01/01,02/08,03/20,03/23,03/24,03/26,05/09,
-# 07/05,07/06,08/08 Gerd Kortemeyer
+# 07/05,07/06,08/08,08/09 Gerd Kortemeyer
 
 package Apache::lonparmset;
 
@@ -526,6 +526,8 @@ ENDHEAD
 	my $catmarker='parameter_'.$pscat;
         $catmarker=~s/\./\_/g;
         my $coursespan=$csec?8:5;
+        my $csuname=$ENV{'user.name'};
+        my $csudom=$ENV{'user.domain'};
 	 $r->print(<<ENDTABLEHEAD);
 <p><table border=2>
 <tr><td colspan=5></td>
@@ -535,7 +537,9 @@ ENDTABLEHEAD
 	$r->print("<th colspan=3 rowspan=2>User $uname at Domain $udom</th>");
     }
     $r->print(<<ENDTABLETWO);
-<th rowspan=3>Parameter in Effect</th></tr><tr><td colspan=5></td>
+<th rowspan=3>Parameter in Effect</th>
+<th rowspan=3>Current Session Value<br>($csuname at $csudom)</th>
+</tr><tr><td colspan=5></td>
 <th colspan=2>Resource Level</th>
 <th colspan=3>in Course</th>
 ENDTABLETWO
@@ -674,7 +678,14 @@ ENDTABLEHEADFOUR
                     'parmform.pres','psub').'</td>');
                }
                $r->print(
-        '<td bgcolor=#CCCCFF>'.&valout($outpar[$result],$type{$_}).'</td>');
+	'<td bgcolor=#CCCCFF>'.&valout($outpar[$result],$type{$_}).'</td>');
+               my $sessionval=&Apache::lonnet::EXT('resource.'.$part{$_}.
+		      '.'.$name{$_},$mapp{$rid}.'___'.$inmapid.'___'.$uri);
+               if (($type{$_}=~/^date/) && ($sessionval))
+                    { $sessionval=localtime($sessionval); }
+               $r->print(
+	'<td bgcolor=#999999><font color=#FFFFFF>'.$sessionval.'&nbsp;'.
+        '</font></td>');
                $r->print("</tr>\n<tr>");
 	   }
 	   } sort keys %name;