4 |
# Author : Ulrich Pfeifer |
# Author : Ulrich Pfeifer |
5 |
# Created On : Fri Sep 13 13:05:52 1996 |
# Created On : Fri Sep 13 13:05:52 1996 |
6 |
# Last Modified By: Ulrich Pfeifer |
# Last Modified By: Ulrich Pfeifer |
7 |
# Last Modified On: Sun Nov 22 18:44:40 1998 |
# Last Modified On: Fri Apr 14 16:27:01 2000 |
8 |
# Language : CPerl |
# Language : CPerl |
9 |
# Update Count : 55 |
# Update Count : 57 |
10 |
# Status : Unknown, Use with caution! |
# Status : Unknown, Use with caution! |
11 |
# |
# |
12 |
# Copyright (c) 1996-1997, Ulrich Pfeifer |
# Copyright (c) 1996-1997, Ulrich Pfeifer |
91 |
my $fld; |
my $fld; |
92 |
|
|
93 |
for $fld (keys %{$self->{Plain}}, keys %{$self->{Raw}}) { |
for $fld (keys %{$self->{Plain}}, keys %{$self->{Raw}}) { |
94 |
%r = $tb->search($fld, |
%r = $tb->search( |
95 |
$self->{Plain}->{$fld}, |
{ attr => $fld, |
96 |
$self->{Raw}->{$fld}, |
cont => $self->{Plain}->{$fld}, |
97 |
|
raw => $self->{Raw}->{$fld}, |
98 |
|
@_ |
99 |
|
} |
100 |
); |
); |
101 |
my ($key, $val); |
my ($key, $val); |
102 |
while (($key, $val) = each %r) { |
while (($key, $val) = each %r) { |