Lines 35-41
use List::MoreUtils qw/any/;
Link Here
|
35 |
use C4::Search; |
35 |
use C4::Search; |
36 |
use Storable qw(thaw freeze); |
36 |
use Storable qw(thaw freeze); |
37 |
use URI::Escape; |
37 |
use URI::Escape; |
38 |
|
38 |
use C4::Members; |
39 |
|
39 |
|
40 |
use MARC::File::XML; |
40 |
use MARC::File::XML; |
41 |
use URI::Escape; |
41 |
use URI::Escape; |
Lines 103-111
sub _increment_barcode {
Link Here
|
103 |
|
103 |
|
104 |
|
104 |
|
105 |
sub generate_subfield_form { |
105 |
sub generate_subfield_form { |
106 |
my ($tag, $subfieldtag, $value, $tagslib,$subfieldlib, $branches, $today_iso, $biblionumber, $temp, $loop_data, $i) = @_; |
106 |
my ($tag, $subfieldtag, $value, $tagslib,$subfieldlib, $branches, $today_iso, $biblionumber, $temp, $loop_data, $i, $limitededition) = @_; |
107 |
|
107 |
|
108 |
my $frameworkcode = &GetFrameworkCode($biblionumber); |
108 |
my $frameworkcode = &GetFrameworkCode($biblionumber); |
|
|
109 |
|
109 |
my %subfield_data; |
110 |
my %subfield_data; |
110 |
my $dbh = C4::Context->dbh; |
111 |
my $dbh = C4::Context->dbh; |
111 |
|
112 |
|
Lines 154-159
sub generate_subfield_form {
Link Here
|
154 |
$value = $input->param('barcode'); |
155 |
$value = $input->param('barcode'); |
155 |
} |
156 |
} |
156 |
my $attributes_no_value = qq(tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" size="67" maxlength="$subfield_data{maxlength}" ); |
157 |
my $attributes_no_value = qq(tabindex="1" id="$subfield_data{id}" name="field_value" class="input_marceditor" size="67" maxlength="$subfield_data{maxlength}" ); |
|
|
158 |
|
159 |
# Getting list of subfields to keep when limited edition is enabled |
160 |
my $subfieldsToAllowForLimitedEdition = C4::Context->preference('SubfieldsToAllowForLimitedEdition'); |
161 |
my @subfieldsToAllow = split(/ /, $subfieldsToAllowForLimitedEdition); |
162 |
|
163 |
# If we're on limited edition, and our field is not in the list of subfields to allow, |
164 |
# then it is read-only |
165 |
$attributes_no_value .= 'readonly="readonly" ' |
166 |
if ( |
167 |
$limitededition |
168 |
and !grep { $tag . '$' . $subfieldtag eq $_ } @subfieldsToAllow |
169 |
); |
170 |
|
157 |
my $attributes = qq($attributes_no_value value="$value" ); |
171 |
my $attributes = qq($attributes_no_value value="$value" ); |
158 |
|
172 |
|
159 |
if ( $subfieldlib->{authorised_value} ) { |
173 |
if ( $subfieldlib->{authorised_value} ) { |
Lines 214-220
sub generate_subfield_form {
Link Here
|
214 |
$subfield_data{marc_value} = qq(<input type="hidden" $attributes /> $authorised_lib{$value}); |
228 |
$subfield_data{marc_value} = qq(<input type="hidden" $attributes /> $authorised_lib{$value}); |
215 |
} |
229 |
} |
216 |
else { |
230 |
else { |
217 |
$subfield_data{marc_value} =CGI::scrolling_list( # FIXME: factor out scrolling_list |
231 |
my @scrparam = ( |
218 |
-name => "field_value", |
232 |
-name => "field_value", |
219 |
-values => \@authorised_values, |
233 |
-values => \@authorised_values, |
220 |
-default => $value, |
234 |
-default => $value, |
Lines 226-231
sub generate_subfield_form {
Link Here
|
226 |
-id => "tag_".$tag."_subfield_".$subfieldtag."_".$index_subfield, |
240 |
-id => "tag_".$tag."_subfield_".$subfieldtag."_".$index_subfield, |
227 |
-class => "input_marceditor", |
241 |
-class => "input_marceditor", |
228 |
); |
242 |
); |
|
|
243 |
|
244 |
# If we're on limited edition, and our field is not in the list of subfields to allow, |
245 |
# then it is read-only |
246 |
push @scrparam, (-readonly => "readonly"), (-disabled => "disabled") |
247 |
if ( |
248 |
$limitededition |
249 |
and !grep { $tag . '$' . $subfieldtag eq $_ } @subfieldsToAllow |
250 |
); |
251 |
$subfield_data{marc_value} =CGI::scrolling_list(@scrparam); |
229 |
} |
252 |
} |
230 |
|
253 |
|
231 |
} |
254 |
} |
Lines 343-348
my ($template, $loggedinuser, $cookie)
Link Here
|
343 |
}); |
366 |
}); |
344 |
|
367 |
|
345 |
|
368 |
|
|
|
369 |
# Does the user have a limited item edition permission? |
370 |
my $uid = GetMember( borrowernumber => $loggedinuser )->{userid} if ($loggedinuser) ; |
371 |
my $limitededition = haspermission($uid, {'editcatalogue' => 'limited_item_edition'}) if ($uid); |
372 |
# In case user is a superlibrarian, edition is not limited |
373 |
$limitededition = 0 if ($limitededition != 0 && $limitededition->{'superlibrarian'} eq 1); |
374 |
|
346 |
my $today_iso = C4::Dates->today('iso'); |
375 |
my $today_iso = C4::Dates->today('iso'); |
347 |
my $tagslib = &GetMarcStructure(1,$frameworkcode); |
376 |
my $tagslib = &GetMarcStructure(1,$frameworkcode); |
348 |
my $record = GetMarcBiblio($biblionumber); |
377 |
my $record = GetMarcBiblio($biblionumber); |
Lines 770-777
if($itemrecord){
Link Here
|
770 |
next if subfield_is_koha_internal_p($subfieldtag); |
799 |
next if subfield_is_koha_internal_p($subfieldtag); |
771 |
next if ($tagslib->{$tag}->{$subfieldtag}->{'tab'} ne "10"); |
800 |
next if ($tagslib->{$tag}->{$subfieldtag}->{'tab'} ne "10"); |
772 |
|
801 |
|
773 |
my $subfield_data = generate_subfield_form($tag, $subfieldtag, $value, $tagslib, $subfieldlib, $branches, $today_iso, $biblionumber, $temp, \@loop_data, $i); |
802 |
my $subfield_data = generate_subfield_form($tag, $subfieldtag, $value, $tagslib, $subfieldlib, $branches, $today_iso, $biblionumber, $temp, \@loop_data, $i, $limitededition); |
774 |
|
|
|
775 |
push @fields, "$tag$subfieldtag"; |
803 |
push @fields, "$tag$subfieldtag"; |
776 |
push (@loop_data, $subfield_data); |
804 |
push (@loop_data, $subfield_data); |
777 |
$i++; |
805 |
$i++; |
Lines 795-801
foreach my $tag ( keys %{$tagslib}){
Link Here
|
795 |
my @values = (undef); |
823 |
my @values = (undef); |
796 |
@values = $itemrecord->field($tag)->subfield($subtag) if ($itemrecord && defined($itemrecord->field($tag)->subfield($subtag))); |
824 |
@values = $itemrecord->field($tag)->subfield($subtag) if ($itemrecord && defined($itemrecord->field($tag)->subfield($subtag))); |
797 |
for my $value (@values){ |
825 |
for my $value (@values){ |
798 |
my $subfield_data = generate_subfield_form($tag, $subtag, $value, $tagslib, $tagslib->{$tag}->{$subtag}, $branches, $today_iso, $biblionumber, $temp, \@loop_data, $i); |
826 |
my $subfield_data = generate_subfield_form($tag, $subtag, $value, $tagslib, $tagslib->{$tag}->{$subtag}, $branches, $today_iso, $biblionumber, $temp, \@loop_data, $i, $limitededition); |
799 |
push (@loop_data, $subfield_data); |
827 |
push (@loop_data, $subfield_data); |
800 |
$i++; |
828 |
$i++; |
801 |
} |
829 |
} |