View | Details | Raw Unified | Return to bug 12695
Collapse All | Expand All

(-)a/cataloguing/value_builder/marc21_linking_section.pl (-55 / +5 lines)
Lines 335-396 sub plugin { Link Here
335
                  }
335
                  }
336
              );
336
              );
337
337
338
            my $sth = $dbh->prepare(
338
            my @itemtypes = C4::ItemType->all;
339
                       "Select itemtype,description from itemtypes order by description");
340
            $sth->execute;
341
         my @itemtype;
342
          my %itemtypes;
343
         push @itemtype, "";
344
            $itemtypes{''} = "";
345
           while ( my ( $value, $lib ) = $sth->fetchrow_array ) {
346
                 push @itemtype, $value;
347
                        $itemtypes{$value} = $lib;
348
             }
349
339
350
             my $CGIitemtype = CGI::scrolling_list(
340
            $template->param(
351
                 -name     => 'value',
341
                        itypeloop    => \@itemtypes,
352
                  -values   => \@itemtype,
342
                        index        => $query->param('index'),
353
                       -labels   => \%itemtypes,
354
                      -size     => 1,
355
                        -multiple => 0
356
         );
357
             $sth->finish;
358
359
         # To show list of branches please use GetBranchesLoop() and modify template
360
361
         my $req = $dbh->prepare(
362
"select distinctrow left(publishercode,45) from biblioitems order by publishercode"
363
           );
364
             $req->execute;
365
         my @select;
366
            push @select, "";
367
              while ( my ($value) = $req->fetchrow ) {
368
                       push @select, $value;
369
          }
370
              my $CGIpublisher = CGI::scrolling_list(
371
                        -name     => 'value',
372
                  -id       => 'publisher',
373
                      -values   => \@select,
374
                 -size     => 1,
375
                        -multiple => 0
376
         );
377
378
#         my $sth=$dbh->prepare("select description,itemtype from itemtypes order by description");
379
#         $sth->execute;
380
#         while (my ($description,$itemtype) = $sth->fetchrow) {
381
#             $classlist.="<option value=\"$itemtype\">$description</option>\n";
382
#         }
383
#         $sth->finish;
384
385
                my @itemtypes = C4::ItemType->all;
386
387
            $template->param(    #classlist => $classlist,
388
                 CGIitemtype  => $CGIitemtype,
389
                    CGIPublisher => $CGIpublisher,
390
                 itypeloop    => \@itemtypes,
391
                   index        => $query->param('index'),
392
                        Search       => 1,
343
                        Search       => 1,
393
             );
344
            );
394
     }
345
     }
395
      output_html_with_http_headers $query, $cookie, $template->output;
346
      output_html_with_http_headers $query, $cookie, $template->output;
396
}
347
}
397
- 

Return to bug 12695