Parent Directory | Revision Log | Patch
revision 780 by dpavlin, Tue Dec 9 20:31:26 2008 UTC | revision 781 by dpavlin, Tue Dec 9 20:31:42 2008 UTC | |
---|---|---|
# | Line 679 sub checkbox { | Line 679 sub checkbox { |
679 | qq|<input name="$name" value="$value" type="checkbox"$checked>|; | qq|<input name="$name" value="$value" type="checkbox"$checked>|; |
680 | } | } |
681 | ||
682 | =head2 strip | |
683 | ||
684 | Strip whitespace around content | |
685 | ||
686 | my $stripped = strip(' no more whitespace around this '); | |
687 | ||
688 | =cut | |
689 | ||
690 | sub strip { | |
691 | my $t = shift; | |
692 | $t =~ s{^\s+}{}gs; | |
693 | $t =~ s{>\s+<}{><}gs; | |
694 | $t =~ s{\s+$}{}gs; | |
695 | return $t; | |
696 | } | |
697 | ||
698 | 1; | 1; |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |