summaryrefslogtreecommitdiff
path: root/LedgerSMB/Form.pm
diff options
context:
space:
mode:
authortetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-17 21:32:08 +0000
committertetragon <tetragon@4979c152-3d1c-0410-bac9-87ea11338e46>2007-03-17 21:32:08 +0000
commit528058086844ce596d73af268dc87512a3a5e845 (patch)
treeb8629db8d3813913288a6a70df3eb9fa6a86dff3 /LedgerSMB/Form.pm
parent4a04e78e1d10f40053407755a2ef3ce25193d87d (diff)
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
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 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|;