/[drupal]/contributions/modules/mailalias/mailalias.module
ViewVC logotype

Contents of /contributions/modules/mailalias/mailalias.module

Parent Directory Parent Directory | Revision Log Revision Log | View Revision Graph Revision Graph


Revision 1.5 - (hide annotations) (download) (as text)
Wed Apr 7 18:30:56 2004 UTC (5 years, 7 months ago) by killes
Branch: MAIN
Branch point for: DRUPAL-4-4
Changes since 1.4: +2 -2 lines
File MIME type: text/x-php
appliad patch by javanaut: http://drupal.org/node/view/6244
1 weitzman 1.1 <?php
2    
3 weitzman 1.3 function mailalias_user($type, $edit, $user) {
4 weitzman 1.1 switch ($type) {
5     case "view_private":
6     // when user looks at his own data
7     $output = form_item(t("Email aliases"), $user->mailalias);
8 killes 1.5 return array ("mailalias" => $output);
9 weitzman 1.1 case "edit_form":
10     // when user tries to edit his own data $output =
11 weitzman 1.2 $output = form_textfield(t("Email aliases"), "mailalias", $user->mailalias, 70, 255, t("Add any additional email addresses, separated by commas. We use these to identify the author of email submissions. These email addresses are private and are not shared with other users."));
12 killes 1.5 return array ("mailalias" => $output);
13 weitzman 1.1 case "edit_validate":
14     // validate user data editing. TODO
15     $mailalias = strtr($edit["mailalias"], array (" " => "")); // strip spaces
16     $mailsarr = explode(",", $mailalias);
17     foreach ($mailsarr as $mail) {
18 mathias 1.4 if ($mail != null && $error = user_validate_mail($mail)) {
19 weitzman 1.1 return $error;
20     }
21     }
22     return array ("mailalias" => $mailalias);
23     }
24     }
25    
26 weitzman 1.3 function mailalias_help($section) {
27     if ($section == "admin/system/modules#description") {
28     return t("A user may associate additional email addresses with his account.");
29     }
30 weitzman 1.1 }
31    
32 mathias 1.4 ?>

  ViewVC Help
Powered by ViewVC 1.1.2