[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]

SF.net SVN: ledger-smb: [933] trunk/LedgerSMB

Revision: 933
          http://svn.sourceforge.net/ledger-smb/?rev=933&view=rev
Author:   tetragon
Date:     2007-03-17 14:35:41 -0700 (Sat, 17 Mar 2007)

Log Message:
-----------
More conversion from HTTP_USER_AGENT to GATEWAY_INTERFACE

Modified Paths:
--------------
    trunk/LedgerSMB/Form.pm
    trunk/LedgerSMB/User.pm

Modified: trunk/LedgerSMB/Form.pm
===================================================================
--- trunk/LedgerSMB/Form.pm	2007-03-17 21:32:08 UTC (rev 932)
+++ trunk/LedgerSMB/Form.pm	2007-03-17 21:35:41 UTC (rev 933)
@@ -176,7 +176,7 @@
 
 	my ($self, $msg) = @_;
 
-	if ($ENV{HTTP_USER_AGENT}) {
+	if ($ENV{GATEWAY_INTERFACE}) {
 
 		$self->{msg} = $msg;
 		$self->{format} = "html";
@@ -206,7 +206,7 @@
 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 @@
 
 	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|;

Modified: trunk/LedgerSMB/User.pm
===================================================================
--- trunk/LedgerSMB/User.pm	2007-03-17 21:32:08 UTC (rev 932)
+++ trunk/LedgerSMB/User.pm	2007-03-17 21:35:41 UTC (rev 933)
@@ -900,7 +900,7 @@
 sub error {
 	my ($self, $msg) = @_;
 
-	if ($ENV{HTTP_USER_AGENT}) {
+	if ($ENV{GATEWAY_INTERFACE}) {
 		print qq|Content-Type: text/html\n\n|.
 			qq|<body bgcolor=ffffff>\n\n|.
 			qq|<h2><font color=red>Error!</font></h2>\n|.


This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.