version 1.1, 2010/01/11 02:58:15
|
version 1.2, 2010/01/11 13:16:09
|
Line 78 sub send_message {
|
Line 78 sub send_message {
|
my $subject = &mt('GCI Concept Test Report in [_1]',$cdesc); |
my $subject = &mt('GCI Concept Test Report in [_1]',$cdesc); |
my $message = &mt('Aggregated test performance data are available from the Overall Statistics Page of your GCI Concept Test: [_1]:',$cdesc).'<br /><br />'."\n\n". |
my $message = &mt('Aggregated test performance data are available from the Overall Statistics Page of your GCI Concept Test: [_1]:',$cdesc).'<br /><br />'."\n\n". |
&mt('The following link will take you to the statistics page for the Concept Test: ').'<br /><br />'."\n\n". |
&mt('The following link will take you to the statistics page for the Concept Test: ').'<br /><br />'."\n\n". |
'http://jefferson.lite.msu.edu/adm/login?username='.$ownername.'&symb=%2fadm%2fstatistics&role=cc.%2f'.$dom.'%2f'.$cnum."\n\n"; |
'http://gci.lite.msu.edu/adm/login?username='.$ownername.'&symb=%2fadm%2fstatistics&role=cc.%2f'.$dom.'%2f'.$cnum."\n\n"; |
my @recusers; |
my @recusers; |
my @recudoms; |
my @recudoms; |
my %cc_hash = &Apache::lonnet::get_my_roles($cnum,$dom,'','',['cc']); |
my %cc_hash = &Apache::lonnet::get_my_roles($cnum,$dom,'','',['cc']); |