| … | |
… | |
| 246 | my $auth = $self->url_authen_args; |
246 | my $auth = $self->url_authen_args; |
| 247 | my @result; |
247 | my @result; |
| 248 | while (@links) { |
248 | while (@links) { |
| 249 | my $name = shift @links; |
249 | my $name = shift @links; |
| 250 | my $url = shift @links; |
250 | my $url = shift @links; |
|
|
251 | my $img = shift @links; |
|
|
252 | my $html = ($img && $args{style} eq "images") ? CGI::img({src=>($args{imageprefix}.$img.$args{imagesuffix}), border=>""}): $name; |
|
|
253 | unless($img && !$url) { |
| 251 | push @result, $url |
254 | push @result, $url |
| 252 | ? CGI::a({-href=>"$url?$auth$tail"}, $name) |
255 | ? CGI::a({-href=>"$url?$auth$tail"}, $html) |
| 253 | : $name; |
256 | : $html; |
|
|
257 | } |
| 254 | } |
258 | } |
| 255 | return join($args{separator}, @result), "\n"; |
259 | return join($args{separator}, @result), "\n"; |
| 256 | } |
260 | } |
| 257 | |
261 | |
| 258 | # hidden_fields(LIST) - return hidden <INPUT> tags for each field mentioned in |
262 | # hidden_fields(LIST) - return hidden <INPUT> tags for each field mentioned in |
Parent Directory
| 
Revision Log
| 
Patch