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

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

revision 737 by dpavlin, Wed Dec 3 21:12:43 2008 UTC revision 738 by dpavlin, Sat Dec 6 15:29:10 2008 UTC
# Line 446  sub DEMOLISH { Line 446  sub DEMOLISH {
446  sub icon_path {  sub icon_path {
447          my ($self,$class,$variant) = @_;          my ($self,$class,$variant) = @_;
448          my $icon = $class;          my $icon = $class;
449            $icon ||= $self->title;
450          $icon =~ s{::}{/}g;          $icon =~ s{::}{/}g;
451          $icon .= "/$variant" if $variant;          $icon .= "/$variant" if $variant;
452          my $path = 'static/icons/' . $icon . '.png';          my $path = 'static/icons/' . $icon . '.png';
# Line 648  sub backtrace { Line 649  sub backtrace {
649          return @backtrace;          return @backtrace;
650  }  }
651    
652    =head2 checkbox
653    
654    Generate checkbox html markup from some attribute
655    
656      my $html = $self->checkbox('attribute_name', $value);
657    
658    =cut
659    
660    sub checkbox {
661            my ($self,$name,$value) = @_;
662            my $checked = '';
663            my $all_checkboxes = eval { $self->$name };
664            warn "ERROR tried to get checkbox value for '$name' which is unknown: $@" if $@;
665            $all_checkboxes = [ $all_checkboxes ] unless ref($all_checkboxes) eq 'ARRAY'; # sigh, too chatty
666            $checked = ' checked' if grep { defined $_ && $_ eq $value } @$all_checkboxes;
667            warn "# checkbox $name $value $checked\t", $self->dump( $self->$name );
668            qq|<input name="$name" value="$value" type="checkbox"$checked>|;
669    }
670    
671  1;  1;
Legend:
Removed from v.737  
changed lines
  Added in v.738
  ViewVC Help
Powered by ViewVC 1.1.26