User Group Hierarchy Setup

+ +

+ +HEADER + +#------------------------------------------------------------------------------- +# Logic part +#------------------------------------------------------------------------------- + +if (my $action = $cgi->param('action')) { + if ( $action eq 'child' ) { + my $id = $cgi->param('id'); + if ($id) { + my $node = permission::grp_tree->retrieve($id); + #----------------------------------------------------------------------- + # child form + #----------------------------------------------------------------------- + + print "

Edit ".$node->name."

"; + print "

". + "\n"; + + print Tr( + th($org_cols{id}), + td( $node->id() ), + ); + print Tr( + th($org_cols{name}), + td("name() ."\">"), + ); + print Tr( + th($org_cols{depth}), + td(""), + ); + print Tr( + th($org_cols{parent}), + td(""), + ); + + print Tr( "" ); + + print "

"; + + + print "

New Child

"; + + print "

"; + } + } +} + +print "

+ + + + + +

Permission List Setup

+ +HEADER + +#------------------------------------------------------------------------------- +# setup part +#------------------------------------------------------------------------------- + +my %profile_cols = ( qw/id SysID code Name/ ); + +my @col_display_order = ( qw/id cod3/ ); + +#------------------------------------------------------------------------------- +# Logic part +#------------------------------------------------------------------------------- + +if (my $action = $cgi->param('action')) { + if ( $action eq 'Remove Selected' ) { + for my $id ( ($cgi->param('id')) ) { + permission::perm_list->retrieve($id)->delete; + } + } elsif ( $action eq 'Update Selected' ) { + for my $id ( ($cgi->param('id')) ) { + my $u = permission::perm_list->retrieve($id); + $u->code( $cgi->param("code_$id") ); + $u->update; + } + } elsif ( $action eq 'Add New' ) { + permission::perm_list->create( { code => $cgi->param("code") } ); + } +} + + +#------------------------------------------------------------------------------- +# Form part +#------------------------------------------------------------------------------- +{ + #----------------------------------------------------------------------- + # User form + #----------------------------------------------------------------------- + print "

". + "\n"; + + for my $col ( @col_display_order ) { + print th($profile_cols{$col}); + } + + print ''; + + for my $row ( sort { $a->code cmp $b->code } (permission::perm_list->retrieve_all) ) { + print Tr( + td( $row->id() ), + td(""), + td(""), + ); + } + + print "", + td(), + td(""), + td(), + ""; + print "

Action

"; + print " | "; + print " | "; + print "

"; +} + +print ""; + + diff --git a/Open-ILS/src/cgi-bin/usr_group-setup.cgi b/Open-ILS/src/cgi-bin/usr_group-setup.cgi index ce086089c8..b4ea2100bd 100755 --- a/Open-ILS/src/cgi-bin/usr_group-setup.cgi +++ b/Open-ILS/src/cgi-bin/usr_group-setup.cgi @@ -25,14 +25,32 @@ my @col_display_order = ( qw/id name parent/ ); if (my $action = $cgi->param('action')) { if ( $action eq 'Update' ) { for my $id ( ($cgi->param('id')) ) { - my $u = permission::group_tree->retrieve($id); + my $u = permission::grp_tree->retrieve($id); for my $col ( keys %org_cols ) { $u->$col( $cgi->param($col."_$id") ); } $u->update; } + } elsif ( $action eq 'Set Permissions' ) { + my $grp = permission::grp_tree->retrieve($cgi->param('perms')); + my @ids = $cgi->param('permission'); + for my $perm ( permission::perm_list->retrieve_all ) { + if (my $id = $cgi->param('permission_'.$perm->id) ) { + my $p = permission::grp_perm_map->search({perm=>$id,grp=>$grp->id})->next; + my $d = $cgi->param("depth_$id"); + if (!$p) { + $p = permission::grp_perm_map->create({perm=>$id,grp=>$grp->id,depth=>$d}); + } else { + $p->depth( $d ); + } + $p->update; + } else { + permission::grp_perm_map->search({perm=>$perm->id,grp=>$grp->id})->delete_all; + } + } + $cgi->param('action'=>'child'); } elsif ( $action eq 'Add New' ) { - permission::group_tree->create( { map { defined($cgi->param($_)) ? ($_ => $cgi->param($_)) : () } keys %org_cols } ); + permission::grp_tree->create( { map { defined($cgi->param($_)) ? ($_ => $cgi->param($_)) : () } keys %org_cols } ); } } @@ -84,7 +102,7 @@ HEADER my $uri = $cgi->url(-relative=>1); my $top; -for my $grp ( permission::group_tree->search( {parent=>undef} ) ) { +for my $grp ( permission::grp_tree->search( {parent=>undef} ) ) { my $name = $grp->name; $name =~ s/'/\\'/og; print <<" HEADER"; @@ -101,15 +119,17 @@ for my $grp ( permission::group_tree->search( {parent=>undef} ) ) { last; } -for my $grp ( permission::group_tree->search_like( {parent_ou => '%'}, {order_by => 'id'} ) ) { +for my $grp ( permission::grp_tree->search_like( {parent => '%'}, {order_by => 'id'} ) ) { my $name = $grp->name; $name =~ s/'/\\'/og; - my $parent = $grp->parent_ou; + my $parent = $grp->parent; print <<" JS" var node_$grp = new WebFXTreeItem('$name','$uri?action=child&id=$grp'); JS -}for my $grp ( sort {$a->name cmp $b->name} permission::group_tree->retrieve_all ) { - my $parent = $grp->parent_ou; +} + +for my $grp ( sort {$a->name cmp $b->name} permission::grp_tree->retrieve_all ) { + my $parent = $grp->parent; next unless $parent; print <<" JS" node_$parent.add(node_$grp); @@ -120,7 +140,7 @@ print < -

HEADER @@ -132,12 +152,12 @@ if (my $action = $cgi->param('action')) { if ( $action eq 'child' ) { my $id = $cgi->param('id'); if ($id) { - my $node = permission::group_tree->retrieve($id); + my $node = permission::grp_tree->retrieve($id); #----------------------------------------------------------------------- # child form #----------------------------------------------------------------------- - print "

Edit ".$node->name."

"; + print "

Edit Group '".$node->name."'

"; print "

". "\n"; @@ -150,27 +170,14 @@ if (my $action = $cgi->param('action')) { td("name() ."\">"), ); print Tr( - th($org_cols{depth}), - td(""), - ); - print Tr( th($org_cols{parent}), - td("".do{ my $out = ''; - for my $org ( sort {$a->id <=> $b->id} permission::group_tree->retrieve_all) { + for my $org ( sort {$a->id <=> $b->id} permission::grp_tree->retrieve_all) { $out .= "' + }}.'>'.$org->name.'' } $out; }.""), @@ -181,6 +188,63 @@ if (my $action = $cgi->param('action')) { print "

"; + print "

Group Permissions

"; + + print "

". + "\n". + ""; + + for my $perm ( permission::perm_list->retrieve_all ) { + my $grp = $node; + my $out = 'parent)); + $stuff; + }.">".$outype->name.""; + } + $out .= ""; + $grp = $node; + print Tr( "" + + ); + } + + print Tr( "" ); + print "

Permission	Select	At Depth
".$perm->code."	". + "search( + { grp => $grp->id, + perm => $perm->id } + )->next; + $stuff = "checked " if ($setting); + $stuff .= "disabled " if($setting && $setting->grp != $node->id); + } + } while (!$stuff && $grp && ($grp = $grp->parent)); + $stuff; + }. + ">	$out	", + "

"; + + + print "

New Child

"; print "

"; + } } }