From b50bfbdd81b92e2e32b47b385d851aa27e658dcb Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sun, 24 Feb 2008 03:20:25 +0000
Subject: Undoing mistaken commit of customizations

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/branches/1.2@2080 4979c152-3d1c-0410-bac9-87ea11338e46
---
 LedgerSMB/Form.pm | 6 ------
 1 file changed, 6 deletions(-)

(limited to 'LedgerSMB/Form.pm')

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 6f2b80e1..60752d22 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -2154,9 +2154,6 @@ sub all_departments {
 
     while ( my $ref = $sth->fetchrow_hashref('NAME_lc') ) {
         push @{ $self->{all_department} }, $ref;
-        if ($self->{department_id} == $ref->{id}){
-            $self->{department} = "$ref->{description}--$ref->{id}";
-        }
     }
 
     $sth->finish;
@@ -2200,7 +2197,6 @@ sub create_links {
 
     my ( $self, $module, $myconfig, $vc, $job ) = @_;
 
-    $self->{department_id} = $myconfig->{department_id};
     # get last customers or vendors
     my ( $query, $sth );
 
@@ -2375,8 +2371,6 @@ sub lastname_used {
     my ( $self, $myconfig, $dbh2, $vc, $module ) = @_;
 
     my $dbh = $self->{dbh};
-    $self->{department_id} = $myconfig->{department_id};
-
     $vc ||= $self->{vc};    # add default to correct for improper passing
     my $arap = ( $vc eq 'customer' ) ? "ar" : "ap";
     my $where = "1 = 1";
-- 
cgit v1.2.3