/[Frey]/trunk/lib/Frey/Web/Links.pm
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/lib/Frey/Web/Links.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 206 by dpavlin, Sun Jul 13 16:17:34 2008 UTC revision 207 by dpavlin, Fri Oct 31 15:33:15 2008 UTC
# Line 37  has 'delimiter' => ( Line 37  has 'delimiter' => (
37          default => ' ',          default => ' ',
38  );  );
39    
40    has 'empty' => (
41            is => 'rw',
42            isa => 'Str',
43            default => '[empty]',
44    );
45    
46  sub links {  sub links {
47          my $self = shift;          my $self = shift;
48          my @out =          my @out =
49                  map {                  map {
50                          if ( $self->current eq $_ ) {                          if ( $_ eq '' ) {
51                                    $self->empty
52                            } elsif ( $self->current eq $_ ) {
53                                  '<' . $self->current_tag . '>' . $_ . '</' . $self->current_tag . '>'                                  '<' . $self->current_tag . '>' . $_ . '</' . $self->current_tag . '>'
54                          } else {                          } else {
55                                  qq|<a href="?| . $self->name . qq|=$_">$_</a>|                                  qq|<a href="?| . $self->name . qq|=$_">$_</a>|
Legend:
Removed from v.206  
changed lines
  Added in v.207
  ViewVC Help
Powered by ViewVC 1.1.26