version 1.75, 2007/05/03 12:13:35
|
version 1.77, 2007/05/05 02:50:27
|
Line 2645 sub handler {
|
Line 2645 sub handler {
|
my $replying = 0; |
my $replying = 0; |
foreach my $envkey (keys(%env)) { |
foreach my $envkey (keys(%env)) { |
if ($envkey=~/^form\.(rep)?rec\_(.*)$/) { |
if ($envkey=~/^form\.(rep)?rec\_(.*)$/) { |
|
my $repchk = $1; |
my $msgid = $2; |
my $msgid = $2; |
$r->print('<b>'.&mt('Confirming Receipt').':</b> '); |
$r->print('<b>'.&mt('Confirming Receipt').':</b> '); |
my $result = &Apache::lonmsg::user_crit_received($msgid); |
my $result = &Apache::lonmsg::user_crit_received($msgid); |
if ($result =~ /trans:\s+ok/) { |
if ($result =~ /trans:\s+ok/) { |
&statuschange($msgid,'read'); |
&statuschange($msgid,'read'); |
} |
} |
$r->print($result.'<br>'); |
$r->print($result.'<br />'); |
if ($1 eq 'rep') { |
if ($repchk eq 'rep') { |
&compout($r,'','','',$msgid); |
&compout($r,'','','',$msgid); |
$replying = 1; |
$replying = 1; |
} |
} |