Revision 2056
Added by sgarg over 20 years ago
src/perl/register-dataset.cgi | ||
---|---|---|
343 | 343 |
debug("Message is: $notunique"); |
344 | 344 |
push(@errorMessages, $notunique); |
345 | 345 |
} |
346 |
|
|
346 | 347 |
debug("Registry: B3"); |
347 | 348 |
} else { |
348 | 349 |
# document is being modified |
... | ... | |
681 | 682 |
$$templateVars{'status'} = 'failure'; |
682 | 683 |
$$templateVars{'errorMessages'} = \@errorMessages; |
683 | 684 |
$error = 1; |
685 |
} else { |
|
686 |
$$templateVars{'docid'} = $docid; |
|
687 |
$$templateVars{'cfg'} = $FORM::cfg; |
|
684 | 688 |
} |
685 | 689 |
|
686 | 690 |
#if (! $error) { |
... | ... | |
690 | 694 |
# Create our HTML response and send it back |
691 | 695 |
$$templateVars{'function'} = "submitted"; |
692 | 696 |
$$templateVars{'section'} = "Submission Status"; |
697 |
|
|
693 | 698 |
$template->process( $responseTemplate, $templateVars); |
694 | 699 |
|
695 | 700 |
exit(0); |
Also available in: Unified diff
Added extra parameters (cfg & docid) to be passed on to generic response screen.