mm-value — display UI access control value
Attribute | Pos. | Req. | Default | Description |
---|---|---|---|---|
field | yes | |||
table | yes | |||
user | ||||
interpolate | 0 | interpolate output? | ||
hide | 0 | Hide the tag return value? |
Interchange 5.9.0:
Source: code/UI_Tag/mm_value.coretag
Lines: 55
# 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: mm_value.coretag,v 1.4 2007-03-30 23:40:54 pajamian Exp $ UserTag mm-value Order field table UserTag mm-value addAttr UserTag mm-value Version $Revision: 1.4 $ UserTag mm-value Routine <<EOR sub { my($field, $table, $opt, $text) = @_; my $record; my $status; my $reverse; my $uid = $opt->{user}; unless ($record = $Vend::UI_entry) { return '' unless ref($record = ui_acl_enabled()); } #::logDebug("mm-value record: " . ::uneval($record)); $table = $opt->{table} || $::Scratch->{ui_data_table}; if($field eq 'user') { return $Vend::Session->{ui_username} || $Vend::Session->{username} || $CGI::user; } my %hash_field = qw/ acl_keys 1 no_fields 1 yes_fields 1 no_keys 1 yes_keys 1 owner_field 1 /; my $acl; my $check; if($check = $hash_field{$field}) { if ($field eq 'acl_keys') { return join "\n", get_ui_table_acl($table, $uid, 1); } else { $acl = get_ui_table_acl($table, $uid); return $acl->{$field}; } } else { return $record->{$field}; } } EOR