[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