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

(-)a/cataloguing/addbiblio.pl (-4 / +4 lines)
Lines 159-165 sub MARCfindbreeding { Link Here
159
159
160
=cut
160
=cut
161
161
162
sub build_authorized_values_list ($$$$$$$) {
162
sub build_authorized_values_list {
163
    my ( $tag, $subfield, $value, $dbh, $authorised_values_sth,$index_tag,$index_subfield ) = @_;
163
    my ( $tag, $subfield, $value, $dbh, $authorised_values_sth,$index_tag,$index_subfield ) = @_;
164
164
165
    my @authorised_values;
165
    my @authorised_values;
Lines 252-258 sub build_authorized_values_list ($$$$$$$) { Link Here
252
252
253
=cut
253
=cut
254
254
255
sub CreateKey(){
255
sub CreateKey {
256
    return int(rand(1000000));
256
    return int(rand(1000000));
257
}
257
}
258
258
Lines 263-269 sub CreateKey(){ Link Here
263
263
264
=cut
264
=cut
265
265
266
sub GetMandatoryFieldZ3950($){
266
sub GetMandatoryFieldZ3950 {
267
    my $frameworkcode = shift;
267
    my $frameworkcode = shift;
268
    my @isbn   = GetMarcFromKohaField('biblioitems.isbn',$frameworkcode);
268
    my @isbn   = GetMarcFromKohaField('biblioitems.isbn',$frameworkcode);
269
    my @title  = GetMarcFromKohaField('biblio.title',$frameworkcode);
269
    my @title  = GetMarcFromKohaField('biblio.title',$frameworkcode);
Lines 536-542 sub format_indicator { Link Here
536
    return $ind_value;
536
    return $ind_value;
537
}
537
}
538
538
539
sub build_tabs ($$$$$) {
539
sub build_tabs {
540
    my ( $template, $record, $dbh, $encoding,$input ) = @_;
540
    my ( $template, $record, $dbh, $encoding,$input ) = @_;
541
541
542
    # fill arrays
542
    # fill arrays
(-)a/cataloguing/additem.pl (-1 / +2 lines)
Lines 381-387 if ($op eq "additem") { Link Here
381
        my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode);
381
        my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode);
382
382
383
	# If there is a barcode and we can't find him new values, we can't add multiple copies
383
	# If there is a barcode and we can't find him new values, we can't add multiple copies
384
        my $testbarcode = $barcodeobj->next_value($oldbarcode) if $barcodeobj;
384
	my $testbarcode;
385
        $testbarcode = $barcodeobj->next_value($oldbarcode) if $barcodeobj;
385
	if ($oldbarcode && !$testbarcode) {
386
	if ($oldbarcode && !$testbarcode) {
386
387
387
	    push @errors, "no_next_barcode";
388
	    push @errors, "no_next_barcode";
(-)a/cataloguing/merge.pl (-1 / +1 lines)
Lines 250-256 Create a random value to set it into the input name Link Here
250
250
251
=cut
251
=cut
252
252
253
sub createKey(){
253
sub createKey {
254
    return int(rand(1000000));
254
    return int(rand(1000000));
255
}
255
}
256
256
(-)a/cataloguing/ysearch.pl (-1 / +1 lines)
Lines 39-45 my $field = $input->param('field'); Link Here
39
# Prevent from disclosing data
39
# Prevent from disclosing data
40
die() unless ($table eq "biblioitems"); 
40
die() unless ($table eq "biblioitems"); 
41
41
42
binmode STDOUT, ":utf8";
42
binmode STDOUT, ":encoding(UTF-8)";
43
print $input->header( -type => 'text/plain', -charset => 'UTF-8' );
43
print $input->header( -type => 'text/plain', -charset => 'UTF-8' );
44
44
45
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { cataloguing => '*' } );
45
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { cataloguing => '*' } );
(-)a/t/00-testcritic.t (-2 / +1 lines)
Lines 16-22 my @all_koha_dirs = qw( acqui admin authorities basket C4 catalogue cataloguing Link Here
16
labels members misc offline_circ opac patroncards reports reserve reviews rotating_collections
16
labels members misc offline_circ opac patroncards reports reserve reviews rotating_collections
17
serials sms suggestion t tags test tools virtualshelves);
17
serials sms suggestion t tags test tools virtualshelves);
18
18
19
my @dirs = qw( acqui admin authorities basket catalogue circ debian errors offline_circ reserve 
19
my @dirs = qw( acqui admin authorities basket catalogue cataloguing circ debian errors offline_circ reserve 
20
    reviews rotating_collections serials sms virtualshelves );
20
    reviews rotating_collections serials sms virtualshelves );
21
21
22
if ( not $ENV{TEST_QA} ) {
22
if ( not $ENV{TEST_QA} ) {
23
- 

Return to bug 6679