/[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 152 by dpavlin, Thu Jul 30 23:57:19 2009 UTC revision 153 by dpavlin, Wed Aug 5 23:22:17 2009 UTC
# Line 27  sub tt { Line 27  sub tt {
27          qq|<tt>| . join(' ', @_) . qq|</tt>|;          qq|<tt>| . join(' ', @_) . qq|</tt>|;
28  }  }
29    
30    sub select {
31            my $name = shift;
32            my $checked_option = shift;
33            return join("\n"        
34                    , qq|<select type=select name=$name>|
35                    , join("\n", map { my $checked = $_ eq $checked_option ? 'checked' : ''; qq|<option name=$_ $checked>$_</option>| } @_ )
36                    , qq|</select>|
37                    , qq|</form>|
38            );
39    }
40    
41  warn "loaded";  warn "loaded";
42    
43  1;  1;

Legend:
Removed from v.152  
changed lines
  Added in v.153

  ViewVC Help
Powered by ViewVC 1.1.26