Log Message:
-----------
added full_name and rfc822_mailbox methods for convenience.
Modified Files:
--------------
webwork2/lib/WeBWorK/DB/Record:
User.pm
Revision Data
-------------
Index: User.pm
===================================================================
RCS file: /webwork/cvs/system/webwork2/lib/WeBWorK/DB/Record/User.pm,v
retrieving revision 1.6
retrieving revision 1.7
diff -Llib/WeBWorK/DB/Record/User.pm -Llib/WeBWorK/DB/Record/User.pm -u -r1.6 -r1.7
--- lib/WeBWorK/DB/Record/User.pm
+++ lib/WeBWorK/DB/Record/User.pm
@@ -65,4 +65,38 @@
TEXT
)}
+sub full_name {
+ my ($self) = @_;
+
+ my $first = $self->first_name;
+ my $last = $self->last_name;
+
+ if (defined $first and $first ne "" and defined $last and $last ne "") {
+ return "$first $last";
+ } elsif (defined $first and $first ne "") {
+ return $first;
+ } elsif (defined $last and $last ne "") {
+ return $last;
+ } else {
+ return "";
+ }
+}
+
+sub rfc822_mailbox {
+ my ($self) = @_;
+
+ my $full_name = $self->full_name;
+ my $address = $self->email_address;
+
+ if (defined $address and $address ne "") {
+ if (defined $full_name and $full_name ne "") {
+ return "$full_name <$address>";
+ } else {
+ return $address;
+ }
+ } else {
+ return "";
+ }
+}
+
1;
|
