![[BACK]](/icons/back.gif){kind=icon}
Return to lond CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom|
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"); |