=cut
-sub build_authorized_values_list ($$$$$$$) {
+sub build_authorized_values_list {
my ( $tag, $subfield, $value, $dbh, $authorised_values_sth,$index_tag,$index_subfield ) = @_;
my @authorised_values;
=cut
-sub CreateKey(){
+sub CreateKey {
return int(rand(1000000));
}
=cut
-sub GetMandatoryFieldZ3950($){
+sub GetMandatoryFieldZ3950 {
my $frameworkcode = shift;
my @isbn = GetMarcFromKohaField('biblioitems.isbn',$frameworkcode);
my @title = GetMarcFromKohaField('biblio.title',$frameworkcode);
return $ind_value;
}
-sub build_tabs ($$$$$) {
+sub build_tabs {
my ( $template, $record, $dbh, $encoding,$input ) = @_;
# fill arrays
my ($tagfield,$tagsubfield) = &GetMarcFromKohaField("items.barcode",$frameworkcode);
# If there is a barcode and we can't find him new values, we can't add multiple copies
- my $testbarcode = $barcodeobj->next_value($oldbarcode) if $barcodeobj;
+ my $testbarcode;
+ $testbarcode = $barcodeobj->next_value($oldbarcode) if $barcodeobj;
if ($oldbarcode && !$testbarcode) {
push @errors, "no_next_barcode";
=cut
-sub createKey(){
+sub createKey {
return int(rand(1000000));
}
# Prevent from disclosing data
die() unless ($table eq "biblioitems");
-binmode STDOUT, ":utf8";
+binmode STDOUT, ":encoding(UTF-8)";
print $input->header( -type => 'text/plain', -charset => 'UTF-8' );
my ( $auth_status, $sessionID ) = check_cookie_auth( $input->cookie('CGISESSID'), { cataloguing => '*' } );
labels members misc offline_circ opac patroncards reports reserve reviews rotating_collections
serials sms suggestion t tags test tools virtualshelves);
-my @dirs = qw( acqui admin authorities basket catalogue circ debian errors offline_circ reserve
+my @dirs = qw( acqui admin authorities basket catalogue cataloguing circ debian errors offline_circ reserve
reviews rotating_collections serials sms virtualshelves );
if ( not $ENV{TEST_QA} ) {