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

(-)a/C4/Biblio.pm (-17 lines)
Lines 110-116 BEGIN { Link Here
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);
(-)a/cataloguing/addbiblio.pl (-1 lines)
Lines 837-843 if ( $op eq "addbiblio" ) { Link Here
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 {
(-)a/t/db_dependent/00-strict.t (-25 lines)
Lines 1-24 Link Here
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
- 

Return to bug 17629