summaryrefslogtreecommitdiff
path: root/LedgerSMB/Form.pm
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-17 21:35:41 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-17 21:35:41 +0000
commit422e6108dcd2a46bd94c154e7e63eeaf5d3181a9 (patch)
tree1c1ba1cd08747734299c9a0e5fffbc7a03ab1cd3 /LedgerSMB/Form.pm
parent92352426d189a6ad27c1d0b118b7b5c66882be95 (diff)
More conversion from HTTP_USER_AGENT to GATEWAY_INTERFACE
git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@933 4979c152-3d1c-0410-bac9-87ea11338e46
Diffstat (limited to 'LedgerSMB/Form.pm')
-rwxr-xr-xLedgerSMB/Form.pm6
1 files changed, 3 insertions, 3 deletions
diff --git a/LedgerSMB/Form.pm b/LedgerSMB/Form.pm
index 05044b99..ffdd040a 100755
--- a/LedgerSMB/Form.pm
+++ b/LedgerSMB/Form.pm
@@ -176,7 +176,7 @@ sub error {
my ($self, $msg) = @_;
- if ($ENV{HTTP_USER_AGENT}) {
+ if ($ENV{GATEWAY_INTERFACE}) {
$self->{msg} = $msg;
$self->{format} = "html";
@@ -206,7 +206,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};
@@ -267,7 +267,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|;