[interchange-cvs] interchange - heins modified lib/Vend/Order.pm

[interchange-core@interchange.redhat.com]

User:      heins
Date:      2001-11-08 18:27:35 GMT
Modified:  lib/Vend Order.pm
Log:
	* add error if non-existent order profile is called

Revision  Changes    Path
2.11      +4 -1      interchange/lib/Vend/Order.pm


rev 2.11, prev_rev 2.10
Index: Order.pm
===================================================================
RCS file: /anon_cvs/repository/interchange/lib/Vend/Order.pm,v
retrieving revision 2.10
retrieving revision 2.11
diff -u -r2.10 -r2.11
--- Order.pm	2001/11/08 16:17:31	2.10
+++ Order.pm	2001/11/08 18:27:35	2.11
@@ -1,6 +1,6 @@
 # Vend::Order - Interchange order routing routines
 #
-# $Id: Order.pm,v 2.10 2001/11/08 16:17:31 mheins Exp $
+# $Id: Order.pm,v 2.11 2001/11/08 18:27:35 mheins Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -28,7 +28,7 @@
 package Vend::Order;
 require Exporter;
 
-$VERSION = substr(q$Revision: 2.10 $, 10);
+$VERSION = substr(q$Revision: 2.11 $, 10);
 
 @ISA = qw(Exporter);
 
@@ -856,7 +856,10 @@
 	elsif(defined $::Scratch->{$profile}) {
 		$params = $::Scratch->{$profile};
 	}
-	else { return undef }
+	else {
+		::logError("Order profile %s not found", $profile);
+		return undef;
+	}
 	return undef unless $params;
 
 	my $ref = \%CGI::values;