From 4696500b6c940e8ce5dffe5817fd7a65b2136bc4 Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 21 Jun 2005 19:46:12 +0000 Subject: [PATCH] updating header and fixing some minor input bugs git-svn-id: svn://svn.open-ils.org/ILS/trunk@901 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/cgi-bin/circ-rules.cgi | 7 ++++++- Open-ILS/src/cgi-bin/copy_statuses.cgi | 6 +++++- Open-ILS/src/cgi-bin/lib-setup.cgi | 7 ++++++- Open-ILS/src/cgi-bin/org_unit_types.cgi | 14 +++++++++++--- Open-ILS/src/cgi-bin/perms-setup.cgi | 7 ++++++- Open-ILS/src/cgi-bin/superuser-setup.cgi | 7 ++++++- Open-ILS/src/cgi-bin/user-profiles.cgi | 7 ++++++- Open-ILS/src/cgi-bin/usr_group-setup.cgi | 8 +++++++- 8 files changed, 53 insertions(+), 10 deletions(-) diff --git a/Open-ILS/src/cgi-bin/circ-rules.cgi b/Open-ILS/src/cgi-bin/circ-rules.cgi index 92e24a6267..4e9738fba0 100755 --- a/Open-ILS/src/cgi-bin/circ-rules.cgi +++ b/Open-ILS/src/cgi-bin/circ-rules.cgi @@ -9,7 +9,10 @@ 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'); +our %config; +do '../setup.pl'; + +OpenILS::Application::Storage::CDBI->connection($config{dsn},$config{usr}); OpenILS::Application::Storage::CDBI->db_Main->{ AutoCommit } = 1; my $cgi = new CGI; @@ -49,6 +52,8 @@ Content-type: text/html +Home +

Configure Circulation Rules

diff --git a/Open-ILS/src/cgi-bin/copy_statuses.cgi b/Open-ILS/src/cgi-bin/copy_statuses.cgi index 8c147a1112..bd5e926e98 100755 --- a/Open-ILS/src/cgi-bin/copy_statuses.cgi +++ b/Open-ILS/src/cgi-bin/copy_statuses.cgi @@ -8,8 +8,10 @@ use OpenILS::Application::Storage::CDBI; use OpenILS::Application::Storage::Driver::Pg; use CGI qw/:standard start_*/; +our %config; +do '../setup.pl'; -OpenILS::Application::Storage::CDBI->connection('dbi:Pg:host=10.0.0.2;dbname=demo-dev', 'postgres'); +OpenILS::Application::Storage::CDBI->connection($config{dsn},$config{usr}); OpenILS::Application::Storage::CDBI->db_Main->{ AutoCommit } = 1; my $cgi = new CGI; @@ -52,6 +54,8 @@ Content-type: text/html +Home +

Copy Status Setup

diff --git a/Open-ILS/src/cgi-bin/lib-setup.cgi b/Open-ILS/src/cgi-bin/lib-setup.cgi index 5ba4b45915..91c128db3b 100755 --- a/Open-ILS/src/cgi-bin/lib-setup.cgi +++ b/Open-ILS/src/cgi-bin/lib-setup.cgi @@ -8,8 +8,10 @@ use OpenILS::Application::Storage::CDBI; use OpenILS::Application::Storage::Driver::Pg; use CGI qw/:standard start_*/; +our %config; +do '../setup.pl'; -OpenILS::Application::Storage::CDBI->connection('dbi:Pg:host=10.0.0.2;dbname=demo-dev', 'postgres'); +OpenILS::Application::Storage::CDBI->connection($config{dsn},$config{usr}); OpenILS::Application::Storage::CDBI->db_Main->{ AutoCommit } = 1; my $cgi = new CGI; @@ -27,6 +29,7 @@ if (my $action = $cgi->param('action')) { 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; @@ -77,6 +80,8 @@ Content-type: text/html +Home +

Library Hierarchy Setup

HEADER diff --git a/Open-ILS/src/cgi-bin/org_unit_types.cgi b/Open-ILS/src/cgi-bin/org_unit_types.cgi index 8491b161d2..72ae4c8da7 100755 --- a/Open-ILS/src/cgi-bin/org_unit_types.cgi +++ b/Open-ILS/src/cgi-bin/org_unit_types.cgi @@ -9,7 +9,10 @@ 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'); +our %config; +do '../setup.pl'; + +OpenILS::Application::Storage::CDBI->connection($config{dsn},$config{usr}); OpenILS::Application::Storage::CDBI->db_Main->{ AutoCommit } = 1; my $cgi = new CGI; @@ -52,6 +55,8 @@ Content-type: text/html +Home +

Organizational Unit Type Setup

@@ -61,9 +66,9 @@ HEADER # setup part #------------------------------------------------------------------------------- -my %ou_cols = ( qw/id SysID name Name depth Depth parent ParentType can_have_vols CanHaveVolumes can_have_users CanHaveUsers/ ); +my %ou_cols = ( qw/id SysID name Name opac_label OpacLabel depth Depth parent ParentType can_have_vols CanHaveVolumes can_have_users CanHaveUsers/ ); -my @col_display_order = ( qw/id name depth parent can_have_vols can_have_users/ ); +my @col_display_order = ( qw/id name opac_label depth parent can_have_vols can_have_users/ ); #------------------------------------------------------------------------------- # Logic part @@ -78,6 +83,7 @@ if (my $action = $cgi->param('action')) { for my $id ( ($cgi->param('id')) ) { my $u = actor::org_unit_type->retrieve($id); for my $col (@col_display_order) { + next if ($cgi->param($col."_$id") =~ /Select One/o); $u->$col( $cgi->param($col."_$id") ); } $u->update; @@ -108,6 +114,7 @@ if (my $action = $cgi->param('action')) { print Tr( td( $row->id() ), td(""), + td(""), td(""), td(""), + td(""), td(""), td("