[interchange-cvs] interchange - heins modified code/UserTag/component.tag
interchange-core@icdevgroup.org
interchange-core@icdevgroup.org
Fri May 2 15:55:00 2003
User: heins
Date: 2003-05-02 19:54:38 GMT
Modified: code/UserTag component.tag
Log:
* Commit needed change to [component ...] for new "mike" demo.
Allows output map of components.
Revision Changes Path
1.6 +7 -1 interchange/code/UserTag/component.tag
rev 1.6, prev_rev 1.5
Index: component.tag
===================================================================
RCS file: /var/cvs/interchange/code/UserTag/component.tag,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- component.tag 7 Oct 2002 19:19:06 -0000 1.5
+++ component.tag 2 May 2003 19:54:38 -0000 1.6
@@ -56,7 +56,7 @@
$record = $db->row_hash($name);
}
- $record ||= {};
+ $record ||= $opt;
my $body = $record->{comptext};
@@ -117,6 +117,12 @@
$cdb->set_slice($cache_it, $thing);
}
+ if($record->{output}) {
+ Vend::Interpolate::substitute_image(\$result)
+ unless $opt->{no_image_substitute};
+ $Tag->output_to($record->{output}, undef, $result);
+ return;
+ }
return $result;
}
EOR