[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