[interchange] * Add "default" option on CGI tag. Negligible impact on performance, as

Mike Heins interchange-cvs at icdevgroup.org
Thu Jul 7 02:00:13 UTC 2016


commit 12d531675b82a0654117f362d4939c697e66906d
Author: Mike Heins <mike at perusion.com>
Date:   Wed Jul 6 21:56:48 2016 -0400

    * Add "default" option on CGI tag. Negligible impact on performance, as
      branch only followed on blank/zero value.
    
    * Close Issue #94 on Github.

 code/SystemTag/cgi.coretag |    4 ++++
 1 files changed, 4 insertions(+), 0 deletions(-)
---
diff --git a/code/SystemTag/cgi.coretag b/code/SystemTag/cgi.coretag
index 39b146a..e35a90b 100644
--- a/code/SystemTag/cgi.coretag
+++ b/code/SystemTag/cgi.coretag
@@ -24,6 +24,10 @@ sub {
 		$value =~ s~<([A-Za-z]*[^>]*\s+[Mm][Vv]\s*=\s*)~<$1~g;
 		$value =~ s/\[/[/g;
 	}
+	elsif(defined $opt->{default}) {
+		$value = $opt->{default};
+	}
+
 	if($opt->{filter}) {
 		$value = filter_value($opt->{filter}, $value, $var);
 		$CGI::values{$var} = $value unless $opt->{keep};



More information about the interchange-cvs mailing list