X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=blobdiff_plain;f=admin%2Fmarc_subfields_structure.pl;h=2c697333180483a20a50b9d8947487e9fa2c165e;hb=b946d16ec51467ffd4fd0f710b45e822b980033d;hp=7884d0bc2b7700d1de0dd903a2f6fe984e8196db;hpb=286c3c3a9e34f08da1fac8a48ce1925058a214ea;p=koha_fer
diff --git a/admin/marc_subfields_structure.pl b/admin/marc_subfields_structure.pl
index 7884d0bc2b..2c69733318 100755
--- a/admin/marc_subfields_structure.pl
+++ b/admin/marc_subfields_structure.pl
@@ -13,11 +13,12 @@
# 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; FIXME - Bug 2505
use C4::Output;
use C4::Auth;
use CGI;
@@ -75,7 +76,7 @@ my ( $template, $borrowernumber, $cookie ) = get_template_and_user(
debug => 1,
}
);
-my $pagesize = 30;
+
my $op = $input->param('op');
$tagfield =~ s/\,//g;
@@ -174,16 +175,9 @@ if ( $op eq 'add_form' ) {
); # and tagsubfield='$tagsubfield'");
$sth->execute( $tagfield, $frameworkcode );
my @loop_data = ();
- my $toggle = 1;
my $i = 0;
while ( $data = $sth->fetchrow_hashref ) {
my %row_data; # get a fresh hash for the row data
- if ( $toggle eq 1 ) {
- $toggle = 0;
- }
- else {
- $toggle = 1;
- }
$row_data{defaultvalue} = $data->{defaultvalue};
$row_data{tab} = CGI::scrolling_list(
-name => 'tab',
@@ -273,7 +267,6 @@ if ( $op eq 'add_form' ) {
-label => ''
);
$row_data{row} = $i;
- $row_data{toggle} = $toggle;
$row_data{link} = CGI::escapeHTML( $data->{'link'} );
push( @loop_data, \%row_data );
$i++;
@@ -368,13 +361,11 @@ if ( $op eq 'add_form' ) {
-multiple => 0,
);
$row_data{link} = CGI::escapeHTML( $data->{'link'} );
- $row_data{toggle} = $toggle;
$row_data{row} = $j;
push( @loop_data, \%row_data );
- use Data::Dumper;
}
- $template->param( 'use-heading-flags-p' => 1 );
- $template->param( 'heading-edit-subfields-p' => 1 );
+ $template->param( 'use_heading_flags_p' => 1 );
+ $template->param( 'heading_edit_subfields_p' => 1 );
$template->param(
action => "Edit subfields",
tagfield => $tagfield,
@@ -435,7 +426,7 @@ elsif ( $op eq 'add_validate' ) {
my $link = $link[$i];
my $defaultvalue = $defaultvalue[$i];
- if ($liblibrarian) {
+ if (defined($liblibrarian) && $liblibrarian ne "") {
unless ( C4::Context->config('demo') eq 1 ) {
if (marc_subfield_structure_exists($tagfield, $tagsubfield, $frameworkcode)) {
$sth_update->execute(
@@ -539,20 +530,8 @@ elsif ( $op eq 'delete_confirmed' ) {
}
else { # DEFAULT
my ( $count, $results ) = string_search( $tagfield, $frameworkcode );
- my $toggle = 1;
my @loop_data = ();
- for (
- my $i = $offset ;
- $i < ( $offset + $pagesize < $count ? $offset + $pagesize : $count ) ;
- $i++
- )
- {
- if ( $toggle eq 1 ) {
- $toggle = 0;
- }
- else {
- $toggle = 1;
- }
+ for ( my $i = 0; $i < $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'};
@@ -568,11 +547,6 @@ else { # DEFAULT
$row_data{hidden} = $results->[$i]{'hidden'};
$row_data{isurl} = $results->[$i]{'isurl'};
$row_data{link} = $results->[$i]{'link'};
- $row_data{delete} =
-"$script_name?op=delete_confirm&tagfield=$tagfield&tagsubfield="
- . $results->[$i]{'tagsubfield'}
- . "&frameworkcode=$frameworkcode";
- $row_data{toggle} = $toggle;
if ( $row_data{tab} eq -1 ) {
$row_data{subfield_ignored} = 1;
@@ -586,16 +560,6 @@ else { # DEFAULT
edit_frameworkcode => $frameworkcode
);
- 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;