Revision 9826
Added by Chris Jones over 8 years ago
src/perl/register-dataset.cgi | ||
---|---|---|
4941 | 4941 |
$$templateVars{'identifierCount'} = $identifierCount - 1; |
4942 | 4942 |
|
4943 | 4943 |
$$templateVars{'title'} = normalizeCD($FORM::title); |
4944 |
$$templateVars{'origNamefirst0'} = normalizeCD($FORM::origNamefirst0); |
|
4945 |
$$templateVars{'origNamelast0'} = normalizeCD($FORM::origNamelast0); |
|
4946 |
$$templateVars{'origNameOrg'} = normalizeCD($FORM::origNameOrg); |
|
4947 |
$$templateVars{'origDelivery'} = normalizeCD($FORM::origDelivery); |
|
4948 |
$$templateVars{'origCity'} = normalizeCD($FORM::origCity); |
|
4949 | 4944 |
|
4950 |
if ( $FORM::origState =~ /select state/i ) { |
|
4951 |
$$templateVars{'origState'} = ""; |
|
4952 |
} |
|
4953 |
else { |
|
4954 |
$$templateVars{'origState'} = $FORM::origState; |
|
4955 |
} |
|
4956 |
$$templateVars{'origStateOther'} = normalizeCD($FORM::origStateOther); |
|
4957 |
$$templateVars{'origZIP'} = normalizeCD($FORM::origZIP); |
|
4958 |
$$templateVars{'origCountry'} = normalizeCD($FORM::origCountry); |
|
4959 |
$$templateVars{'origPhone'} = normalizeCD($FORM::origPhone); |
|
4960 |
$$templateVars{'origFAX'} = normalizeCD($FORM::origFAX); |
|
4961 |
$$templateVars{'origEmail'} = normalizeCD($FORM::origEmail); |
|
4962 |
$$templateVars{'useOrigAddress'} = normalizeCD($FORM::useOrigAddress); |
|
4963 |
if ( $FORM::useOrigAddress eq "on" ) { |
|
4964 |
$$templateVars{'origNamefirstContact'} = |
|
4965 |
normalizeCD($FORM::origNamefirst0); |
|
4966 |
$$templateVars{'origNamelastContact'} = |
|
4967 |
normalizeCD($FORM::origNamelast0); |
|
4968 |
$$templateVars{'origNameOrgContact'} = normalizeCD($FORM::origNameOrg); |
|
4969 |
$$templateVars{'origDeliveryContact'} = |
|
4970 |
normalizeCD($FORM::origDelivery); |
|
4971 |
$$templateVars{'origCityContact'} = normalizeCD($FORM::origCity); |
|
4972 |
if ( $FORM::origState =~ /select state/i ) { |
|
4973 |
$$templateVars{'origStateContact'} = ""; |
|
4974 |
} |
|
4975 |
} |
|
4976 |
$$templateVars{'identifierCount'} = $identifierCount - 1; |
|
4977 |
|
|
4978 |
$$templateVars{'title'} = normalizeCD($FORM::title); |
|
4979 |
|
|
4980 | 4945 |
# Handle multiple parties |
4981 | 4946 |
my $partyIds = \@FORM::partyId; |
4982 | 4947 |
my $partyFirstNames = \@FORM::partyFirstName; |
Also available in: Unified diff
Remove template variable assignments that weren't removed in the merge from the 2.6.0 branch to 2.7.0.