/[Frey]/trunk/lib/Frey/ClassBrowser.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/ClassBrowser.pm

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

revision 529 by dpavlin, Mon Nov 24 21:35:34 2008 UTC revision 530 by dpavlin, Wed Nov 26 04:27:00 2008 UTC
# Line 22  sub as_markup { Line 22  sub as_markup {
22          my $usage = $self->session_dump( $self->usage );          my $usage = $self->session_dump( $self->usage );
23          #warn "# usage ",dump( $usage );          #warn "# usage ",dump( $usage );
24          foreach my $class ( $self->classes ) {          foreach my $class ( $self->classes ) {
25                    my $icon_path;
26                    eval { $icon_path = $self->icon_path( $class ); };
27                  my $html                  my $html
28                          = qq|<tr><td><a target="introspect" href="/$class" title="|                          = qq|<tr><td>|
29                            . ( $icon_path ? qq|<img src="/$icon_path" alt="$class">| : '?' )
30                            . qq|</td><td><a target="introspect" href="/$class" title="|
31                          . $self->class_path( $class )                          . $self->class_path( $class )
32                          . qq|">$class</a></td><td>|                          . qq|">$class</a></td><td>|
33                          ;                          ;
Legend:
Removed from v.529  
changed lines
  Added in v.530
  ViewVC Help
Powered by ViewVC 1.1.26