--- loncom/interface/lonnotify.pm 2005/10/11 21:29:39 1.4
+++ loncom/interface/lonnotify.pm 2005/10/13 22:37:40 1.5
@@ -176,9 +176,7 @@ ENDONE
$output .= '
';
my @domcc = ();
foreach my $server (keys %personnel) {
- print STDERR "key level 1 is $server\n";
foreach my $user (sort(keys %{$personnel{$server}})) {
- print STDERR "key level 2 is $user\n";
my ($trole,$uname,$udom,$runame,$rudom,$rsec) = split(/:/,$user);
unless (grep/^$uname:$udom$/,@domcc) {
my %userinfo = &Apache::lonnet::get('environment',['lastname','firstname'],$udom,$uname);
@@ -289,7 +287,7 @@ ENDONE
$recipients .= $dcmail{$msgid}{recipients}{$user}.', ';
}
$recipients =~ s/,\s$//;
- $output .= ' | '.$date.' | '.$dcmail{$msgid}{subject}.' | '.$sname.':'.$sdom.' | '.$dcmail{$msgid}{message}.' | '.$recipients.' |
'."\n";
+ $output .= ''.$date.' | '.&cr_to_br($dcmail{$msgid}{subject}).' | '.$sname.':'.$sdom.' | '.&cr_to_br($dcmail{$msgid}{message}).' | '.$recipients.' |
'."\n";
$rowNum ++;
}
} else {
@@ -328,9 +326,10 @@ ENDONE
}
$recipients =~ s/,\s$//;
}
+
my ($date,$subj,$sname,$sdom,$cdom) = split(/:/,$msgid,5);
$date = &Apache::lonlocal::locallocaltime($date);
- $output .= ''.$date.' | '.$dcmail{$msgid}{subject}.' | '.$sname.':'.$sdom.' | '.$dcmail{$msgid}{message}.' | '.$recipients.' |
'."\n";
+ $output .= ''.$date.' | '.&cr_to_br($dcmail{$msgid}{subject}).' | '.$sname.':'.$sdom.' | '.&cr_to_br($dcmail{$msgid}{message}).' | '.$recipients.' |
'."\n";
$rowNum ++;
}
}
@@ -413,7 +412,7 @@ $breadcrumbs