X-Git-Url: http://git.rot13.org/?a=blobdiff_plain;f=admin%2Fauthorised_values.pl;h=c26f3a9ec5cb4b50bfe4827249796b2664ea8f25;hb=14102a66326d733967ad78251bcc27eabda94a58;hp=f30193e20e337de043d381e06f149921b8b4bf13;hpb=f17e1117df1cdcd5e953d03bc32d5440bc6ace9d;p=koha.git diff --git a/admin/authorised_values.pl b/admin/authorised_values.pl index f30193e20e..c26f3a9ec5 100755 --- a/admin/authorised_values.pl +++ b/admin/authorised_values.pl @@ -13,9 +13,9 @@ # WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR # A PARTICULAR PURPOSE. See the GNU General Public License for more details. # -# You should have received a copy of the GNU General Public License along with -# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place, -# Suite 330, Boston, MA 02111-1307 USA +# You should have received a copy of the GNU General Public License along +# with Koha; if not, write to the Free Software Foundation, Inc., +# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. use strict; use warnings; @@ -33,7 +33,7 @@ sub AuthorizedValuesForCategory ($) { $searchstring=~ s/\'/\\\'/g; my @data=split(' ',$searchstring); my $sth=$dbh->prepare(' - SELECT id, category, authorised_value, lib, imageurl + SELECT id, category, authorised_value, lib, lib_opac, imageurl FROM authorised_values WHERE (category = ?) ORDER BY category, authorised_value @@ -44,10 +44,11 @@ sub AuthorizedValuesForCategory ($) { my $input = new CGI; my $id = $input->param('id'); +my $op = $input->param('op') || ''; my $offset = $input->param('offset') || 0; my $searchfield = $input->param('searchfield'); $searchfield = '' unless defined $searchfield; -$searchfield=~ s/\,//g; +$searchfield =~ s/\,//g; my $script_name = "/cgi-bin/koha/admin/authorised_values.pl"; my $dbh = C4::Context->dbh; @@ -59,8 +60,6 @@ my ($template, $borrowernumber, $cookie)= get_template_and_user({ type => "intranet", debug => 1, }); -my $pagesize = 20; -my $op = $input->param('op') || ''; $template->param( script_name => $script_name, ($op||'else') => 1 ); @@ -69,7 +68,7 @@ $template->param( script_name => $script_name, if ($op eq 'add_form') { my $data; if ($id) { - my $sth=$dbh->prepare("select id, category, authorised_value, lib, imageurl from authorised_values where id=?"); + my $sth=$dbh->prepare("select id, category, authorised_value, lib, lib_opac, imageurl from authorised_values where id=?"); $sth->execute($id); $data=$sth->fetchrow_hashref; } else { @@ -77,20 +76,22 @@ if ($op eq 'add_form') { } if ($id) { $template->param(action_modify => 1); - $template->param('heading-modify-authorized-value-p' => 1); + $template->param('heading_modify_authorized_value_p' => 1); } elsif ( ! $data->{'category'} ) { $template->param(action_add_category => 1); - $template->param('heading-add-new-category-p' => 1); + $template->param('heading_add_new_category_p' => 1); } else { $template->param(action_add_value => 1); - $template->param('heading-add-authorized-value-p' => 1); + $template->param('heading_add_authorized_value_p' => 1); } - $template->param('use-heading-flags-p' => 1); + $template->param('use_heading_flags_p' => 1); $template->param( category => $data->{'category'}, authorised_value => $data->{'authorised_value'}, lib => $data->{'lib'}, + lib_opac => $data->{'lib_opac'}, id => $data->{'id'}, - imagesets => C4::Koha::getImageSets( checked => $data->{'imageurl'} ) + imagesets => C4::Koha::getImageSets( checked => $data->{'imageurl'} ), + offset => $offset, ); ################## ADD_VALIDATE ################################## @@ -118,12 +119,15 @@ if ($op eq 'add_form') { SET category = ?, authorised_value = ?, lib = ?, + lib_opac = ?, imageurl = ? WHERE id=?' ); my $lib = $input->param('lib'); + my $lib_opac = $input->param('lib_opac'); undef $lib if ($lib eq ""); # to insert NULL instead of a blank string - $sth->execute($new_category, $new_authorised_value, $lib, $imageurl, $id); - print "Content-Type: text/html\n\n"; + undef $lib_opac if ($lib_opac eq ""); # to insert NULL instead of a blank string + $sth->execute($new_category, $new_authorised_value, $lib, $lib_opac, $imageurl, $id); + print "Content-Type: text/html\n\n"; exit; } } @@ -134,12 +138,14 @@ if ($op eq 'add_form') { ($duplicate_entry) = $sth->fetchrow_array(); unless ( $duplicate_entry ) { my $sth=$dbh->prepare( 'INSERT INTO authorised_values - ( id, category, authorised_value, lib, imageurl ) - values (?, ?, ?, ?, ?)' ); + ( id, category, authorised_value, lib, lib_opac, imageurl ) + values (?, ?, ?, ?, ?, ?)' ); my $lib = $input->param('lib'); + my $lib_opac = $input->param('lib_opac'); undef $lib if ($lib eq ""); # to insert NULL instead of a blank string - $sth->execute($id, $new_category, $new_authorised_value, $lib, $imageurl ); - print "Content-Type: text/html\n\nparam('category')."\">"; + undef $lib_opac if ($lib_opac eq ""); # to insert NULL instead of a blank string + $sth->execute($id, $new_category, $new_authorised_value, $lib, $lib_opac, $imageurl ); + print "Content-Type: text/html\n\nparam('category')."&offset=$offset\">"; exit; } } @@ -153,12 +159,13 @@ if ($op eq 'add_form') { ################## DELETE_CONFIRM ################################## # called by default form, used to confirm deletion of data in DB } elsif ($op eq 'delete_confirm') { - my $sth=$dbh->prepare("select category,authorised_value,lib from authorised_values where id=?"); + my $sth=$dbh->prepare("select category,authorised_value,lib,lib_opac from authorised_values where id=?"); $sth->execute($id); my $data=$sth->fetchrow_hashref; $id = $input->param('id') unless $id; $template->param(searchfield => $searchfield, Tlib => $data->{'lib'}, + Tlib_opac => $data->{'lib_opac'}, Tvalue => $data->{'authorised_value'}, id =>$id, ); @@ -170,7 +177,7 @@ if ($op eq 'add_form') { my $id = $input->param('id'); my $sth=$dbh->prepare("delete from authorised_values where id=?"); $sth->execute($id); - print "Content-Type: text/html\n\n"; + print "Content-Type: text/html\n\n"; exit; # END $OP eq DELETE_CONFIRMED ################## DEFAULT ################################## @@ -212,35 +219,20 @@ sub default_form { my $count = scalar(@$results); my @loop_data = (); # builds value list - for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){ + for (my $i=0; $i < $count; $i++){ my %row_data; # get a fresh hash for the row data - $row_data{category} = $results->[$i]{'category'}; - $row_data{authorised_value} = $results->[$i]{'authorised_value'}; - $row_data{lib} = $results->[$i]{'lib'}; - $row_data{imageurl} = getitemtypeimagelocation( 'intranet', $results->[$i]{'imageurl'} ); - $row_data{edit} = "$script_name?op=add_form&id=".$results->[$i]{'id'}; - $row_data{delete} = "$script_name?op=delete_confirm&searchfield=$searchfield&id=".$results->[$i]{'id'}; + $row_data{category} = $results->[$i]{'category'}; + $row_data{authorised_value} = $results->[$i]{'authorised_value'}; + $row_data{lib} = $results->[$i]{'lib'}; + $row_data{lib_opac} = $results->[$i]{'lib_opac'}; + $row_data{imageurl} = getitemtypeimagelocation( 'intranet', $results->[$i]{'imageurl'} ); + $row_data{edit} = "$script_name?op=add_form&id=".$results->[$i]{'id'}."&offset=$offset"; + $row_data{delete} = "$script_name?op=delete_confirm&searchfield=$searchfield&id=".$results->[$i]{'id'}."&offset=$offset"; push(@loop_data, \%row_data); } $template->param( loop => \@loop_data, tab_list => $tab_list, category => $searchfield ); - - if ($offset>0) { - my $prevpage = $offset-$pagesize; - $template->param(isprevpage => $offset, - prevpage=> $prevpage, - searchfield => $searchfield, - script_name => $script_name, - ); - } - if ($offset+$pagesize<$count) { - my $nextpage =$offset+$pagesize; - $template->param(nextpage =>$nextpage, - searchfield => $searchfield, - script_name => $script_name, - ); - } }