From 76da5bf5bf6929e4cc11a8eb48a53e078ff6e167 Mon Sep 17 00:00:00 2001
From: Moritz Bunkus <m.bunkus@linet-services.de>
Date: Wed, 8 Dec 2010 17:54:29 +0100
Subject: [PATCH] =?utf8?q?Modus,=20um=20nur=20die=20tats=C3=A4chliche=20?=
 =?utf8?q?=C3=9Cbersetzung=20zu=20liefern,=20keinen=20Fallback?=
MIME-Version: 1.0
Content-Type: text/plain; charset=utf8
Content-Transfer-Encoding: 8bit

---
 SL/DB/Helper/TranslatedAttributes.pm | 25 ++++++++++++++-----------
 1 file changed, 14 insertions(+), 11 deletions(-)

diff --git a/SL/DB/Helper/TranslatedAttributes.pm b/SL/DB/Helper/TranslatedAttributes.pm
index 51e7e295f..b0b1c2e6c 100644
--- a/SL/DB/Helper/TranslatedAttributes.pm
+++ b/SL/DB/Helper/TranslatedAttributes.pm
@@ -10,13 +10,15 @@ our @EXPORT = qw(translated_attribute save_attribute_translation);
 use Carp;
 
 sub translated_attribute {
-  my ($self, $attribute, $language_id, %params) = @_;
+  my ($self, $attribute, $language_id, $verbatim) = @_;
 
-  $language_id      = _check($self, $attribute, $language_id);
+  $language_id      = _check($self, $attribute, $language_id, $verbatim);
   my $translation   = _find_translation($self, $attribute, $language_id, 0);
-  $translation    ||= _find_translation($self, $attribute, undef,        0);
+  $translation    ||= _find_translation($self, $attribute, undef,        0) unless $verbatim;
 
-  return $translation ? $translation->translation : $self->$attribute;
+  return $translation ? $translation->translation
+       : $verbatim    ? undef
+       :                $self->$attribute;
 }
 
 sub save_attribute_translation {
@@ -28,10 +30,10 @@ sub save_attribute_translation {
 }
 
 sub _check {
-  my ($self, $attribute, $language_id) = @_;
+  my ($self, $attribute, $language_id, $verbatim) = @_;
 
   croak "Invalid attribute '${attribute}'" unless $self->can($attribute);
-  croak "Object has not been saved yet"    unless $self->id;
+  croak "Object has not been saved yet"    unless $self->id || $verbatim;
 
   return ref($language_id) eq 'SL::DB::Language' ? $language_id->id : $language_id;
 }
@@ -78,17 +80,18 @@ Usage:
 
 =over 4
 
-=item C<translated_attribute $attribute, $language_id>
+=item C<translated_attribute $attribute, $language_id, $verbatim>
 
 Returns the translation stored for the attribute C<$attribute> and the
 language C<$language_id> (either an ID or an instance of
 L<SL::DB::Language>).
 
-If no translation exists for C<$language_id> or if C<$language_id> is
-undefined then the default translation is looked up.
+If C<$verbatim> is falsish and either no translation exists for
+C<$language_id> or if C<$language_id> is undefined then the default
+translation is looked up.
 
-If neither translation exists then the value of C<< $self->$attribute >>
-is returned.
+If C<$verbatim> is falsish and neither translation exists then the
+value of C<< $self->$attribute >> is returned.
 
 Requires that C<$self> has a primary ID column named C<id> and that
 the object has been saved.
-- 
2.20.1