code/SystemTag/either.coretag

   1 # Copyright 2002-2007 Interchange Development Group and others
   2 #
   3 # This program is free software; you can redistribute it and/or modify
   4 # it under the terms of the GNU General Public License as published by
   5 # the Free Software Foundation; either version 2 of the License, or
   6 # (at your option) any later version.  See the LICENSE file for details.
   7 #
   8 # $Id: either.coretag,v 1.6 2007-03-30 23:40:49 pajamian Exp $
   9
  10 UserTag either              hasEndTag
  11 UserTag either              PosNumber    0
  12 UserTag either              NoReparse    1
  13 UserTag either              Version      $Revision: 1.6 $
  14 UserTag either              Routine      <<EOR
  15 sub {
  16         my @ary = split /\[or\]/, shift;
  17         my $result;
  18
  19         foreach (@ary) {
  20                 $result = interpolate_html($_);
  21                 $result =~ s/^\s+//;
  22                 $result =~ s/\s+$//;
  23                 return $result if $result;
  24         }
  25         return $result;
  26 }
  27 EOR