version 1.4, 2005/11/17 22:51:59
|
version 1.5, 2005/11/18 22:34:21
|
Line 868 sub nsdl_query {
|
Line 868 sub nsdl_query {
|
} elsif ($token->[0] eq 'S') { |
} elsif ($token->[0] eq 'S') { |
if ($token->[1] eq 'record') { |
if ($token->[1] eq 'record') { |
%result=(); |
%result=(); |
} elsif ($token->[1]=/^dc\:/) { |
} elsif ($token->[1]=~/^dc\:/) { |
$is=$token->[1]; |
$is=$token->[1]; |
$cont=''; |
$cont=''; |
} |
} |
Line 877 sub nsdl_query {
|
Line 877 sub nsdl_query {
|
# |
# |
# Now store it away |
# Now store it away |
# |
# |
} elsif ($token->[1]=/^dc\:/) { |
} elsif ($token->[1]=~/^dc\:/) { |
$result{$is}=$cont; |
$result{$is}=$cont; |
} |
} |
} |
} |