X-Git-Url: http://wagnertech.de/gitweb/gitweb.cgi/mfinanz.git/blobdiff_plain/2584adeeb9f109b43bb952d5f66b7d681d340f8a..76592c8a3:/bin/mozilla/oe.pl diff --git a/bin/mozilla/oe.pl b/bin/mozilla/oe.pl index 4753a71d8..47d6f8f09 100644 --- a/bin/mozilla/oe.pl +++ b/bin/mozilla/oe.pl @@ -24,7 +24,8 @@ # GNU General Public License for more details. # You should have received a copy of the GNU General Public License # along with this program; if not, write to the Free Software -# Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. +# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, +# MA 02110-1335, USA. #====================================================================== # # Order entry module @@ -42,7 +43,6 @@ use SL::OE; use SL::IR; use SL::IS; use SL::MoreCommon qw(ary_diff restore_form save_form); -use SL::PE; use SL::ReportGenerator; use List::MoreUtils qw(uniq any none); use List::Util qw(min max reduce sum); @@ -986,6 +986,13 @@ sub orders { push @options, $locale->text('Vendor') . " : $form->{vendor}" if $form->{vendor}; push @options, $locale->text('Contact Person') . " : $form->{cp_name}" if $form->{cp_name}; push @options, $locale->text('Department') . " : $department" if $form->{department}; + if ($form->{department_id}) { + unless ($form->{department}) { + require SL::DB::Department; + my $department = SL::DB::Manager::Department->find_by(id => $::form->{department_id}); + push @options, $locale->text('Department') . " : " . $department->description if $department; + } + } push @options, $locale->text('Order Number') . " : $form->{ordnumber}" if $form->{ordnumber}; push @options, $locale->text('Customer Order Number') . " : $form->{cusordnumber}" if $form->{cusordnumber}; push @options, $locale->text('Notes') . " : $form->{notes}" if $form->{notes};