Revision 7700
Added by ben leinfelder over 11 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 217 | 217 |
|
| 218 | 218 |
# handle pids, set the mapped docid in the FORM params |
| 219 | 219 |
# see: https://projects.ecoinformatics.org/ecoinfo/issues/5932 |
| 220 |
if ($FORM::pid !~ "" ) {
|
|
| 220 |
debug("PID: $FORM::pid");
|
|
| 221 |
if ($FORM::pid ne "" ) {
|
|
| 221 | 222 |
my $pid = $FORM::pid; |
| 222 | 223 |
my $metacat = Metacat->new($metacatUrl); |
| 223 | 224 |
my $docid = $metacat->getDocid($pid); |
Also available in: Unified diff
use correct test for PID param.