Also look in the next-highest directory when detecting VCS; add SVN
[interchange.git] / code / UI_Tag / db_columns.coretag
1 # Copyright 2002-2007 Interchange Development Group and others
2
3 # This program is free software; you can redistribute it and/or modify
4 # it under the terms of the GNU General Public License as published by
5 # the Free Software Foundation; either version 2 of the License, or
6 # (at your option) any later version.  See the LICENSE file for details.
7
8 UserTag db_columns  Order       name columns joiner passed_order
9 UserTag db_columns  AttrAlias   table name
10 UserTag db_columns  AttrAlias   fields columns
11 UserTag db_columns  Version     1.5
12 UserTag db_columns  Routine     <<EOR
13 sub {
14         my ($table,$columns, $joiner, $passed_order) = @_;
15         $table = $Values->{mv_data_table}
16                 unless $table;
17         my $db = Vend::Data::database_exists_ref($table)
18                 or return undef;
19         my $acl = UI::Primitive::get_ui_table_acl($table);
20         $db = $db->ref() unless $Vend::Interpolate::Db{$table};
21         my $key = $db->config('KEY');
22
23         $joiner = "\n" unless defined $joiner;
24
25         my @cols;
26         if(! $columns || $columns =~ /^[\s,\0]*$/) {
27                 @cols = $db->columns();
28         }
29         else {
30                 @cols = grep /\S/, split /[\s,\0]+/, $columns;
31                 my (@allcols) =  $db->columns();
32
33                 my %col;
34                 if($passed_order) {
35                         @col{@allcols} = @allcols;
36                         @allcols = @cols;
37                         my $found;
38                         for(@cols) {
39                                 next unless $_ eq $key;
40                                 $found = 1;
41                                 last;
42                         }
43                         unshift (@allcols, $key) if ! $found;
44                 }
45                 else {
46                         @col{@cols} = @cols;
47                 }
48
49                 $col{$key} = $key if ! defined $col{$key};
50
51                 @cols = grep defined $col{$_}, @cols;
52         }
53
54         if($acl) {
55                 @cols = UI::Primitive::ui_acl_grep( $acl, 'fields', @cols);
56         }
57
58         return @cols if wantarray;
59         return join $joiner, @cols;
60 }
61 EOR