+ my $string = 'applied to '. $self->cust_bill->invnum_date_pretty;
+
+ #show application date if over 24 hours after (or before) payment/credit date
+ $string .= ' on '. $self->_date_pretty
+ if abs( $self->_date - $self->_app_source_object->_date ) > 86400;
+
+ $string;
+}
+
+=item _app_source_object
+
+=cut
+
+sub _app_source_object {
+ my $self = shift;
+ my $source_table = $self->_app_source_table;
+ $self->$source_table();
+}
+
+=item _date_pretty
+
+Returns a string with the application date, for example: "3/20/2008"
+
+=cut
+
+sub _date_pretty {
+ my $self = shift;
+ time2str($date_format, $self->_date);