[interchange-cvs] interchange - jon modified scripts/interchange.PL

[interchange-core@interchange.redhat.com]

User:      jon
Date:      2002-06-05 14:07:27 GMT
Modified:  scripts  interchange.PL
Log:
Allow anything except numeric-only affiliate names in mv_pc.
(Suggested by Stefan.)

Revision  Changes    Path
2.32      +2 -2      interchange/scripts/interchange.PL


rev 2.32, prev_rev 2.31
Index: interchange.PL
===================================================================
RCS file: /var/cvs/interchange/scripts/interchange.PL,v
retrieving revision 2.31
retrieving revision 2.32
diff -u -u -r2.31 -r2.32
--- interchange.PL	29 May 2002 09:52:21 -0000	2.31
+++ interchange.PL	5 Jun 2002 14:07:27 -0000	2.32
@@ -50,7 +50,7 @@
 #
 # Interchange version 4.9.0
 #
-# $Id: interchange.PL,v 2.31 2002/05/29 09:52:21 kwalsh Exp $
+# $Id: interchange.PL,v 2.32 2002/06/05 14:07:27 jon Exp $
 #
 # Copyright (C) 1996-2001 Red Hat, Inc. <interchange@redhat.com>
 #
@@ -2094,7 +2094,7 @@
 
 	$Vend::Session->{'arg'} = $Vend::Argument = ($CGI::values{mv_arg} || undef);
 #::logDebug("arg is $Vend::Session->{arg}");
-	if($CGI::values{mv_pc} and $CGI::values{mv_pc} =~ /[A-Za-z]/) {
+	if ($CGI::values{mv_pc} =~ /\D/) {
 		$Vend::Session->{'source'} =	$CGI::values{mv_pc} eq 'RESET'
 										? ''
 										: $CGI::values{mv_pc};