X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/766f5705ecb9cd56adfbffd94c871959bb64c6fd..fac8417d136f89b1ce0fed8c2ef35ee089228ac7:/SL/DB/Project.pm

diff --git a/SL/DB/Project.pm b/SL/DB/Project.pm
index 3f3e88ddb..aa97f764e 100644
--- a/SL/DB/Project.pm
+++ b/SL/DB/Project.pm
@@ -60,6 +60,14 @@ sub full_description {
   } elsif ($params{style} =~ m/description/) {
     $description = $self->description;
 
+  } elsif ($params{style} =~ m/full/) {
+    $description = $self->projectnumber;
+    if ($self->description && do { my $desc = quotemeta $self->description; $self->projectnumber !~ m/$desc/ }) {
+      $description .= ' ' . $self->description;
+    }
+
+    $description = $self->customer->name . " (${description})";
+
   } else {
     $description = $self->projectnumber;
     if ($self->description && do { my $desc = quotemeta $self->description; $self->projectnumber !~ m/$desc/ }) {
@@ -128,6 +136,13 @@ Returns only the project's number.
 
 Returns only the project's description.
 
+=item C<full>
+
+Returns the customer name followed by the project number and project
+description in parenthesis (e.g. "Evil Corp (12345 World
+domination)"). If the project's description is already part of the
+project's number then it will not be appended.
+
 =back
 
 =back