Revision 1936
Added by Matt Jones almost 21 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 281 | 281 |
if (! $response) {
|
| 282 | 282 |
#print $metacat->getMessage(); |
| 283 | 283 |
#die "failed during login\n"; |
| 284 |
#print STDERR "Login response is: $metacat->getMessage()\n"; |
|
| 284 | 285 |
push(@errorMessages, $metacat->getMessage()); |
| 285 | 286 |
push(@errorMessages, "Failed during login.\n"); |
| 286 | 287 |
} |
| ... | ... | |
| 339 | 340 |
$error = 1; |
| 340 | 341 |
} |
| 341 | 342 |
|
| 342 |
if (! $error) {
|
|
| 343 |
sendNotification($docid, $mailhost, $sender, $recipient);
|
|
| 344 |
}
|
|
| 343 |
#if (! $error) {
|
|
| 344 |
#sendNotification($docid, $mailhost, $sender, $recipient);
|
|
| 345 |
#}
|
|
| 345 | 346 |
|
| 346 | 347 |
# Create our HTML response and send it back |
| 347 | 348 |
$$templateVars{'function'} = "modified";
|
| ... | ... | |
| 359 | 360 |
$error = 1; |
| 360 | 361 |
} |
| 361 | 362 |
|
| 362 |
if (! $error) {
|
|
| 363 |
sendNotification($docid, $mailhost, $sender, $recipient);
|
|
| 364 |
} |
|
| 363 |
#if (! $error) {
|
|
| 364 |
#sendNotification($docid, $mailhost, $sender, $recipient);
|
|
| 365 |
#}
|
|
| 365 | 366 |
|
| 366 | 367 |
# Create our HTML response and send it back |
| 367 | 368 |
$$templateVars{'function'} = "submitted";
|
Also available in: Unified diff
Remove email notification from registry script.