107 |
$code .= "# Tag::code_start:\n\t" if ($DEBUG); |
$code .= "# Tag::code_start:\n\t" if ($DEBUG); |
108 |
$code .= '$OUTPUT .= "<' . $self->name; |
$code .= '$OUTPUT .= "<' . $self->name; |
109 |
|
|
110 |
foreach (keys %h) |
foreach (sort $attr_sorter keys %h) |
111 |
{ |
{ |
112 |
if ($h{$_} =~ /^neb:(.*)$/) |
if ($h{$_} =~ /^neb:(.*)$/) |
113 |
{ |
{ |
114 |
$code .= sprintf ' %s=\" . %s . \"', $_, $1; |
$code .= sprintf ' %s=\"" . (%s) . "\"', $_, $1; |
115 |
} |
} |
116 |
else |
else |
117 |
{ |
{ |
120 |
} |
} |
121 |
|
|
122 |
$code .= ">\";"; |
$code .= ">\";"; |
123 |
$code .= "\# Tag::code_start\n" if ($DEBUG); |
$code .= "\# Tag::code_start" if ($DEBUG); |
124 |
|
$code .= "\n"; |
125 |
|
|
126 |
return $code; |
return $code; |
127 |
} |
} |