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

SF.net SVN: ledger-smb: [932] branches/1.2/LedgerSMB

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

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

Modified Paths:
--------------
    branches/1.2/LedgerSMB/Form.pm
    branches/1.2/LedgerSMB/User.pm

Modified: branches/1.2/LedgerSMB/Form.pm
===================================================================
--- branches/1.2/LedgerSMB/Form.pm	2007-03-17 21:05:28 UTC (rev 931)
+++ branches/1.2/LedgerSMB/Form.pm	2007-03-17 21:32:08 UTC (rev 932)
@@ -184,7 +184,7 @@
 
 	my ($self, $msg) = @_;
 
-	if ($ENV{HTTP_USER_AGENT}) {
+	if ($ENV{GATEWAY_INTERFACE}) {
 
 		$self->{msg} = $msg;
 		$self->{format} = "html";
@@ -214,7 +214,7 @@
 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 @@
 
 	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: branches/1.2/LedgerSMB/User.pm
===================================================================
--- branches/1.2/LedgerSMB/User.pm	2007-03-17 21:05:28 UTC (rev 931)
+++ branches/1.2/LedgerSMB/User.pm	2007-03-17 21:32:08 UTC (rev 932)
@@ -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.