Revision 7695
Added by ben leinfelder over 11 years ago
| register-dataset.cgi | ||
|---|---|---|
| 215 | 215 |
|
| 216 | 216 |
debug("Initialized -- stage set: $FORM::stage");
|
| 217 | 217 |
|
| 218 |
# handle pids, set the mapped docid in the FORM params |
|
| 219 |
# see: https://projects.ecoinformatics.org/ecoinfo/issues/5932 |
|
| 220 |
if ($FORM::pid !~ "" ) {
|
|
| 221 |
my $pid = $FORM::pid; |
|
| 222 |
my $metacat = Metacat->new($metacatUrl); |
|
| 223 |
my $docid = $metacat->getDocid($pid); |
|
| 224 |
$FORM::docid = $docid; |
|
| 225 |
} |
|
| 226 |
|
|
| 218 | 227 |
# Process the form based on stage parameter. |
| 219 | 228 |
if ( $FORM::stage =~ "loginform" ) {
|
| 220 | 229 |
print "Content-type: text/html\n\n"; |
Also available in: Unified diff
Allow use of PID instead of docid in the Perl registry. At least for reading/editing and deleting existing content. Does not create content using a pid. https://projects.ecoinformatics.org/ecoinfo/issues/5932