loncom/lonnet/perl/lonnet.pm - diff

Return to lonnet.pm CVS log

Up to [LON-CAPA] / loncom / lonnet / perl

version 1.1043, 2009/11/12 15:58:34	version 1.1044, 2009/11/28 19:03:36
Line 2760 sub courserolelog {	Line 2760 sub courserolelog {
if (($trole eq 'cc') \|\| ($trole eq 'in') \|\|	if (($trole eq 'cc') \|\| ($trole eq 'in') \|\|
($trole eq 'ep') \|\| ($trole eq 'ad') \|\|	($trole eq 'ep') \|\| ($trole eq 'ad') \|\|
($trole eq 'ta') \|\| ($trole eq 'st') \|\|	($trole eq 'ta') \|\| ($trole eq 'st') \|\|
($trole=~/^cr/) \|\| ($trole eq 'gr')) {	($trole=~/^cr/) \|\| ($trole eq 'gr') \|\|
	($trole eq 'co')) {
if ($area =~ m-^/($match_domain)/($match_courseid)/?([^/]*)-) {	if ($area =~ m-^/($match_domain)/($match_courseid)/?([^/]*)-) {
my $cdom = $1;	my $cdom = $1;
my $cnum = $2;	my $cnum = $2;