Attachment #57487 for bug #17629

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




    # To modify something
    push @EXPORT, qw(
      &ModBiblio
      &ModBiblioframework
      &ModZebra
      &UpdateTotalIssues
      &RemoveAllNsb

    }
}

=head2 ModBiblioframework

   ModBiblioframework($biblionumber,$frameworkcode);

Exported function to modify a biblio framework

=cut

sub ModBiblioframework {
    my ( $biblionumber, $frameworkcode ) = @_;
    my $dbh = C4::Context->dbh;
    my $sth = $dbh->prepare( "UPDATE biblio SET frameworkcode=? WHERE biblionumber=?" );
    $sth->execute( $frameworkcode, $biblionumber );
    return 1;
}

=head2 DelBiblio

  my $error = &DelBiblio($biblionumber);

Lines 837-843 if ( $op eq "addbiblio" ) { Link Here

(-)a/cataloguing/addbiblio.pl (-1 lines)
837	BiblioAutoLink( $record, $frameworkcode );	837	BiblioAutoLink( $record, $frameworkcode );
838	}	838	}
839	if ( $is_a_modif ) {	839	if ( $is_a_modif ) {
840	ModBiblioframework( $biblionumber, $frameworkcode );
841	ModBiblio( $record, $biblionumber, $frameworkcode );	840	ModBiblio( $record, $biblionumber, $frameworkcode );
842	}	841	}
843	else {	842	else {




# This script is called by the pre-commit git hook to test modules compile

use strict;
use warnings;
use Test::More;
use Test::Strict;
use File::Spec;
use File::Find;
use lib("misc/translator");
use lib("installer");

my @dirs = ( 'acqui', 'admin', 'authorities', 'basket',
    'catalogue', 'cataloguing', 'changelanguage.pl', 'circ', 'debian', 'docs',
    'edithelp.pl', 'errors', 'fix-perl-path.PL', 'help.pl', 'installer',
    'koha_perl_deps.pl', 'kohaversion.pl', 'labels',
    'mainpage.pl', 'Makefile.PL', 'members', 'misc', 'offline_circ', 'opac',
    'patroncards', 'reports', 'reserve', 'resetversion.pl', 'reviews',
    'rewrite-config.PL', 'rotating_collections', 'serials', 'services', 'skel',
    'sms', 'suggestion', 'svc', 'tags', 'tools', 'virtualshelves' );

$Test::Strict::TEST_STRICT = 0;
$Test::Strict::TEST_SKIP = [ 'misc/kohalib.pl', 'sms/sms_listen_windows_start.pl', 'misc/plack/koha.psgi' ];

all_perl_files_ok(@dirs);
- 

Return to bug 17629

Lines 110-116 BEGIN { Link Here

(-)a/C4/Biblio.pm (-17 lines)
110	# To modify something	110	# To modify something
111	push @EXPORT, qw(	111	push @EXPORT, qw(
112	&ModBiblio	112	&ModBiblio
113	&ModBiblioframework
114	&ModZebra	113	&ModZebra
115	&UpdateTotalIssues	114	&UpdateTotalIssues
116	&RemoveAllNsb	115	&RemoveAllNsb
Lines 386-407 sub _strip_item_fields { Link Here
386	}	385	}
387	}	386	}
388		387
389	=head2 ModBiblioframework
390
391	ModBiblioframework($biblionumber,$frameworkcode);
392
393	Exported function to modify a biblio framework
394
395	=cut
396
397	sub ModBiblioframework {
398	my ( $biblionumber, $frameworkcode ) = @_;
399	my $dbh = C4::Context->dbh;
400	my $sth = $dbh->prepare( "UPDATE biblio SET frameworkcode=? WHERE biblionumber=?" );
401	$sth->execute( $frameworkcode, $biblionumber );
402	return 1;
403	}
404
405	=head2 DelBiblio	388	=head2 DelBiblio
406		389
407	my $error = &DelBiblio($biblionumber);	390	my $error = &DelBiblio($biblionumber);

Lines 1-24 Link Here

(-)a/t/db_dependent/00-strict.t (-25 lines)
1	# This script is called by the pre-commit git hook to test modules compile
2
3	use strict;
4	use warnings;
5	use Test::More;
6	use Test::Strict;
7	use File::Spec;
8	use File::Find;
9	use lib("misc/translator");
10	use lib("installer");
11
12	my @dirs = ( 'acqui', 'admin', 'authorities', 'basket',
13	'catalogue', 'cataloguing', 'changelanguage.pl', 'circ', 'debian', 'docs',
14	'edithelp.pl', 'errors', 'fix-perl-path.PL', 'help.pl', 'installer',
15	'koha_perl_deps.pl', 'kohaversion.pl', 'labels',
16	'mainpage.pl', 'Makefile.PL', 'members', 'misc', 'offline_circ', 'opac',
17	'patroncards', 'reports', 'reserve', 'resetversion.pl', 'reviews',
18	'rewrite-config.PL', 'rotating_collections', 'serials', 'services', 'skel',
19	'sms', 'suggestion', 'svc', 'tags', 'tools', 'virtualshelves' );
20
21	$Test::Strict::TEST_STRICT = 0;
22	$Test::Strict::TEST_SKIP = [ 'misc/kohalib.pl', 'sms/sms_listen_windows_start.pl', 'misc/plack/koha.psgi' ];
23
24	all_perl_files_ok(@dirs);
25	-