[interchange-cvs] interchange - heins modified code/UserTag/history_scan.tag

interchange-cvs at icdevgroup.org interchange-cvs at icdevgroup.org
Sat Aug 13 12:01:27 EDT 2005


User:      heins
Date:      2005-08-13 16:01:27 GMT
Modified:  code/UserTag history_scan.tag
Log:
* Only show "Huge URL" message when in debug mode.

Revision  Changes    Path
1.18      +3 -2      interchange/code/UserTag/history_scan.tag


rev 1.18, prev_rev 1.17
Index: history_scan.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/history_scan.tag,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- history_scan.tag	17 Apr 2005 19:28:02 -0000	1.17
+++ history_scan.tag	13 Aug 2005 16:01:27 -0000	1.18
@@ -1,10 +1,10 @@
 # Copyright 2002 Interchange Development Group (http://www.icdevgroup.org/)
 # Licensed under the GNU GPL v2. See file LICENSE for details.
-# $Id: history_scan.tag,v 1.17 2005/04/17 19:28:02 mheins Exp $
+# $Id: history_scan.tag,v 1.18 2005/08/13 16:01:27 mheins Exp $
 
 UserTag history-scan Order   find exclude default
 UserTag history-scan addAttr
-UserTag history-scan Version $Revision: 1.17 $
+UserTag history-scan Version $Revision: 1.18 $
 UserTag history-scan Routine <<EOR
 my %var_exclude = ( qw/
 		mv_credit_card_number 1
@@ -79,7 +79,8 @@
 					$len,
 					$opt->{size_limit},
 				);
-		$Tag->error({ name => 'history-scan', set => $m });
+		$Tag->error({ name => 'history-scan', set => $m })
+			if $opt->{debug};
 		return undef;
 	}
 	return $string;








More information about the interchange-cvs mailing list