Lines Matching refs:_
125 my ($FORM) = @_;
181 $value .= $_;
183 $lastline = $_;
252 my($DATA,$FileName,$ContentType) = @_;
258 $_ = $ContentType;
260 !$_
403 $_ = substr($$DATA, $HeaderPoint + 8, 8);
432 $_ = substr($$DATA,$HeaderPoint + 8, 8);
459 next unless ($_);
461 $Ext = $UPLOAD_CONTENT_TYPE_LIST{$_};
464 grep {$_ eq $Ext;} (
552 my($Ext) = @_;
555 next unless ($_);
556 if($_ && $Ext =~ /^$_$/) {
557 $ContentName = $UPLOAD_EXT_LIST{$_};
577 my($value,$Trans) = @_;
620 local($error_message) = $_[0];
621 local($error_message2) = $_[1];