From 56fc3494847eab407d96be7193715cf001331e5e Mon Sep 17 00:00:00 2001 From: miker Date: Tue, 26 Jul 2005 15:56:53 +0000 Subject: [PATCH] adding description column git-svn-id: svn://svn.open-ils.org/ILS/trunk@1480 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- Open-ILS/src/cgi-bin/perms-setup.cgi | 13 ++++++++++--- Open-ILS/src/cgi-bin/usr_group-setup.cgi | 12 ++++++++++-- 2 files changed, 20 insertions(+), 5 deletions(-) diff --git a/Open-ILS/src/cgi-bin/perms-setup.cgi b/Open-ILS/src/cgi-bin/perms-setup.cgi index 0993a71605..eb66fe6394 100755 --- a/Open-ILS/src/cgi-bin/perms-setup.cgi +++ b/Open-ILS/src/cgi-bin/perms-setup.cgi @@ -66,9 +66,9 @@ HEADER # setup part #------------------------------------------------------------------------------- -my %profile_cols = ( qw/id SysID code Name/ ); +my %profile_cols = ( qw/id SysID code Name description Description/ ); -my @col_display_order = ( qw/id cod3/ ); +my @col_display_order = ( qw/id code description/ ); #------------------------------------------------------------------------------- # Logic part @@ -83,10 +83,15 @@ if (my $action = $cgi->param('action')) { for my $id ( ($cgi->param('id')) ) { my $u = permission::perm_list->retrieve($id); $u->code( $cgi->param("code_$id") ); + $u->description( $cgi->param("description_$id") ); $u->update; } } elsif ( $action eq 'Add New' ) { - permission::perm_list->create( { code => $cgi->param("code") } ); + permission::perm_list->create( + { code => $cgi->param("code"), + description => $cgi->param("description") + } + ); } } @@ -111,6 +116,7 @@ if (my $action = $cgi->param('action')) { print Tr( td( $row->id() ), td(""), + td(""), td(""), ); } @@ -118,6 +124,7 @@ if (my $action = $cgi->param('action')) { print "", td(), td(""), + td(""), td(), ""; print ""; diff --git a/Open-ILS/src/cgi-bin/usr_group-setup.cgi b/Open-ILS/src/cgi-bin/usr_group-setup.cgi index 58be72e8bd..cb2fded37c 100755 --- a/Open-ILS/src/cgi-bin/usr_group-setup.cgi +++ b/Open-ILS/src/cgi-bin/usr_group-setup.cgi @@ -21,9 +21,9 @@ my $cgi = new CGI; # setup part #------------------------------------------------------------------------------- -my %org_cols = ( qw/id GroupID name Name parent ParentGroup/ ); +my %org_cols = ( qw/id GroupID name Name parent ParentGroup description Description/ ); -my @col_display_order = ( qw/id name parent/ ); +my @col_display_order = ( qw/id name parent description/ ); if (my $action = $cgi->param('action')) { if ( $action eq 'Update' ) { @@ -188,6 +188,10 @@ if (my $action = $cgi->param('action')) { $out; }.""), ); + print Tr( + th($org_cols{description}), + td("description() ."\">"), + ); print Tr( "" ); @@ -260,6 +264,10 @@ if (my $action = $cgi->param('action')) { th($org_cols{name}), td(""), ); + print Tr( + th($org_cols{description}), + td(""), + ); print Tr( "", "" ); print "
"; -- 2.43.2