Project

General

Profile

« Previous | Next » 

Revision 2784

Added by sgarg almost 19 years ago

Some small bug fixes...

View differences:

src/perl/register-dataset.cgi
88 88
$config->define("contactEmailAddressRequired", { DEFAULT => 'false'} );
89 89
$config->define("publicReadable", { DEFAULT => 'true'} );
90 90
$config->define("moderators", { DEFAULT => ''} );
91
$config->define("moderatorPermission", { DEFAULT => ''} );
92 91
$config->define("mailhost");
93 92
$config->define("sender");
94 93
$config->define("recipient");
......
153 152
my $contactEmailAddressRequired = $config->contactEmailAddressRequired();
154 153
my $publicReadable = $config->publicReadable();
155 154
my $moderators = $config->moderators();
156
my $moderatorPermission = $config->moderatorPermission();
157 155
my $mailhost = $config->mailhost();
158 156
my $sender = $config->sender();
159 157
my $recipient = $config->recipient();
......
1476 1474
    	foreach(split(":",$moderators)){
1477 1475
    	    $doc .= "<allow>\n";
1478 1476
    	    $doc .= "<principal>".$_."</principal>\n";
1479
    	    $doc .= "<permission>".$moderatorPermission."</permission>\n";
1477
    	    $doc .= "<permission>all</permission>\n";
1480 1478
    	    $doc .= "</allow>\n";
1481 1479
        }
1482 1480
	
......
2573 2571
    foreach(split(":",$moderators)){
2574 2572
   	$accessblock .= "<allow>\n";
2575 2573
   	$accessblock .= "<principal>".$_."</principal>\n";
2576
   	$accessblock .= "<permission>".$moderatorPermission."</permission>\n";
2574
   	$accessblock .= "<permission>all</permission>\n";
2577 2575
   	$accessblock .= "</allow>\n";
2578 2576
    }
2579 2577
	
......
2619 2617
	# get the contact email address from the 
2620 2618
    my $parser = XML::LibXML->new();
2621 2619
   	my $xmldoc = $parser->parse_string($emldoc);
2620
	my $title = '';
2621
    my $contactEmailAddress = '';
2622
	my $contactName = '';
2622 2623

  
2623
   	if ($xmldoc eq "" || $doc=~ /<error/) {
2624
   	if ($xmldoc eq "" || $xmldoc=~ /<error/) {
2624 2625
		# not able to parse
2625 2626
       	push(@errorMessages, "Error in reading the docid:".$docid."\n");
2626 2627
	} else {
......
2769 2770

  
2770 2771
		}
2771 2772

  
2772
	    #$response = $metacat->delete($docid);
2773
	    $response = $metacat->delete($docid);
2773 2774
	   	if (!$response) {
2774 2775
	       	debug("Error while deleting document in handleModDecline.");
2775 2776
	    	push(@errorMessages, $metacat->getMessage());

Also available in: Unified diff