Lines 32-37
use C4::MarcModificationTemplates qw( GetModificationTemplateActions GetModifica
Link Here
|
32 |
|
32 |
|
33 |
use Koha::Biblios; |
33 |
use Koha::Biblios; |
34 |
use Koha::MetadataRecord::Authority; |
34 |
use Koha::MetadataRecord::Authority; |
|
|
35 |
use Koha::Virtualshelves; |
35 |
|
36 |
|
36 |
my $input = new CGI; |
37 |
my $input = new CGI; |
37 |
our $dbh = C4::Context->dbh; |
38 |
our $dbh = C4::Context->dbh; |
Lines 68-73
if ( $completedJobID ) {
Link Here
|
68 |
exit; |
69 |
exit; |
69 |
} |
70 |
} |
70 |
|
71 |
|
|
|
72 |
my @lists = Koha::Virtualshelves->search({}); |
73 |
$template->param( lists => \@lists ); |
74 |
|
71 |
my @templates = GetModificationTemplates( $mmtid ); |
75 |
my @templates = GetModificationTemplates( $mmtid ); |
72 |
unless ( @templates ) { |
76 |
unless ( @templates ) { |
73 |
$op = 'error'; |
77 |
$op = 'error'; |
Lines 111-116
if ( $op eq 'form' ) {
Link Here
|
111 |
$content =~ s/[\r\n]*$//; |
115 |
$content =~ s/[\r\n]*$//; |
112 |
push @record_ids, $content if $content; |
116 |
push @record_ids, $content if $content; |
113 |
} |
117 |
} |
|
|
118 |
} elsif ( my $shelf_number = $input->param('shelf_number') ) { |
119 |
my $shelf = Koha::Virtualshelves->find($shelf_number); |
120 |
my $contents = $shelf->get_contents; |
121 |
while ( my $content = $contents->next ) { |
122 |
my $biblionumber = $content->biblionumber; |
123 |
push @record_ids, $biblionumber; |
124 |
} |
114 |
} else { |
125 |
} else { |
115 |
# The user enters manually the list of id |
126 |
# The user enters manually the list of id |
116 |
push @record_ids, split( /\s\n/, $input->param('recordnumber_list') ); |
127 |
push @record_ids, split( /\s\n/, $input->param('recordnumber_list') ); |
117 |
- |
|
|