#!/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_*/; our %config; do '##CONFIG##/live-db-setup.pl'; OpenILS::Application::Storage::CDBI->connection($config{dsn},$config{usr},$config{pw}); OpenILS::Application::Storage::CDBI->db_Main->{ AutoCommit } = 1; my $cgi = new CGI; #------------------------------------------------------------------------------- # setup part #------------------------------------------------------------------------------- my %org_cols = ( qw/id SysID name Name parent_ou Parent ou_type OrgUnitType shortname ShortName/ ); my @col_display_order = ( qw/id name shortname ou_type parent_ou/ ); if (my $action = $cgi->param('action')) { if ( $action eq 'Update' ) { for my $id ( ($cgi->param('id')) ) { my $u = actor::org_unit->retrieve($id); for my $col ( keys %org_cols ) { next if ($cgi->param($col."_$id") =~ /Select One/o); $u->$col( $cgi->param($col."_$id") ); } $u->update; } } elsif ( $action eq 'Add New' ) { actor::org_unit->create( { map { defined($cgi->param($_)) ? ($_ => $cgi->param($_)) : () } keys %org_cols } ); } elsif ( $action eq 'Save Address' ) { my $org = actor::org_unit->retrieve($cgi->param('id')); my $addr = {}; $$addr{org_unit} = $cgi->param('org_unit') || $org->id; $$addr{street1} = $cgi->param('street1'); $$addr{street2} = $cgi->param('street2'); $$addr{city} = $cgi->param('city'); $$addr{county} = $cgi->param('county'); $$addr{state} = $cgi->param('state'); $$addr{country} = $cgi->param('country'); $$addr{post_code} = $cgi->param('post_code'); my $a_type = $cgi->param('addr_type'); my $a = actor::org_address->retrieve($cgi->param('aid')); if ($a) { for (keys %$addr) { next unless $$addr{$_}; $a->$_($$addr{$_}); } $a->update; } else { $a = actor::org_address->create( {map {defined($$addr{$_}) ? ($_ => $$addr{$_}) : ()} keys %$addr} ); } $org->$a_type($a->id); $org->update; } } #------------------------------------------------------------------------------- # HTML part #------------------------------------------------------------------------------- print < Home

Library Hierarchy Setup

HEADER my $uri = $cgi->url(-relative=>1); my $top; for my $lib ( actor::org_unit->search( {parent_ou=>undef} ) ) { my $name = $lib->name; $name =~ s/'/\\'/og; $top = $lib->id; print <<" HEADER";

HEADER #------------------------------------------------------------------------------- # Logic part #------------------------------------------------------------------------------- if (my $action = $cgi->param('action')) { if ( $action eq 'child' ) { my $id = $cgi->param('id'); if ($id) { my $node = actor::org_unit->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{shortname}), td(""), ); print Tr( th($org_cols{ou_type}), td(""), ); print Tr( th($org_cols{parent_ou}), td(""), ); print Tr( "" ); print "

"; #------------------------------------------------------------------------- # Address edit form #------------------------------------------------------------------------- my %addrs = ( ill_address => 'ILL Address', holds_address => 'Consortial Holds Address', mailing_address => 'Mailing Address', billing_address => 'Physical Address' ); for my $a (qw/billing_address mailing_address holds_address ill_address/) { my $addr = actor::org_address->retrieve( $node->$a ) if ($node->$a); my %ah = ( street1 => $addr?$addr->street1:'', street2 => $addr?$addr->street2:'', city => $addr?$addr->city:'', county => $addr?$addr->county:'', state => $addr?$addr->state:'', country => $addr?$addr->country:'US', post_code => $addr?$addr->post_code:'', org_unit => $addr?$addr->org_unit:$node->id, id => $addr?$addr->id:'', ); print '' if ($a eq 'holds_address'); print <<" TABLE"; TABLE } print "

New Child

"; print "

"; } } } print "

";