6 |
## |
## |
7 |
## ---------------------------------------------------------------------------------------- |
## ---------------------------------------------------------------------------------------- |
8 |
## $Log$ |
## $Log$ |
9 |
|
## Revision 1.4 2003/02/14 14:06:20 joko |
10 |
|
## + minor fix to old metadata structure |
11 |
|
## |
12 |
## Revision 1.3 2003/02/11 06:28:24 joko |
## Revision 1.3 2003/02/11 06:28:24 joko |
13 |
## + changes to metadata structure |
## + changes to metadata structure |
14 |
## |
## |
89 |
|
|
90 |
# TypeProvider |
# TypeProvider |
91 |
# FIXME! this is still Vdeprecated!!! |
# FIXME! this is still Vdeprecated!!! |
92 |
if (my $item_type = $self->{args}->{$_ . '_type'}) { |
if (my $item_type = $self->{options}->{$_ . '_type'}) { |
93 |
my @item_type = split(':', $item_type); |
my @item_type = split(':', $item_type); |
94 |
$self->{meta}->{$_}->{TypeProvider} = { method => $item_type[0], arg => $item_type[1] }; |
$self->{meta}->{$_}->{TypeProvider} = { method => $item_type[0], arg => $item_type[1] }; |
95 |
} |
} |