From: miker Date: Tue, 21 Jun 2005 16:36:06 +0000 (+0000) Subject: duplicate script X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=1688885c16b7a45ef675657c6b0f300682db320e;p=Evergreen.git duplicate script git-svn-id: svn://svn.open-ils.org/ILS/trunk@895 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- diff --git a/Open-ILS/src/cgi-bin/grp_permission-setup.cgi b/Open-ILS/src/cgi-bin/grp_permission-setup.cgi deleted file mode 100755 index 202f905b89..0000000000 --- a/Open-ILS/src/cgi-bin/grp_permission-setup.cgi +++ /dev/null @@ -1,214 +0,0 @@ -#!/usr/bin/perl -use strict; - -use OpenILS::Application::Storage; -use OpenILS::Application::Storage::CDBI; - -# I need to abstract the driver loading away... -use OpenILS::Application::Storage::Driver::Pg; - -use CGI qw/:standard start_*/; - -OpenILS::Application::Storage::CDBI->connection('dbi:Pg:host=10.0.0.2;dbname=demo-dev', 'postgres'); -OpenILS::Application::Storage::CDBI->db_Main->{ AutoCommit } = 1; - -my $cgi = new CGI; - -#------------------------------------------------------------------------------- -# setup part -#------------------------------------------------------------------------------- - -my %org_cols = ( qw/id GroupID name Name parent ParentGroup/ ); - -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::grp_tree->retrieve($id); - for my $col ( keys %org_cols ) { - $u->$col( $cgi->param($col."_$id") ); - } - $u->update; - } - } elsif ( $action eq 'Add New' ) { - permission::grp_tree->create( { map { defined($cgi->param($_)) ? ($_ => $cgi->param($_)) : () } keys %org_cols } ); - } -} - -#------------------------------------------------------------------------------- -# HTML part -#------------------------------------------------------------------------------- - -print < - - - - - - - - -

User Group Hierarchy Setup

-

-HEADER - -my $uri = $cgi->url(-relative=>1); - -my $top; -for my $grp ( permission::grp_tree->search( {parent=>undef} ) ) { - my $name = $grp->name; - $name =~ s/'/\\'/og; - print <<" HEADER"; -

- -

-

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

"; - -