Revision 2869
Added by sgarg about 19 years ago
| src/perl/register-dataset.cgi | ||
|---|---|---|
| 2714 | 2714 |
|
| 2715 | 2715 |
$$templateVars{'reviewdocid'} = getReviewHistoryHTML($session->param("username"), $session->param("password"));
|
| 2716 | 2716 |
$$templateVars{'docid'} = $FORM::docid;
|
| 2717 |
debug("yooooooooooooo ".$$templateVars{'docid'});
|
|
| 2718 |
debug("yooooooooooooo ".$$templateVars{'reviewdocid'});
|
|
| 2719 | 2717 |
if ( $moderator eq 'true') {
|
| 2720 | 2718 |
$$templateVars{'isModerator'} = "true";
|
| 2721 | 2719 |
} |
| ... | ... | |
| 3248 | 3246 |
if ($response != '1') {
|
| 3249 | 3247 |
return " Unable to set access for the review document in Metacat for the docid:".$docid; |
| 3250 | 3248 |
} |
| 3249 |
foreach(split(":",$moderators)){
|
|
| 3250 |
$response = $metacat->setaccess($reviewDocumentId, $_, "all", "allow", "denyFirst"); |
|
| 3251 |
if ($response != '1') {
|
|
| 3252 |
return " Unable to set access for the review document in Metacat for the docid:".$docid; |
|
| 3253 |
} |
|
| 3254 |
} |
|
| 3251 | 3255 |
} |
| 3252 | 3256 |
} |
| 3253 | 3257 |
} else {
|
| ... | ... | |
| 3275 | 3279 |
if ($response != '1') {
|
| 3276 | 3280 |
return " Unable to set access for the review document in Metacat for the docid:".$docid; |
| 3277 | 3281 |
} |
| 3282 |
foreach(split(":",$moderators)){
|
|
| 3283 |
$response = $metacat->setaccess($id, $_, "all", "allow", "denyFirst"); |
|
| 3284 |
if ($response != '1') {
|
|
| 3285 |
return " Unable to set access for the review document in Metacat for the docid:".$docid; |
|
| 3286 |
} |
|
| 3287 |
} |
|
| 3278 | 3288 |
} |
| 3279 | 3289 |
} |
| 3280 | 3290 |
} |
Also available in: Unified diff
added code to give access to moderator group on the review document