Return to lond CVS log | Up to [LON-CAPA] / loncom |
version 1.320, 2006/02/10 09:47:36 | version 1.321, 2006/02/21 18:43:37 |
---|---|
Line 5503 sub is_author { | Line 5503 sub is_author { |
# Author role should show up as a key /domain/_au | # Author role should show up as a key /domain/_au |
my $key = "/$domain/_au"; | my $key = "/$domain/_au"; |
my $value = $hashref->{$key}; | my $value; |
if (defined($hashref)) { | |
$value = $hashref->{$key}; | |
} | |
if(defined($value)) { | if(defined($value)) { |
&Debug("$user @ $domain is an author"); | &Debug("$user @ $domain is an author"); |