From 528058086844ce596d73af268dc87512a3a5e845 Mon Sep 17 00:00:00 2001
From: tetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>
Date: Sat, 17 Mar 2007 21:32:08 +0000
Subject: More conversion from HTTP_USER_AGENT to GATEWAY_INTERFACE

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

(limited to 'LedgerSMB/Form.pm')

diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 59f23b6c..0785caf5 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -184,7 +184,7 @@ sub error {
 
 	my ($self, $msg) = @_;
 
-	if ($ENV{HTTP_USER_AGENT}) {
+	if ($ENV{GATEWAY_INTERFACE}) {
 
 		$self->{msg} = $msg;
 		$self->{format} = "html";
@@ -214,7 +214,7 @@ sub error {
 sub info {
 	my ($self, $msg) = @_;
 
-	if ($ENV{HTTP_USER_AGENT}) {
+	if ($ENV{GATEWAY_INTERFACE}) {
 		$msg =~ s/\n/<br>/g;
 
 		delete $self->{pre};
@@ -275,7 +275,7 @@ sub header {
 
 	my ($stylesheet, $favicon, $charset);
 
-	if ($ENV{HTTP_USER_AGENT}) {
+	if ($ENV{GATEWAY_INTERFACE}) {
 
 		if ($self->{stylesheet} && (-f "css/$self->{stylesheet}")) {
 			$stylesheet = qq|<link rel="stylesheet" href="css/$self->{stylesheet}" type="text/css" title="LedgerSMB stylesheet" />\n|;
-- 
cgit v1.2.3