[interchange-cvs] interchange - heins modified dist/lib/UI/ui.cfg
interchange-cvs at icdevgroup.org
interchange-cvs at icdevgroup.org
Mon Jul 28 18:08:00 EDT 2003
User: heins
Date: 2003-07-28 21:08:03 GMT
Modified: dist/lib/UI ui.cfg
Log:
* Use ic- qualifier to prevent namespace clashes.
Revision Changes Path
2.14 +3 -3 interchange/dist/lib/UI/ui.cfg
rev 2.14, prev_rev 2.13
Index: ui.cfg
===================================================================
RCS file: /var/cvs/interchange/dist/lib/UI/ui.cfg,v
retrieving revision 2.13
retrieving revision 2.14
diff -u -r2.13 -r2.14
--- ui.cfg 27 Jul 2003 20:51:02 -0000 2.13
+++ ui.cfg 28 Jul 2003 21:08:03 -0000 2.14
@@ -110,7 +110,7 @@
while($data =~ m{\[(\w+)\](.*?)\[/\1]}sg) {
my $parm = $1;
my $val = HTML::Entities::encode_entities($2);
- push @headers, qq{<meta name="component" content="$i;$parm;$val">};
+ push @headers, qq{<meta name="ic-component" content="$i;$parm;$val">};
}
}
@@ -129,7 +129,7 @@
my $val = HTML::Entities::encode_entities($3);
next if $parm eq 'meta_header';
next if $parm eq 'page_title';
- push @headers, qq{<meta name="setting" content="$type;$parm;$val">};
+ push @headers, qq{<meta name="ic-setting" content="$type;$parm;$val">};
}
my $meta_string = join "\n", @headers;
@@ -254,7 +254,7 @@
my($hname, $value) = @_;
#::logDebug("Calling compcheck name=$hname value=$value");
$hname = lc $hname;
- return unless $hname =~ /^x-meta-(\w+)/;
+ return unless $hname =~ /^x-meta-ic-(\w+)/;
$hname = $1;
if($hname eq 'component') {
#::logDebug("doing $value");
More information about the interchange-cvs
mailing list