version 1.114, 2003/09/09 18:46:28
|
version 1.115, 2003/09/10 15:06:34
|
Line 2543 sub csv_samples_select_table {
|
Line 2543 sub csv_samples_select_table {
|
|
|
=pod |
=pod |
|
|
|
=item clean_excel_name($name) |
|
|
|
Returns a replacement for $name which does not contain any illegal characters. |
|
|
|
=cut |
|
|
|
sub clean_excel_name { |
|
my ($name) = @_; |
|
$name =~ s/[:\*\?\/\\]//g; |
|
if (length($name) > 31) { |
|
$name = substr($name,0,31); |
|
} |
|
return $name; |
|
} |
|
|
|
=pod |
|
|
=item * check_if_partid_hidden($id,$symb,$udom,$uname) |
=item * check_if_partid_hidden($id,$symb,$udom,$uname) |
|
|
Returns either 1 or undef |
Returns either 1 or undef |