Attachment #5487 for bug #6679

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





=cut

sub build_authorized_values_list {
    my ( $tag, $subfield, $value, $dbh, $authorised_values_sth,$index_tag,$index_subfield ) = @_;

    my @authorised_values;


=cut

sub CreateKey {
    return int(rand(1000000));
}

sub build_tabs {
    my ( $template, $record, $dbh, $encoding,$input ) = @_;

    # fill arrays

}


sub build_hidden_data {
    # build hidden data =>
    # we store everything, even if we show only requested subfields.


Lines 50-56 use C4::Koha; Link Here

(-)a/authorities/detail.pl (-1 / +1 lines)
50		50
51	our ($tagslib);	51	our ($tagslib);
52		52
53	sub build_tabs ($$$$$) {	53	sub build_tabs {
54	my ( $template, $record, $dbh, $encoding,$input ) = @_;	54	my ( $template, $record, $dbh, $encoding,$input ) = @_;
55		55
56	# fill arrays	56	# fill arrays

Lines 16-22 my @all_koha_dirs = qw( acqui admin authorities basket C4 catalogue cataloguing Link Here

(-)a/t/00-testcritic.t (-2 / +1 lines)
16	labels members misc offline_circ opac patroncards reports reserve reviews rotating_collections	16	labels members misc offline_circ opac patroncards reports reserve reviews rotating_collections
17	serials sms suggestion t tags test tools virtualshelves);	17	serials sms suggestion t tags test tools virtualshelves);
18		18
19	my @dirs = qw( acqui admin basket circ debian errors offline_circ reserve reviews rotating_collections	19	my @dirs = qw( acqui admin authorities basket circ debian errors offline_circ reserve reviews rotating_collections
20	serials sms virtualshelves );	20	serials sms virtualshelves );
21		21
22	if ( not $ENV{TEST_QA} ) {	22	if ( not $ENV{TEST_QA} ) {
23	-

Return to bug 6679

Lines 47-53 builds list, depending on authorised value... Link Here

(-)a/authorities/authorities.pl (-4 / +4 lines)
47		47
48	=cut	48	=cut
49		49
50	sub build_authorized_values_list ($$$$$$$) {	50	sub build_authorized_values_list {
51	my ( $tag, $subfield, $value, $dbh, $authorised_values_sth,$index_tag,$index_subfield ) = @_;	51	my ( $tag, $subfield, $value, $dbh, $authorised_values_sth,$index_tag,$index_subfield ) = @_;
52		52
53	my @authorised_values;	53	my @authorised_values;
Lines 321-331 Create a random value to set it into the input name Link Here
321		321
322	=cut	322	=cut
323		323
324	sub CreateKey(){	324	sub CreateKey {
325	return int(rand(1000000));	325	return int(rand(1000000));
326	}	326	}
327		327
328	sub build_tabs ($$$$$) {	328	sub build_tabs {
329	my ( $template, $record, $dbh, $encoding,$input ) = @_;	329	my ( $template, $record, $dbh, $encoding,$input ) = @_;
330		330
331	# fill arrays	331	# fill arrays
Lines 499-505 sub build_tabs ($$$$$) { Link Here
499	}	499	}
500		500
501		501
502	sub build_hidden_data () {	502	sub build_hidden_data {
503	# build hidden data =>	503	# build hidden data =>
504	# we store everything, even if we show only requested subfields.	504	# we store everything, even if we show only requested subfields.
505		505