Revision 9598
Added by Chris Jones over 8 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 3043 | 3043 |
#print $tempNode->nodeName().":".$tempNode->textContent(); |
| 3044 | 3044 |
#print "\n"; |
| 3045 | 3045 |
if ( $$templateVars{'useConstraints'} eq "" ) {
|
| 3046 |
$$templateVars{'useConstraints'} =
|
|
| 3047 |
$tempNode->textContent(); |
|
| 3046 |
if ($tempNode->textContent() =~ 'Creative Commons Universal 1.0 Public Domain Dedication') {
|
|
| 3047 |
$$templateVars{'useConstraints'} = "Public Domain (CC-0)";
|
|
| 3048 |
|
|
| 3049 |
} elsif ($tempNode->textContent() =~ 'Creative Commons Attribution 4.0 International License') {
|
|
| 3050 |
$$templateVars{'useConstraints'} = "Attribution (CC-BY)";
|
|
| 3051 |
|
|
| 3052 |
} else {
|
|
| 3053 |
$$templateVars{'useConstraints'} = $tempNode->textContent();
|
|
| 3054 |
} |
|
| 3048 | 3055 |
} |
| 3049 | 3056 |
else {
|
| 3050 | 3057 |
$$templateVars{'useConstraintsOther'} =
|
Also available in: Unified diff
Merge registry changes into the trunk.