meta-info —
Attribute | Pos. | Req. | Default | Description |
---|---|---|---|---|
item | ||||
meta_table | ||||
specific | ||||
view | ||||
extended_only | ||||
localize | ||||
interpolate | 0 | interpolate output? | ||
hide | 0 | Hide the tag return value? |
Interchange 5.9.0:
Source: code/UI_Tag/meta_info.coretag
Lines: 52
# Copyright 2002-2007 Interchange Development Group and others # # This program is free software; you can redistribute it and/or modify # it under the terms of the GNU General Public License as published by # the Free Software Foundation; either version 2 of the License, or # (at your option) any later version. See the LICENSE file for details. # # $Id: meta_info.coretag,v 1.4 2007-03-30 23:40:54 pajamian Exp $ UserTag meta-info Order table column key UserTag meta-info attrAlias col column UserTag meta-info addAttr UserTag meta-info Version $Revision: 1.4 $ UserTag meta-info Routine <<EOR sub { my ($table, $col, $key, $opt) = @_; my $item; if($table) { $item = $table; $item .= "::$col" if $col; } $item ||= $opt->{item} or return undef; my $meta; my $mdb; if($opt->{meta_table}) { $mdb = dbref($opt->{meta_table}); } my @tries = $item; if($opt->{specific}) { unshift @tries, $item . "::$opt->{specific}"; } for(@tries) { $meta = Vend::Table::Editor::meta_record( $_, $opt->{view}, $mdb, $opt->{extended_only}, ) and last; } return undef unless $meta; #::logDebug("Got meta record back, looking for $key: " . ::uneval($meta)); return errmsg($meta->{$key}) if $opt->{localize}; return $meta->{$key}; } EOR