diff options
| author | ivan <ivan> | 2000-12-21 05:22:30 +0000 |
|---|---|---|
| committer | ivan <ivan> | 2000-12-21 05:22:30 +0000 |
| commit | c661868d1119af8a911c47982b52a2c89776c752 (patch) | |
| tree | 3a47b65e10dc76931f2a7e4c049d6538916b242e /htdocs/edit | |
| parent | f0889ba0b821592e9affd0d407d1a01946b48561 (diff) | |
perldoc -f split
Diffstat (limited to 'htdocs/edit')
| -rwxr-xr-x | htdocs/edit/process/cust_main_county-expand.cgi | 9 |
1 files changed, 6 insertions, 3 deletions
diff --git a/htdocs/edit/process/cust_main_county-expand.cgi b/htdocs/edit/process/cust_main_county-expand.cgi index 7e618c7b8..a174a0a8e 100755 --- a/htdocs/edit/process/cust_main_county-expand.cgi +++ b/htdocs/edit/process/cust_main_county-expand.cgi @@ -1,6 +1,6 @@ #!/usr/bin/perl -Tw # -# $Id: cust_main_county-expand.cgi,v 1.6 1999-01-25 12:19:07 ivan Exp $ +# $Id: cust_main_county-expand.cgi,v 1.7 2000-12-21 05:22:30 ivan Exp $ # # ivan@sisd.com 97-dec-16 # @@ -15,7 +15,10 @@ # ivan@sisd.com 98-sep-2 # # $Log: cust_main_county-expand.cgi,v $ -# Revision 1.6 1999-01-25 12:19:07 ivan +# Revision 1.7 2000-12-21 05:22:30 ivan +# perldoc -f split +# +# Revision 1.6 1999/01/25 12:19:07 ivan # yet more mod_perl stuff # # Revision 1.5 1999/01/19 05:13:51 ivan @@ -53,7 +56,7 @@ $cust_main_county = qsearchs('cust_main_county',{'taxnum'=>$taxnum}) if ( $cgi->param('delim') eq 'n' ) { @expansion=split(/\n/,$cgi->param('expansion')); } elsif ( $cgi->param('delim') eq 's' ) { - @expansion=split(/\s+/,$cgi->param('expansion')); + @expansion=split(' ',$cgi->param('expansion')); } else { die "Illegal delim!"; } |