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