|
Lines 283-288
sub XSLTParse4Display {
Link Here
|
| 283 |
|
283 |
|
| 284 |
my $varxml = "<variables>\n"; |
284 |
my $varxml = "<variables>\n"; |
| 285 |
while (my ($key, $value) = each %$variables) { |
285 |
while (my ($key, $value) = each %$variables) { |
|
|
286 |
$value //= q{}; |
| 286 |
$varxml .= "<variable name=\"$key\">$value</variable>\n"; |
287 |
$varxml .= "<variable name=\"$key\">$value</variable>\n"; |
| 287 |
} |
288 |
} |
| 288 |
$varxml .= "</variables>\n"; |
289 |
$varxml .= "</variables>\n"; |
| 289 |
- |
|
|