--- 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 {