| … | |
… | |
| 224 | my $url = shift @path; |
224 | my $url = shift @path; |
| 225 | push @result, $url |
225 | push @result, $url |
| 226 | ? CGI::a({-href=>"$url?$auth"}, $name) |
226 | ? CGI::a({-href=>"$url?$auth"}, $name) |
| 227 | : $name; |
227 | : $name; |
| 228 | } |
228 | } |
| 229 | return join($sep, @result), "\n"; |
229 | return join($sep, @result) . "\n"; |
| 230 | } |
230 | } |
| 231 | |
231 | |
| 232 | sub siblingsMacro { |
232 | sub siblingsMacro { |
| 233 | my $self = shift; |
233 | my $self = shift; |
| 234 | my @siblings = @_; |
234 | my @siblings = @_; |
| … | |
… | |
| 269 | push @result, $url |
269 | push @result, $url |
| 270 | ? CGI::a({-href=>"$url?$auth$tail"}, $html) |
270 | ? CGI::a({-href=>"$url?$auth$tail"}, $html) |
| 271 | : $html; |
271 | : $html; |
| 272 | } |
272 | } |
| 273 | } |
273 | } |
| 274 | return join($args{separator}, @result), "\n"; |
274 | return join($args{separator}, @result) . "\n"; |
| 275 | } |
275 | } |
| 276 | |
276 | |
| 277 | # hidden_fields(LIST) - return hidden <INPUT> tags for each field mentioned in |
277 | # hidden_fields(LIST) - return hidden <INPUT> tags for each field mentioned in |
| 278 | # LIST (or all fields if list is empty), taking data from the current request. |
278 | # LIST (or all fields if list is empty), taking data from the current request. |
| 279 | # |
279 | # |