--- loncom/publisher/lonrights.pm 2003/03/14 02:26:12 1.1 +++ loncom/publisher/lonrights.pm 2003/03/20 19:20:31 1.4 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Handler to show and edit custom distribution rights # -# $Id: lonrights.pm,v 1.1 2003/03/14 02:26:12 www Exp $ +# $Id: lonrights.pm,v 1.4 2003/03/20 19:20:31 www Exp $ # # Copyright Michigan State University Board of Trustees # @@ -34,6 +34,8 @@ use strict; use Apache::Constants qw(:common :http); use Apache::lonnet(); use Apache::loncommon(); +use HTML::LCParser; +use Apache::File; sub handler { @@ -41,10 +43,138 @@ sub handler { $r->content_type('text/html'); $r->send_http_header; - $r->print('LON-CAPA Custom Distribution Rights'); + $r->print( + 'LON-CAPA Custom Distribution Rights'); $r->print(&Apache::loncommon::bodytag('Custom Distribution Rights')); + my $uri=$r->uri; + my $fn=&Apache::lonnet::filelocation('',$uri); + my $contents=''; + my $constructmode=($uri=~/^\/\~/); + unless ($constructmode) { +# =========================================== This is not in construction space + $contents=&Apache::lonnet::getfile($fn); + if ($contents==-1) { $contents=''; } + } else { +# =============================================== This is in construction space + if (-e $fn) { + my $fh=Apache::File->new($fn); + $contents=join('',<$fh>); + $fh->close(); + } + $r->print('
'); + } + my $parser=HTML::LCParser->new(\$contents); + my $token; + my $rulecounter=0; + my $colzero=($constructmode?'Edit action':'Rule'); +# ---------------------------------------------------------- Start table output + $r->print(< + $colzeroEffectDomainCourse +SectionRole +ENDSTARTTABLE +# --------------------------------------------------------------------- Default +# Fast forward to first rule + $token=$parser->get_token; + while ($token->[1] ne 'accessrule') { $token=$parser->get_token; } +# print default + $r->print(' '); + if ($constructmode) { + $r->print(&Apache::loncommon::select_form + ($token->[2]->{'effect'},'effect_0', + ('allow' => 'allow', + 'deny' => 'deny'))); + } else { + $r->print($token->[2]->{'effect'}); + } + $r->print('Default'); + if (($token->[2]->{'realm'}) || ($token->[2]->{'role'})) { + $r->print(' - Error! No default set.'); + } + $r->print(''); +# Additional roles + while ($token=$parser->get_token) { + if (($token->[0] eq 'S') && ($token->[1] eq 'accessrule')) { + $rulecounter++; + $r->print(''); +# insert, delete, etc + $r->print($rulecounter.'. '); + if ($constructmode) { + $r->print(&Apache::loncommon::select_form( + '','action_'.$rulecounter, + ('' => '', + 'delete' => 'Delete this rule', + 'insertabove' => 'Insert rule above', + 'insertbelow' => 'Insert rule below', + 'moveup' => 'Move rule up', + 'movedown' => 'Move rule down'))); + } + $r->print(''); +# effect + if ($constructmode) { + $r->print(&Apache::loncommon::select_form + ($token->[2]->{'effect'}, + 'effect_'.$rulecounter, + ('allow' => 'allow', + 'deny' => 'deny'))); + } else { + $r->print($token->[2]->{'effect'}); + } + $r->print(''); +# ---- realm + my $realm=$token->[2]->{'realm'}; + $realm=~s/^\W//; + my ($rdom,$rcourse,$rsec)=split(/[\/\_]/,$realm); +# realm role + if ($constructmode) { + $r->print(&Apache::loncommon::select_dom_form($rdom, + 'domain_'.$rulecounter)); + } else { + $r->print($rdom); + } + $r->print(''); +# realm course + if ($constructmode) { + $r->print(''); + } else { + $r->print($rcourse); + } + + $r->print(''); +# realm section + if ($constructmode) { + $r->print(''); + } else { + $r->print($rsec); + } + + $r->print(''); +# role + if ($constructmode) { + my %hash=('' => ''); + foreach ('au','cc','in','ta','st') { + $hash{$_}=&Apache::lonnet::plaintext($_); + } + my $role=$token->[2]->{'role'}; + unless ($role) { $role=''; } + $r->print(&Apache::loncommon::select_form( + $role,'role_'.$rulecounter,%hash)); + } else { + $r->print(&Apache::lonnet::plaintext($token->[2]->{'role'})); + } +# close row + $r->print(''); + } + } + $r->print(''); +# ------------------------------------------------------------ End table output + if ($constructmode) { + $r->print(''); + } $r->print(''); return OK; }