--- loncom/interface/lonparmset.pm	2006/05/11 17:38:44	1.303
+++ loncom/interface/lonparmset.pm	2006/05/15 23:40:54	1.305
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set parameters for assessments
 #
-# $Id: lonparmset.pm,v 1.303 2006/05/11 17:38:44 www Exp $
+# $Id: lonparmset.pm,v 1.305 2006/05/15 23:40:54 albertel Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -126,6 +126,7 @@ sub parmval_by_symb {
     my @outpar=();
 # ----------------------------------------------------- Cascading lookup scheme
     my $map=(&Apache::lonnet::decode_symb($symb))[0];    
+    $map = &Apache::lonnet::deversion($map);
 
     my $symbparm=$symb.'.'.$what;
     my $mapparm=$map.'___(all).'.$what;
@@ -404,6 +405,8 @@ sub storeparm_by_symb_inner {
 # ---------------------------------------------------------- Construct prefixes
     $spnam=~s/\_([^\_]+)$/\.$1/;
     my $map=(&Apache::lonnet::decode_symb($symb))[0];    
+    $map = &Apache::lonnet::deversion($map);
+
     my $symbparm=$symb.'.'.$spnam;
     my $mapparm=$map.'___(all).'.$spnam;
 
@@ -3306,15 +3309,18 @@ sub components {
 	$issection='';
     }
     my $realm='<font color="red">'.&mt('All Resources').'</font>';
+    my $realmdescription=&mt('all resources'); 
     if ($middle=~/^(.+)\_\_\_\(all\)$/) {
 	$realm='<font color="green">'.&mt('Folder/Map').': '.&Apache::lonnet::gettitle($1).' <br /><font color="#aaaaaa" size="-2">('.$1.')</font></font>';
-    } elsif ($middle) {
+ 	$realmdescription=&mt('folder').' '.&Apache::lonnet::gettitle($1);
+   } elsif ($middle) {
 	my ($map,$id,$url)=&Apache::lonnet::decode_symb($middle);
 	$realm='<font color="orange">'.&mt('Resource').': '.&Apache::lonnet::gettitle($middle).' <br /><font color="#aaaaaa" size="-2">('.$url.' in '.$map.' id: '.$id.')</font></font>';
+	$realmdescription=&mt('resource').' '.&Apache::lonnet::gettitle($middle);
     }
     my $what=$part.'.'.$name;
     return ($realm,$section,$name,$part,$typeflag,
-	    $what,$middle,$uname,$udom,$issection);
+	    $what,$middle,$uname,$udom,$issection,$realmdescription);
 }
 
 sub standard_parameter_names {
@@ -3380,7 +3386,7 @@ sub parm_change_log {
 	my %istype=();
 	foreach my $changed (reverse(sort(@changes))) {
             my $value=$parmlog{$id}{'logentry'}->{$changed};
-            my ($realm,$section,$parmname,$part,$typeflag,$what,$middle,$uname,$udom,$issection)=
+            my ($realm,$section,$parmname,$part,$typeflag,$what,$middle,$uname,$udom,$issection,$realmdescription)=
 		&components($changed,$parmlog{$id}{'uname'},$parmlog{$id}{'udom'});
 	    if ($typeflag) { $istype{$parmname}=$value; }
 	    if ($makenewrow) { $r->print($row_start); } else { $makenewrow=1; }
@@ -3410,13 +3416,17 @@ sub parm_change_log {
 	    }
 	    $r->print('</td>');
 	    if ($stillactive) {
+		my $title=&mt('Changed [_1]',&standard_parameter_names($parmname));
+                my $description=&mt('Changed [_1] for [_2] to [_3]',&standard_parameter_names($parmname),$realmdescription,
+				    (&isdateparm($istype{$parmname})?&Apache::lonlocal::locallocaltime($value):$value));
 		if (($uname) && ($udom)) {
-		    $r->print('<td>Notify Link</td>');
+		    $r->print('<td>'.
+			      &Apache::loncommon::messagewrapper('Notify User',$uname,$udom,$title,$description).
+			      '</td>');
 		} else {
 		    $r->print('<td>'.
-			      &Apache::lonrss::course_blog_link
-			      ($id,
-			       'New Parameter','Set new parameter').'</td>');
+			      &Apache::lonrss::course_blog_link($id,$title,$description).
+			      '</td>');
 		}
 	    } else {
 		$r->print('<td>&nbsp;</td>');