X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=admin%2Fauth_subfields_structure.pl;h=e052d023baf1120d87ea916ce46d2f8ad05af684;hb=075ef09f48b66df7766c22e1c9ecf1d3cf7a039a;hp=321e54c1ac68af31e2de0254a7dbf86759071f09;hpb=4a32a188ae0a1bf189d3e1a4865051400c39b31e;p=srvgit diff --git a/admin/auth_subfields_structure.pl b/admin/auth_subfields_structure.pl index 321e54c1ac..e052d023ba 100755 --- a/admin/auth_subfields_structure.pl +++ b/admin/auth_subfields_structure.pl @@ -4,61 +4,43 @@ # # This file is part of Koha. # -# Koha is free software; you can redistribute it and/or modify it under the -# terms of the GNU General Public License as published by the Free Software -# Foundation; either version 2 of the License, or (at your option) any later -# version. +# Koha is free software; you can redistribute it and/or modify it +# under the terms of the GNU General Public License as published by +# the Free Software Foundation; either version 3 of the License, or +# (at your option) any later version. # -# Koha is distributed in the hope that it will be useful, but WITHOUT ANY -# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR -# A PARTICULAR PURPOSE. See the GNU General Public License for more details. +# Koha is distributed in the hope that it will be useful, but +# WITHOUT ANY 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., -# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA. +# You should have received a copy of the GNU General Public License +# along with Koha; if not, see . -use strict; -#use warnings; FIXME - Bug 2505 -use C4::Output; -use C4::Auth; -use CGI; +use Modern::Perl; +use C4::Output qw( output_html_with_http_headers ); +use C4::Auth qw( get_template_and_user ); +use CGI qw ( -utf8 ); use C4::Context; +use Koha::Authority::Types; +use Koha::AuthorisedValues; +use Koha::Authority::Subfields; -sub string_search { - my ($searchstring,$authtypecode)=@_; - my $dbh = C4::Context->dbh; - $searchstring=~ s/\'/\\\'/g; - my @data=split(' ',$searchstring); - my $sth=$dbh->prepare("Select * from auth_subfield_structure where (tagfield like ? and authtypecode=?) order by tagfield"); - $sth->execute("$searchstring%",$authtypecode); - my $results = $sth->fetchall_arrayref({}); - return (scalar(@$results), $results); -} - -sub auth_subfield_structure_exists { - my ($authtypecode, $tagfield, $tagsubfield) = @_; - my $dbh = C4::Context->dbh; - my $sql = "select tagfield from auth_subfield_structure where authtypecode = ? and tagfield = ? and tagsubfield = ?"; - my $rows = $dbh->selectall_arrayref($sql, {}, $authtypecode, $tagfield, $tagsubfield); - return @$rows > 0; -} +use List::MoreUtils qw( uniq ); -my $input = new CGI; +my $input = CGI->new; my $tagfield = $input->param('tagfield'); my $tagsubfield = $input->param('tagsubfield'); my $authtypecode = $input->param('authtypecode'); -my $offset = $input->param('offset'); my $op = $input->param('op') || ''; my $script_name = "/cgi-bin/koha/admin/auth_subfields_structure.pl"; my ($template, $borrowernumber, $cookie) = get_template_and_user( - { template_name => "admin/auth_subfields_structure.tmpl", + { template_name => "admin/auth_subfields_structure.tt", query => $input, type => "intranet", - authnotrequired => 0, - flagsrequired => { parameters => 'parameters_remaining_permissions' }, - debug => 1, + flagsrequired => { parameters => 'manage_marc_frameworks' }, } ); my $pagesize = 30; @@ -80,8 +62,6 @@ my $dbh = C4::Context->dbh; ################## ADD_FORM ################################## # called by default. Used to create form to add or modify a record if ($op eq 'add_form') { - my $data; - my $more_subfields = $input->param("more_subfields")+1; # builds kohafield tables my @kohafields; push @kohafields, ""; @@ -91,25 +71,14 @@ if ($op eq 'add_form') { push @kohafields, "auth_header.".$field; } - # build authorised value list - $sth2 = $dbh->prepare("select distinct category from authorised_values"); - $sth2->execute; - my @authorised_values; - push @authorised_values,""; - while ((my $category) = $sth2->fetchrow_array) { - push @authorised_values, $category; - } - push (@authorised_values,"branches"); - push (@authorised_values,"itemtypes"); - - # build thesaurus categories list - $sth2 = $dbh->prepare("select authtypecode from auth_types"); - $sth2->execute; - my @authtypes; - push @authtypes, ""; - while ( ( my $authtypecode ) = $sth2->fetchrow_array ) { - push @authtypes, $authtypecode; - } + # build authorised value category list + my @authorised_value_categories = Koha::AuthorisedValues->new->categories; + unshift @authorised_value_categories, ''; + push @authorised_value_categories, 'branches'; + push @authorised_value_categories, 'itemtypes'; + + # build thesaurus categories list + my @authtypes = uniq( "", map { $_->authtypecode } Koha::Authority::Types->search->as_list ); # build value_builder list my @value_builder=(''); @@ -118,239 +87,60 @@ if ($op eq 'add_form') { # 2 cases here : on CVS install, $cgidir does not need a /cgi-bin # on a standard install, /cgi-bin need to be added. # test one, then the other - my $cgidir = C4::Context->intranetdir ."/cgi-bin"; - unless (opendir(DIR, "$cgidir/cataloguing/value_builder")) { - $cgidir = C4::Context->intranetdir; - opendir(DIR, "$cgidir/cataloguing/value_builder") || die "can't opendir $cgidir/value_builder: $!"; - } - while (my $line = readdir(DIR)) { - if ($line =~ /\.pl$/) { - push (@value_builder,$line); - } - } - @value_builder= sort {$a cmp $b} @value_builder; - closedir DIR; + my $cgidir = C4::Context->config('intranetdir') . "/cgi-bin"; + my $dir_h; + unless ( opendir( $dir_h, "$cgidir/cataloguing/value_builder" ) ) { + $cgidir = C4::Context->config('intranetdir'); + opendir( $dir_h, "$cgidir/cataloguing/value_builder" ) || die "can't opendir $cgidir/value_builder: $!"; + } + while ( my $line = readdir($dir_h) ) { + if ( $line =~ /\.pl$/ + && $line !~ /EXAMPLE\.pl$/ ) { # documentation purposes + push( @value_builder, $line ); + } + } + @value_builder = sort { $a cmp $b } @value_builder; + closedir $dir_h; - # build values list - my $sth=$dbh->prepare("select * from auth_subfield_structure where tagfield=? and authtypecode=?"); # and tagsubfield='$tagsubfield'"); - $sth->execute($tagfield,$authtypecode); - my @loop_data = (); - my $i=0; - while ($data =$sth->fetchrow_hashref) { + my @loop_data; + my $asses = Koha::Authority::Subfields->search({ tagfield => $tagfield, authtypecode => $authtypecode}, {order_by => 'display_order'})->unblessed; + my $i; + for my $ass ( @$asses ) { + my %row_data = %$ass; + $row_data{kohafields} = \@kohafields; + $row_data{authorised_values} = \@authorised_value_categories; + $row_data{frameworkcodes} = \@authtypes; + $row_data{value_builders} = \@value_builder; + $row_data{row} = $i++; + push( @loop_data, \%row_data ); + } - my %row_data; # get a fresh hash for the row data - $row_data{defaultvalue} = $data->{defaultvalue}; - $row_data{tab} = { - id => "tab$i", - default => $data->{'tab'}, - }; - $row_data{ohidden} = { - id => "ohidden$i", - default => $data->{'hidden'} - }; - #$row_data{ihidden} = CGI::scrolling_list(-name=>'ihidden', - # -id=>"ihidden$i", - # -values=>['0','1','2'], - # -labels => {'0'=>'Show','1'=>'Show Collapsed', - # '2' =>'Hide', - # }, - # -default=>substr($data->{'hidden'},1,1), - # -size=>1, - # -multiple=>0, - # ); - #$row_data{ehidden} = CGI::scrolling_list(-name=>'ehidden', - # -id=>"ehidden$i", - # -values=>['0','1','2'], - # -labels => {'0'=>'Show','1'=>'Show Collapsed', - # '2' =>'Hide', - # }, - # -default=>substr($data->{'hidden'}." ",2,1), - # -size=>1, - # -multiple=>0, - # ); - $row_data{tagsubfieldinput} = "{'tagsubfield'}."\" id=\"tagsubfield\" />"; - $row_data{tagsubfield} = $data->{'tagsubfield'}; - $row_data{liblibrarian} = CGI::escapeHTML($data->{'liblibrarian'}); - $row_data{libopac} = CGI::escapeHTML($data->{'libopac'}); - $row_data{seealso} = CGI::escapeHTML($data->{'seealso'}); - $row_data{kohafield}= CGI::scrolling_list( -name=>"kohafield", - -id=>"kohafield$i", - -values=> \@kohafields, - -default=> "$data->{'kohafield'}", - -size=>1, - -multiple=>0, - ); - $row_data{authorised_value} = CGI::scrolling_list(-name=>'authorised_value', - -id=>"authorised_value$i", - -values=> \@authorised_values, - -default=>$data->{'authorised_value'}, - -size=>1, - -tabindex=>'', - -multiple=>0, - ); - $row_data{frameworkcode} = CGI::scrolling_list(-name=>'frameworkcode', - -id=>"frameworkcode$i", - -values=> \@authtypes, - -default=>$data->{'frameworkcode'}, - -size=>1, - -tabindex=>'', - -multiple=>0, - ); - $row_data{value_builder} = CGI::scrolling_list(-name=>'value_builder', - -id=>"value_builder$i", - -values=> \@value_builder, - -default=>$data->{'value_builder'}, - -size=>1, - -tabindex=>'', - -multiple=>0, - ); - - $row_data{repeatable} = CGI::checkbox(-name=>"repeatable$i", - -checked => $data->{'repeatable'}?'checked':'', - -value => 1, - -label => '', - -id => "repeatable$i"); - $row_data{mandatory} = CGI::checkbox(-name => "mandatory$i", - -checked => $data->{'mandatory'}?'checked':'', - -value => 1, - -label => '', - -id => "mandatory$i"); - $row_data{hidden} = CGI::escapeHTML($data->{hidden}) ; - $row_data{isurl} = CGI::checkbox( -name => "isurl$i", - -id => "isurl$i", - -checked => $data->{'isurl'}?'checked':'', - -value => 1, - -label => ''); - $row_data{row} = $i; - push(@loop_data, \%row_data); - $i++; - } - # add more_subfields empty lines for add if needed - for (my $i=1;$i<=$more_subfields;$i++) { - my %row_data; # get a fresh hash for the row data - $row_data{'new_subfield'} = 1; - $row_data{tab} = CGI::scrolling_list(-name=>'tab', - -id => "tab$i", - -values => - [ '-1', '0', '1', '2', '3', '4', '5', '6', '7', '8', '9', '10' ], - -labels => { - '-1' => 'ignore', - '0' => '0', - '1' => '1', - '2' => '2', - '3' => '3', - '4' => '4', - '5' => '5', - '6' => '6', - '7' => '7', - '8' => '8', - '9' => '9', - }, - -default=>"", - -size=>1, - -tabindex=>'', - -multiple=>0, - ); - $row_data{ohidden} = CGI::scrolling_list(-name=>'ohidden', - -id=>"ohidden$i", - #-values=>['0','1','2'], - #-labels => {'0'=>'Show','1'=>'Show Collapsed', - # '2' =>'Hide', - # }, - -values=>['0','-5'], - -labels => {'0'=>'Show All','-5'=>'Hide All',}, - #-default=>"0", - -default=>$data->{'hidden'}, - #-default=>"-5", - -size=>1, - -multiple=>0, - ); + # Add a new row for the "New" tab + my %row_data; # get a fresh hash for the row data + $row_data{'new_subfield'} = 1; + $row_data{tab} = -1; # ignore + $row_data{ohidden} = 0; # show all + $row_data{tagsubfield} = ""; + $row_data{liblibrarian} = ""; + $row_data{libopac} = ""; + $row_data{seealso} = ""; + $row_data{hidden} = "000"; + $row_data{repeatable} = 0; + $row_data{mandatory} = 0; + $row_data{isurl} = 0; + $row_data{kohafields} = \@kohafields, + $row_data{authorised_values} = \@authorised_value_categories; + $row_data{frameworkcodes} = \@authtypes; + $row_data{value_builders} = \@value_builder; + $row_data{row} = $i; + push( @loop_data, \%row_data ); - #$row_data{ihidden} = CGI::scrolling_list(-name=>'ihidden', - # -id=>"ihidden$i", - # -values=>['0','1','2'], - # -labels => {'0'=>'Show','1'=>'Show Collapsed', - # '2' =>'Hide', - # }, - # -default=>"0", - # -size=>1, - # -multiple=>0, - # ); - #$row_data{ehidden} = CGI::scrolling_list(-name=>'ehidden', - # -id=>"ehidden$i", - # -values=>['0','1','2'], - # -labels => {'0'=>'Show','1'=>'Show Collapsed', - # '2' =>'Hide', - # }, - # -default=>"0", - # -size=>1, - # -multiple=>0, - # ); - $row_data{tagsubfieldinput} = "{'tagsubfield'}."\" size=\"1\" id=\"tagsubfield\" maxlength=\"1\" />"; - $row_data{tagsubfieldinput} = - ""; - $row_data{tagsubfield} = $data->{'tagsubfield'}; - $row_data{liblibrarian} = ""; - $row_data{libopac} = ""; - $row_data{seealso} = ""; - $row_data{hidden} = "000"; - $row_data{repeatable} = CGI::checkbox( -name=> 'repeatable', - -id => "repeatable$i", - -checked => '', - -value => 1, - -label => ''); - $row_data{mandatory} = CGI::checkbox( -name=> 'mandatory', - -id => "mandatory$i", - -checked => '', - -value => 1, - -label => ''); - $row_data{isurl} = CGI::checkbox(-name => 'isurl', - -id => "isurl$i", - -checked => '', - -value => 1, - -label => ''); - $row_data{kohafield}= CGI::scrolling_list( -name=>'kohafield', - -id => "kohafield$i", - -values=> \@kohafields, - -default=> "", - -size=>1, - -multiple=>0, - ); - $row_data{frameworkcode} = CGI::scrolling_list(-name=>'frameworkcode', - -id=>'frameworkcode', - -values=> \@authtypes, - -default=>$data->{'frameworkcode'}, - -size=>1, - -tabindex=>'', - -multiple=>0, - ); - $row_data{authorised_value} = CGI::scrolling_list(-name=>'authorised_value', - -id => 'authorised_value', - -values=> \@authorised_values, - -size=>1, - -tabindex=>'', - -multiple=>0, - ); - $row_data{value_builder} = CGI::scrolling_list(-name=>'value_builder', - -id=>'value_builder', - -values=> \@value_builder, - -default=>$data->{'value_builder'}, - -size=>1, - -tabindex=>'', - -multiple=>0, - ); - $row_data{row} = $i; - push(@loop_data, \%row_data); - } $template->param('use_heading_flags_p' => 1); $template->param('heading_edit_subfields_p' => 1); $template->param(action => "Edit subfields", tagfield => $tagfield, - tagfieldinput => "", + tagsubfield => $tagsubfield, loop => \@loop_data, - more_subfields => $more_subfields, more_tag => $tagfield); # END $OP eq ADD_FORM @@ -358,27 +148,20 @@ if ($op eq 'add_form') { # called by add_form, used to insert/modify data in DB } elsif ($op eq 'add_validate') { $template->param(tagfield => "$input->param('tagfield')"); -# my $sth=$dbh->prepare("replace auth_subfield_structure (authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,frameworkcode,value_builder,hidden,isurl) -# values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"); - my $sth_insert = $dbh->prepare("insert into auth_subfield_structure (authtypecode,tagfield,tagsubfield,liblibrarian,libopac,repeatable,mandatory,kohafield,tab,seealso,authorised_value,frameworkcode,value_builder,hidden,isurl,defaultvalue) - values (?,?,?,?,?,?,?,?,?,?,?,?,?,?,?,?)"); - my $sth_update = $dbh->prepare("update auth_subfield_structure set authtypecode=?, tagfield=?, tagsubfield=?, liblibrarian=?, libopac=?, repeatable=?, mandatory=?, kohafield=?, tab=?, seealso=?, authorised_value=?, frameworkcode=?, value_builder=?, hidden=?, isurl=?, defaultvalue=? - where authtypecode=? and tagfield=? and tagsubfield=?"); - my @tagsubfield = $input->param('tagsubfield'); - my @liblibrarian = $input->param('liblibrarian'); - my @libopac = $input->param('libopac'); + my @tagsubfield = $input->multi_param('tagsubfield'); + my @liblibrarian = $input->multi_param('liblibrarian'); + my @libopac = $input->multi_param('libopac'); my @kohafield = ''.$input->param('kohafield'); - my @tab = $input->param('tab'); - my @seealso = $input->param('seealso'); - my @hidden; - my @ohidden = $input->param('ohidden'); - #my @ihidden = $input->param('ihidden'); - #my @ehidden = $input->param('ehidden'); - my @authorised_values = $input->param('authorised_value'); + my @tab = $input->multi_param('tab'); + my @seealso = $input->multi_param('seealso'); + my @ohidden = $input->multi_param('ohidden'); + my @authorised_value_categories = $input->multi_param('authorised_value'); my $authtypecode = $input->param('authtypecode'); - my @frameworkcodes = $input->param('frameworkcode'); - my @value_builder =$input->param('value_builder'); - my @defaultvalue = $input->param('defaultvalue'); + my @frameworkcodes = $input->multi_param('frameworkcode'); + my @value_builder =$input->multi_param('value_builder'); + my @defaultvalue = $input->multi_param('defaultvalue'); + + my $display_order; for (my $i=0; $i<= $#tagsubfield ; $i++) { my $tagfield =$input->param('tagfield'); my $tagsubfield =$tagsubfield[$i]; @@ -390,128 +173,98 @@ if ($op eq 'add_form') { my $kohafield =$kohafield[$i]; my $tab =$tab[$i]; my $seealso =$seealso[$i]; - my $authorised_value =$authorised_values[$i]; + my $authorised_value = $authorised_value_categories[$i]; my $frameworkcode =$frameworkcodes[$i]; my $value_builder=$value_builder[$i]; my $defaultvalue = $defaultvalue[$i]; - #my $hidden = $ohidden[$i].$ihidden[$i].$ehidden[$i]; #collate from 3 hiddens; my $hidden = $ohidden[$i]; #collate from 3 hiddens; my $isurl = $input->param("isurl$i")?1:0; - if ($liblibrarian) { - unless (C4::Context->config('demo') eq 1) { - if (auth_subfield_structure_exists($authtypecode, $tagfield, $tagsubfield)) { - $sth_update->execute( - $authtypecode, - $tagfield, - $tagsubfield, - $liblibrarian, - $libopac, - $repeatable, - $mandatory, - $kohafield, - $tab, - $seealso, - $authorised_value, - $frameworkcode, - $value_builder, - $hidden, - $isurl, - $defaultvalue, - ( - $authtypecode, - $tagfield, - $tagsubfield - ), - ); - } else { - $sth_insert->execute( - $authtypecode, - $tagfield, - $tagsubfield, - $liblibrarian, - $libopac, - $repeatable, - $mandatory, - $kohafield, - $tab, - $seealso, - $authorised_value, - $frameworkcode, - $value_builder, - $hidden, - $isurl, - $defaultvalue, - ); - } - } - } + if ($liblibrarian) { + my $ass = Koha::Authority::Subfields->find( + { + authtypecode => $authtypecode, + tagfield => $tagfield, + tagsubfield => $tagsubfield + } + ); + my $attributes = { + liblibrarian => $liblibrarian, + libopac => $libopac, + repeatable => $repeatable, + mandatory => $mandatory, + kohafield => $kohafield, + tab => $tab, + seealso => $seealso, + authorised_value => $authorised_value, + frameworkcode => $frameworkcode, + value_builder => $value_builder, + hidden => $hidden, + isurl => $isurl, + defaultvalue => $defaultvalue, + display_order => $display_order->{$tagfield} || 0, + }; + + if ($ass) { + $ass->update($attributes); + } + else { + Koha::Authority::Subfield->new( + { + authtypecode => $authtypecode, + tagfield => $tagfield, + tagsubfield => $tagsubfield, + %$attributes + } + )->store; + } + $display_order->{$tagfield}++; + } } - print "Content-Type: text/html\n\n"; - exit; + print $input->redirect("/cgi-bin/koha/admin/auth_subfields_structure.pl?tagfield=$tagfield&authtypecode=$authtypecode"); + exit; # END $OP eq ADD_VALIDATE ################## DELETE_CONFIRM ################################## # called by default form, used to confirm deletion of data in DB -} elsif ($op eq 'delete_confirm') { - my $sth=$dbh->prepare("select * from auth_subfield_structure where tagfield=? and tagsubfield=? and authtypecode=?"); - $sth->execute($tagfield,$tagsubfield,$authtypecode); - my $data=$sth->fetchrow_hashref; - $template->param(liblibrarian => $data->{'liblibrarian'}, - tagsubfield => $data->{'tagsubfield'}, - delete_link => $script_name, - tagfield =>$tagfield, - tagsubfield => $tagsubfield, - authtypecode => $authtypecode, - ); - # END $OP eq DELETE_CONFIRM -################## DELETE_CONFIRMED ################################## -# called by delete_confirm, used to effectively confirm deletion of data in DB -} elsif ($op eq 'delete_confirmed') { - unless (C4::Context->config('demo') eq 1) { - my $sth=$dbh->prepare("delete from auth_subfield_structure where tagfield=? and tagsubfield=? and authtypecode=?"); - $sth->execute($tagfield,$tagsubfield,$authtypecode); - } - print "Content-Type: text/html\n\n"; - exit; - $template->param(tagfield => $tagfield); - # END $OP eq DELETE_CONFIRMED -################## DEFAULT ################################## -} else { # DEFAULT - my ($count,$results)=string_search($tagfield,$authtypecode); - my @loop_data = (); - for (my $i=$offset; $i < ($offset+$pagesize<$count?$offset+$pagesize:$count); $i++){ - my %row_data; # get a fresh hash for the row data - $row_data{tagfield} = $results->[$i]{'tagfield'}; - $row_data{tagsubfield} = $results->[$i]{'tagsubfield'}; - $row_data{liblibrarian} = $results->[$i]{'liblibrarian'}; - $row_data{kohafield} = $results->[$i]{'kohafield'}; - $row_data{repeatable} = $results->[$i]{'repeatable'}; - $row_data{mandatory} = $results->[$i]{'mandatory'}; - $row_data{tab} = $results->[$i]{'tab'}; - $row_data{seealso} = $results->[$i]{'seealso'}; - $row_data{authorised_value} = $results->[$i]{'authorised_value'}; - $row_data{authtypecode} = $results->[$i]{'authtypecode'}; - $row_data{value_builder} = $results->[$i]{'value_builder'}; - $row_data{hidden} = $results->[$i]{'hidden'} if($results->[$i]{'hidden'} gt "000") ; - $row_data{isurl} = $results->[$i]{'isurl'}; - $row_data{delete} = "$script_name?op=delete_confirm&tagfield=$tagfield&tagsubfield=".$results->[$i]{'tagsubfield'}."&authtypecode=$authtypecode"; - if ($row_data{tab} eq -1) { - $row_data{subfield_ignored} = 1; - } +} +elsif ( $op eq 'delete_confirm' ) { + my $ass = Koha::Authority::Subfields->find( + { + authtypecode => $authtypecode, + tagfield => $tagfield, + tagsubfield => $tagsubfield + } + ); + $template->param( + ass => $ass, + delete_link => $script_name, + ); +} +elsif ( $op eq 'delete_confirmed' ) { + Koha::Authority::Subfields->find( + { + authtypecode => $authtypecode, + tagfield => $tagfield, + tagsubfield => $tagsubfield + } + )->delete; + print $input->redirect("/cgi-bin/koha/admin/auth_subfields_structure.pl?tagfield=$tagfield&authtypecode=$authtypecode"); + exit; +} +else { # DEFAULT + my $ass = Koha::Authority::Subfields->search( + { + tagfield => { -like => "$tagfield%" }, + authtypecode => $authtypecode, + }, + { order_by => [ 'tagfield', 'display_order' ] } + )->unblessed; + + $template->param( loop => $ass ); + $template->param( + edit_tagfield => $tagfield, + edit_authtypecode => $authtypecode, + ); - push(@loop_data, \%row_data); - } - $template->param(loop => \@loop_data); - $template->param(edit_tagfield => $tagfield, - edit_authtypecode => $authtypecode); - - if ($offset>0) { - my $prevpage = $offset-$pagesize; - $template->param(prev =>""); - } - if ($offset+$pagesize<$count) { - my $nextpage =$offset+$pagesize; - $template->param(next => ""); - } } #---- END $OP eq DEFAULT output_html_with_http_headers $input, $cookie, $template->output;