From b373465898535055867ce8acdea26a6518a99ebd Mon Sep 17 00:00:00 2001
From: einhverfr <einhverfr@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Mon, 10 Nov 2008 18:58:42 +0000
Subject: Unapplying for now the drafts fix

git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@2384 4979c152-3d1c-0410-bac9-87ea11338e46
---
 scripts/drafts.pl | 2 +-
 scripts/vendor.pl | 2 +-
 2 files changed, 2 insertions(+), 2 deletions(-)

(limited to 'scripts')

diff --git a/scripts/drafts.pl b/scripts/drafts.pl
index 7d6008ec..f7771f30 100644
--- a/scripts/drafts.pl
+++ b/scripts/drafts.pl
@@ -11,7 +11,7 @@ sub search {
     $request->{class_types} = [
 	{text => $request->{_locale}->text('AR'),  value => 'ar'},
 	{text => $request->{_locale}->text('AP'),  value => 'ap'},
-	{text => $request->{_locale}->text('GL'),  value => 'gl'},
+	{text => $request->{_locale}->text('GL'),  value => 'GL'},
     ];
     my $template = LedgerSMB::Template->new(
         user =>$request->{_user}, 
diff --git a/scripts/vendor.pl b/scripts/vendor.pl
index 45a46cb6..0f86c553 100644
--- a/scripts/vendor.pl
+++ b/scripts/vendor.pl
@@ -23,7 +23,7 @@ package LedgerSMB::Scripts::vendor;
 use LedgerSMB::DBObject::Vendor;
 use base qw(LedgerSMB::ScriptLib::Company);
 
-# require 'lsmb-request.pl';
+require 'lsmb-request.pl';
 
 sub set_entity_class {
     my ($null, $request) = @_;
-- 
cgit v1.2.3