/[Frey]/branches/zimbardo/lib/Frey/Web.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 /branches/zimbardo/lib/Frey/Web.pm

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

revision 816 by dpavlin, Thu Dec 11 21:36:04 2008 UTC revision 819 by dpavlin, Fri Dec 12 18:01:02 2008 UTC
# Line 478  sub icon_path { Line 478  sub icon_path {
478          }          }
479    
480          my $path = icon_exists( $class );          my $path = icon_exists( $class );
481            if ( ! $path ) {
482          while ( $class =~ s{::[^:]+$}{} && ! $path ) {                  my $super_class = $class;
483                  $path = icon_exists( $class ) unless $class eq 'Frey'; # don't default on Frey icon                  while ( $super_class =~ s{::[^:]+$}{} && ! $path ) {
484                            $path = icon_exists( $super_class ) unless $super_class eq 'Frey'; # don't default on Frey icon
485                    }
486          }          }
487    
488          if ( -e $path ) {          if ( ! $path ) {
489                  warn "# $class from $self icon_path $path" if $self->debug;                  $self->TODO( "add icon for $class" . ( $variant ? " variant $variant" : '' ) );
                 return $path;  
         } else {  
                 $self->TODO( "add $path icon for $class $variant" );  
490                  return undef;                  return undef;
491          }          }
492    
493            warn "# $class from $self icon_path $path" if $self->debug;
494            return $path;
495  }  }
496    
497  sub add_icon {  sub add_icon {
Legend:
Removed from v.816  
changed lines
  Added in v.819
  ViewVC Help
Powered by ViewVC 1.1.26