libraries are now filtered on id (there are duplicate names, such as "Bookmobile")
[Evergreen.git] / Open-ILS / src / cgi-bin / copy_statuses.cgi
1 #!/usr/bin/perl
2 use strict;
3
4 use OpenILS::Application::Storage;
5 use OpenILS::Application::Storage::CDBI;
6
7 # I need to abstract the driver loading away...
8 use OpenILS::Application::Storage::Driver::Pg;
9
10 use CGI qw/:standard start_*/;
11 our %config;
12 do '##CONFIG##/live-db-setup.pl';
13
14 OpenILS::Application::Storage::CDBI->connection($config{dsn},$config{usr},$config{pw});
15 OpenILS::Application::Storage::CDBI->db_Main->{ AutoCommit } = 1;
16
17 my $cgi = new CGI;
18
19 #-------------------------------------------------------------------------------
20 # HTML part
21 #-------------------------------------------------------------------------------
22
23 print <<HEADER;
24 Content-type: text/html
25
26 <html>
27
28 <head>
29         <style>
30                 table.table_class {
31                         border: dashed lightgrey 1px;
32                         background-color: #EEE;
33                         border-collapse: collapse;
34                 }
35
36                 deactivated {
37                         color: lightgrey;
38                 }
39
40                 tr.row_class td {
41                         border: solid lightgrey 1px;
42                 }
43
44                 tr.new_row_class {
45                         background: grey;
46                 }
47                 
48                 tr.header_class th {
49                         background-color: lightblue;
50                         border: solid blue 1px;
51                         padding: 2px;
52                 }
53
54         </style>
55 <body style='padding: 25px;'>
56
57 <a href="$config{index}">Home</a>
58
59 <h1>Copy Status Setup</h1>
60 <hr/>
61
62 HEADER
63
64 #-------------------------------------------------------------------------------
65 # setup part
66 #-------------------------------------------------------------------------------
67
68 my %cs_cols = ( qw/id SysID name Name holdable Unholdable/ );
69
70 my @col_display_order = ( qw/id name holdable/ );
71
72 #-------------------------------------------------------------------------------
73 # Logic part
74 #-------------------------------------------------------------------------------
75
76 if (my $action = $cgi->param('action')) {
77         if ( $action eq 'Remove Selected' ) {
78                 for my $id ( ($cgi->param('id')) ) {
79                         next unless ($id > 99);
80                         config::copy_status->retrieve($id)->delete;
81                 }
82         } elsif ( $action eq 'Update Selected' ) {
83                 for my $id ( ($cgi->param('id')) ) {
84                         my $u = config::copy_status->retrieve($id);
85                         $u->name( $cgi->param("name_$id") );
86                         $u->holdable( $cgi->param("holdable_$id") );
87                         $u->update;
88                 }
89         } elsif ( $action eq 'Add New' ) {
90                 config::copy_status->create( { name => $cgi->param("name") } );
91         }
92 }
93
94
95 #-------------------------------------------------------------------------------
96 # Form part
97 #-------------------------------------------------------------------------------
98 {
99         #-----------------------------------------------------------------------
100         # User form
101         #-----------------------------------------------------------------------
102         print   "<form method='POST'>".
103                 "<table class='table_class'><tr class='header_class'>\n";
104         
105         for my $col ( @col_display_order ) {
106                 print th($cs_cols{$col});
107         }
108         
109         print '<th>Action</th></tr>';
110         
111         for my $row ( sort { $a->name cmp $b->name } (config::copy_status->retrieve_all) ) {
112                 print Tr(
113                         td( $row->id() ),
114                         td("<input type='text' name='name_$row' value='". $row->name() ."'>"),
115                         td("<input type='checkbox' name='holdable_$row' value='f'". do {'checked' unless $row->holdable()} .">"),
116                         td("<input type='checkbox' value='$row' name='id'>"),
117                 );
118         }
119
120         print "<tr class='new_row_class'>",
121                 td(),
122                 td("<input type='text' name='name'>"),
123                 td("<input type='checkbox' name='holdable' value='f'>"),
124                 td(),
125                 "</tr>";
126
127         print   "</table>";
128         print   "<input type='submit' name='action' value='Remove Selected'/> | ";
129         print   "<input type='submit' name='action' value='Update Selected'/> | ";
130         print   "<input type='submit' name='action' value='Add New'/></form><hr/>";
131 }
132
133 print "</body></html>";
134
135