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

[interchange-core@icdevgroup.org]

User:      heins
Date:      2002-08-12 18:56:14 GMT
Modified:  scripts  interchange.PL
Log:
* Fix wrong reference to $CGI

Revision  Changes    Path
2.50      +3 -3      interchange/scripts/interchange.PL


rev 2.50, prev_rev 2.49
Index: interchange.PL
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=
=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D=3D
RCS file: /var/cvs/interchange/scripts/interchange.PL,v
retrieving revision 2.49
retrieving revision 2.50
diff -u -r2.49 -r2.50
--- interchange.PL	10 Aug 2002 01:59:32 -0000	2.49
+++ interchange.PL	12 Aug 2002 18:56:14 -0000	2.50
@@ -3,7 +3,7 @@
 #
 # Interchange version 4.9.2
 #
-# $Id: interchange.PL,v 2.49 2002/08/10 01:59:32 mheins Exp $
+# $Id: interchange.PL,v 2.50 2002/08/12 18:56:14 mheins Exp $
 #
 # Copyright (C) 1996-2002 Red Hat, Inc. and others.
 # http://www.icdevgroup.org/
@@ -1854,8 +1854,8 @@
 						$Vend::StatusLine =3D "Status: 204 No content";
 						my $extra_click =3D $Vend::FinalPath;
 						$extra_click =3D~ s:/:\0:g;
-						$CGI->{mv_click} =3D  $CGI->{mv_click}
-											? "$CGI->{mv_click}\0$extra_click"
+						$CGI::values{mv_click} =3D  $CGI::values{mv_click}
+											? "$CGI::values{mv_click}\0$extra_click"
 											:  $extra_click;
 						do_process(@_);
 						::respond('');