Attachment 30475 Details for Bug 12694 – Bug 12694: Remove CGI::scrolling_list from unimarc_field_4XX.pl

[patch] Bug 12694: Remove CGI::scrolling_list from unimarc_field_4XX.pl

Bug-12694-Remove-CGIscrollinglist-from-unimarcfiel.patch (text/plain), 3.19 KB, created by Bernardo Gonzalez Kriegel on 2014-08-02 01:27:41 UTC

(hide)

Description:

Filename:

MIME Type:

Creator: Bernardo Gonzalez Kriegel

Created: 2014-08-02 01:27:41 UTC

Size: 3.19 KB

patch

obsolete

>From 6ff37a9f9de0220732210e8a30c8cdac217efb06 Mon Sep 17 00:00:00 2001
>From: Bernardo Gonzalez Kriegel <bgkriegel@gmail.com>
>Date: Fri, 1 Aug 2014 22:17:16 -0300
>Subject: [PATCH] Bug 12694: Remove CGI::scrolling_list from
> unimarc_field_4XX.pl
>
>There are two instances on this file, but they are not used.
>I suppose is old code that was left dangling.
>
>Both scrolling_list, CGIPublisher and CGIitemtype, are not
>used on unimarc_field_4XX.tt nor any other file.
>
>Just removed from file two useless db queries.
>
>To test:
>1. Apply the patch
>2. If you have unimarc config, just go to one of the
>fields that use this plugin.
>If you don't, can edit you framework and change the plugin
>for a tag, e.g. 007. Then save fw, search and edit a record,
>clic to open plugin on 007 tag, check that works but don't
>save the original record, finally revert your changes.
>
>There must be no functional changes, is unused code.
>---
> cataloguing/value_builder/unimarc_field_4XX.pl |   51 ------------------------
> 1 file changed, 51 deletions(-)
>
>diff --git a/cataloguing/value_builder/unimarc_field_4XX.pl b/cataloguing/value_builder/unimarc_field_4XX.pl
>index d08102a..a473792 100755
>--- a/cataloguing/value_builder/unimarc_field_4XX.pl
>+++ b/cataloguing/value_builder/unimarc_field_4XX.pl
>@@ -495,60 +495,9 @@ sub plugin {
>             }
>         );
> 
>-        my $sth =
>-          $dbh->prepare(
>-            "Select itemtype,description from itemtypes order by description");
>-        $sth->execute;
>-        my @itemtype;
>-        my %itemtypes;
>-        push @itemtype, "";
>-        $itemtypes{''} = "";
>-        while ( my ( $value, $lib ) = $sth->fetchrow_array ) {
>-            push @itemtype, $value;
>-            $itemtypes{$value} = $lib;
>-        }
>-
>-        my $CGIitemtype = CGI::scrolling_list(
>-            -name     => 'value',
>-            -values   => \@itemtype,
>-            -labels   => \%itemtypes,
>-            -size     => 1,
>-            -multiple => 0
>-        );
>-        $sth->finish;
>-
>-        # To show list of branches please use GetBranchesLoop() and modify template
>-
>-        my $req =
>-          $dbh->prepare(
>-"select distinctrow left(publishercode,45) from biblioitems order by publishercode"
>-          );
>-        $req->execute;
>-        my @select;
>-        push @select, "";
>-        while ( my ($value) = $req->fetchrow ) {
>-            push @select, $value;
>-        }
>-        my $CGIpublisher = CGI::scrolling_list(
>-            -name     => 'value',
>-            -id       => 'publisher',
>-            -values   => \@select,
>-            -size     => 1,
>-            -multiple => 0
>-        );
>-
>-#         my $sth=$dbh->prepare("select description,itemtype from itemtypes order by description");
>-#         $sth->execute;
>-#         while (my ($description,$itemtype) = $sth->fetchrow) {
>-#             $classlist.="<option value=\"$itemtype\">$description</option>\n";
>-#         }
>-#         $sth->finish;
>-
>         my @itemtypes = C4::ItemType->all;
> 
>         $template->param(    #classlist => $classlist,
>-            CGIitemtype  => $CGIitemtype,
>-            CGIPublisher => $CGIpublisher,
>             itypeloop    => \@itemtypes,
>             index        => $query->param('index'),
>             Search       => 1,
>-- 
>1.7.9.5

Actions: View | Diff | Splinter Review

Attachments on bug 12694: 30475 | 30611 | 30895