--- loncom/publisher/lonrights.pm 2003/03/20 21:47:57 1.6
+++ loncom/publisher/lonrights.pm 2003/03/21 14:13:30 1.7
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Handler to show and edit custom distribution rights
#
-# $Id: lonrights.pm,v 1.6 2003/03/20 21:47:57 www Exp $
+# $Id: lonrights.pm,v 1.7 2003/03/21 14:13:30 www Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -172,11 +172,11 @@ ENDSTARTTABLE
$token=$parser->get_token;
while ($token->[1] ne 'accessrule') { $token=$parser->get_token; }
# print default
- $r->print('
');
+ $r->print(' |
');
if ($constructmode) {
$r->print(&Apache::loncommon::select_form('','action_0',
- ('' => '',
- 'insertbelow' => 'Insert rule below')));
+ ('' => '',
+ 'insertbelow' => 'Insert rule below ')));
} else {
$r->print(' ');
@@ -199,7 +199,7 @@ ENDSTARTTABLE
while ($token=$parser->get_token) {
if (($token->[0] eq 'S') && ($token->[1] eq 'accessrule')) {
$rulecounter++;
- $r->print(' |
');
+ $r->print(' |
');
# insert, delete, etc
$r->print($rulecounter.'. ');
if ($constructmode) {
@@ -208,7 +208,7 @@ ENDSTARTTABLE
('' => '',
'delete' => 'Delete this rule',
'insertabove' => 'Insert rule above',
- 'insertbelow' => 'Insert rule below',
+ 'insertbelow' => 'Insert rule below ',
'moveup' => 'Move rule up',
'movedown' => 'Move rule down')));
}
@@ -228,8 +228,9 @@ ENDSTARTTABLE
my $realm=$token->[2]->{'realm'};
$realm=~s/^\W//;
my ($rdom,$rcourse,$rsec)=split(/[\/\_]/,$realm);
-# realm role
+# realm domain
if ($constructmode) {
+ unless ($rdom) { $rdom=$ENV{'user.domain'}; }
$r->print(&Apache::loncommon::select_dom_form($rdom,
'domain_'.$rulecounter));
} else {
|