loncom/interface/lonrequestcourse.pm - diff

Return to lonrequestcourse.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.76, 2014/01/08 17:18:12	version 1.77, 2014/04/09 10:50:07
Line 3800 sub process_request {	Line 3800 sub process_request {
$env{'user.domain'},$fullname,$env{'form.cdescr'});	$env{'user.domain'},$fullname,$env{'form.cdescr'});
if ((ref($postprocess) eq 'HASH') &&	if ((ref($postprocess) eq 'HASH') &&
((ref($postprocess->{'queuedmsg'}) eq 'HASH') \|\| ($postprocess->{'queuedweb'}))) {	((ref($postprocess->{'queuedmsg'}) eq 'HASH') \|\| ($postprocess->{'queuedweb'}))) {
my $recipient = $env{'user.name'}.':'.$env{'user.domain'};	&notification_information($disposition,undef,$dom,$cnum,$now,undef,$postprocess);
$output .= &notification_information($disposition,$recipient,$dom,$cnum,$now,undef,$postprocess);
}	}
}	}
}	}
Line 3994 sub notification_information {	Line 3993 sub notification_information {
if (scalar(@{$addmsg}) > 0) {	if (scalar(@{$addmsg}) > 0) {
&Apache::loncoursequeueadmin::send_selfserve_notification($recipient,$addmsg,undef,	&Apache::loncoursequeueadmin::send_selfserve_notification($recipient,$addmsg,undef,
$env{'form.cdescr'},$now,	$env{'form.cdescr'},$now,
'queuedreq',$sender);	'queuedcrsreq',$sender);
}	}
}	}
}	}
Line 4043 sub notification_information {	Line 4042 sub notification_information {
}	}
}	}
if (scalar(@{$addmsg}) > 0) {	if (scalar(@{$addmsg}) > 0) {
my $type = 'createdreq';	my $type = 'createdcrsreq';
if ($code) {	if ($code) {
$type = 'uniquecode';	$type = 'uniquecode';
}	}