# 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