+++ /dev/null
-#!/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 <<HEADER;
-Content-type: text/html
-
-<html>
-
-<head>
- <style>
- table.table_class {
- border: dashed lightgrey 1px;
- background-color: #EEE;
- border-collapse: collapse;
- }
-
- deactivated {
- color: lightgrey;
- }
-
- tr.new_row_class {
- background: grey;
- }
-
- tr.row_class td {
- border: solid lightgrey 1px;
- }
-
- tr.header_class th {
- background-color: lightblue;
- border: solid blue 1px;
- padding: 2px;
- }
-
- </style>
- <script language='javascript' src='/js/widgets/xtree.js'></script>
-</head>
-
-<body style='padding: 25px;'>
-
-<h1>User Group Hierarchy Setup</h1>
-<hr/>
-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";
-<div style="float: left;">
- <script language='javascript'>
-
- function getById (id) { return document.getElementById(id); }
- function createAppElement (el) { return document.createElement(el); }
- function createAppTextNode (txt) { return document.createTextNode(txt); }
-
- var node_$grp = new WebFXTree('$name','$uri?action=child&id=$grp');
- HEADER
- $top = $grp->id;
- last;
-}
-
-for my $grp ( permission::grp_tree->search_like( {parent => '%'}, {order_by => 'id'} ) ) {
- my $name = $grp->name;
- $name =~ s/'/\\'/og;
- 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::grp_tree->retrieve_all ) {
- my $parent = $grp->parent;
- next unless $parent;
- print <<" JS"
- node_$parent.add(node_$grp);
- JS
-}
-
-print <<HEADER;
- document.write(node_$top);
- </script>
-</div>
-<div>
-
-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 "<h2>Edit ".$node->name."</h2>";
- print "<form method='POST'>".
- "<table class='table_class'><tr class='header_class'>\n";
-
- print Tr(
- th($org_cols{id}),
- td( $node->id() ),
- );
- print Tr(
- th($org_cols{name}),
- td("<input type='text' name='name_$node' value=\"". $node->name() ."\">"),
- );
- print Tr(
- th($org_cols{depth}),
- td("<select name='depth_$node'>".do{
- my $out = '<option>-- Select One --</option>';
- for my $type ( sort {$a->depth <=> $b->depth} actor::org_unit_type->retrieve_all) {
- $out .= "<option value='".$type->depth."' ".do {
- if ($node->depth == $type->depth) {
- "selected";
- }}.'>'.$type->name.'</option>'
- }
- $out;
- }."</select>"),
- );
- print Tr(
- th($org_cols{parent}),
- td("<select name='parent_$node'>".do{
- my $out = '<option>-- Select One --</option>';
- for my $org ( sort {$a->id <=> $b->id} permission::grp_tree->retrieve_all) {
- $out .= "<option value='$org' ".do {
- if ($node->parent == $org->id) {
- "selected";
- }}.'>'.do{' 'x$org->depth}.$org->name.'</option>'
- }
- $out;
- }."</select><input type='hidden' value='$node' name='id'>"),
- );
-
- print Tr( "<td colspan='2'><input type='submit' name='action' value='Update'/></td>" );
-
- print "</table></form><hr/>";
-
-
- print "<h2>New Child</h2>";
-
- print "<form method='POST'>".
- "<table class='table_class'>\n";
-
- print Tr(
- th($org_cols{name}),
- td("<input type='text' name='name'>"),
- );
- print Tr(
- th($org_cols{depth}),
- td("<select name='depth'>".do{
- my $out = '<option>-- Select One --</option>';
- for my $type ( sort {$a->depth <=> $b->depth} actor::org_unit_type->retrieve_all) {
- $out .= "<option value='".$type->depth."'>".$type->name.'</option>'
- }
- $out;
- }."</select>"),
- );
- print Tr( "<td colspan='2'><input type='hidden' value='$node' name='parent'>",
- "<input type='submit' name='action' value='Add New'/></td>" );
- print "</table></form><hr/>";
- }
- }
-}
-
-print "</div></body></html>";
-
-
projects / Evergreen.git / commitdiff