next »

[ai4px]

I've customized the user database to include a field called email.   When a given user looks at an event that was created by another user, I want to have a clickable MAILTO: link that points to the author's email address.   Now I could do something like mailto:<%=$User->{email}%>, but that's the current logged in user, not the author's email address.   How can I get the author's email address?

Wes

[DanO]

See if the following previous forum message has what you're looking for:

LINK > AUTOLINK (email address)

Dan O.
www.much2.com

[ai4px]

Thanks for the reply, but that thread seems to concentrate more on formatting the HTML output, not getting fields from the user database.   So still, the question remains how to get a specific field about a specific user from teh user database.   

:-(
Wes

[ai4px]

Is there a way to make a call to the new user subroutine to request info about a particular user? 

I'm thinking about calling it and having it stuff another hash with user info. . . .  for example, if I called it $user1, then $user hash would still contain the current logged in user, and user1 hash would contain the user I was querying.
Wes

It's located in USER. PM file. . .   

sub new {
   my ($class,$username,$users_db,$permissions_db) = @_;
   my $self = bless { }, $class;
   $self->{'username'} = $username;
   unless ($username && $users_db && $permissions_db) {
      return $self;
      }
   $self->{'_users_db'} = new DBFile($users_db);
   $self->{'_permissions_db'} = new DBFile($permissions_db);
   my ($record) = $self->{'_users_db'}->getRecord( {'username'=>$username} );
   if ($record) {
      foreach $key (keys %$record) {
         $self->{$key} = $record->{$key};
         }
      $self->readPermissions();
      $self->{'_is_valid'} = 1;
      }
   return $self;   
   }

[ai4px]

I got it!!!  Maybe this will help others.
Wes

bear in mind that I added a field to the user database called email that contains each user's email address.

$lookupuserdb='c:\inetpub\wwwroot\cgi-bin\calendar\/calendarscript/users';         
$lookuppermdb='c:\inetpub\wwwroot\cgi-bin\calendar\/calendarscript/permissions';
$User1 = new User($EVENT->{details}->{author_id}, $lookupuserdb, $lookuppermdb);

<a href="mailto:<%=$User1->{email}%>?subject=<%=EVENT FIELD(title)%>"><%=$User1->{name}%></a>               

[DanO]

**  that thread seems to concentrate more on formatting the HTML output, not getting fields from the user database. **

Sorry, I thought you wanted an email address that was listed in the event details made into a link.

Glad to hear you figured it out.

Dan O.

[DanO]

** $lookupuserdb='c:\inetpub\wwwroot\cgi-bin\calendar\/calendarscript/users'; **

PS. When defining paths in Perl, you'll either need to escape \'s (backslashes). Eg.

c:\\inetpub\\wwwroot\\cgi-bin\\calendar\\calendarscript\\users

Or use /'s (forward slashes) in place of them, which would be the preferred method. Eg.

c:/inetpub/wwwroot/cgi-bin/calendar/calendarscript/users

JFYI

Dan O.