Diff for /loncom/lond between versions 1.486 and 1.487

version 1.486, 2012/02/28 15:54:07 version 1.487, 2012/03/26 11:03:34
Line 6717  sub is_author { Line 6717  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 $value;      my $value;
     if (defined($hashref)) {      if ($hashref) {
  $value = $hashref->{$key};  
     }  
   
     if(defined($value)) {   my $key    = "/$domain/_au";
  &Debug("$user @ $domain is an author");   if (defined($hashref)) {
       $value = $hashref->{$key};
       if(!untie_user_hash($hashref)) {
    return 'error: ' .  ($!+0)." untie (GDBM) Failed";
       }
    }
   
    if(defined($value)) {
       &Debug("$user @ $domain is an author");
    }
       } else {
    return 'error: '.($!+0)." tie (GDBM) Failed";
     }      }
   
     return defined($value);      return defined($value);

Removed from v.1.486  
changed lines
  Added in v.1.487


FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>