/[pxelator]/lib/PXElator/html.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 /lib/PXElator/html.pm

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

revision 307 by dpavlin, Thu Aug 27 14:31:49 2009 UTC revision 315 by dpavlin, Thu Aug 27 19:58:18 2009 UTC
# Line 45  sub tt { Line 45  sub tt {
45  sub select {  sub select {
46          my $name = shift;          my $name = shift;
47          my $selected_option = shift;          my $selected_option = shift;
48            unshift @_, '' unless $selected_option;
49          return join("\n"                  return join("\n"        
50                  , qq|<select type=select name=$name>|                  , qq|<select type=select name=$name>|
51                  , join("\n", map { my $selected = $_ eq $selected_option ? 'selected' : ''; qq|<option name=$_ $selected>$_</option>| } @_ )                  , join("\n", map { my $selected = $_ eq $selected_option ? 'selected' : ''; qq|<option name=$_ $selected>$_</option>| } @_ )

Legend:
Removed from v.307  
changed lines
  Added in v.315

  ViewVC Help
Powered by ViewVC 1.1.26