[WWcvs] webwork2: added full_name and rfc822_mailbox methods for convenience.

[Sam H. v. a. <we...@ma...>]

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;