Attachment #156697 for bug #33845

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




use Modern::Perl;

return {
    bug_number  => "33845",
    description => "Update holds_table column settings entries to holds-table",
    up          => sub {
        my ($args) = @_;
        my ( $dbh, $out ) = @$args{qw(dbh out)};

        $dbh->do(
            q{
            UPDATE columns_settings SET tablename="holds-table"
            WHERE page="circulation" and tablename="holds_table"
        }
        );

        say $out "Update columns settings to use table name holds-table";
    },
};




    my $biblio = $h->biblio();
    my @subtitles = split(/ \| /, $biblio->subtitle() // '');
    my $hold = {
        DT_RowId              => $h->reserve_id(),
        biblionumber          => $biblionumber,
        title                 => $biblio->title(),
        subtitle              => \@subtitles,
        medium                => $biblio->medium() // '',
        part_number           => $biblio->part_number() // '',
        part_name             => $biblio->part_name() // '',
        author                => $biblio->author(),
        reserve_id            => $h->reserve_id(),
        branchcode            => $h->branch()->branchname(),
        branches              => $libraries,
        desk_name             => $desk_name,
        reservedate           => $h->reservedate(),
        expirationdate        => $h->expirationdate(),
        suspend               => $h->suspend(),
        suspend_until         => $h->suspend_until(),
        found                 => $h->found(),
        waiting               => $h->is_waiting(),
        waiting_at            => $h->branch()->branchname(),
        waiting_here          => $h->branch()->branchcode() eq $branch,
        priority              => $h->priority(),
        reservenotes          => $h->reservenotes(),
        itemtype_limit        => $itemtype_limit,
        reservedate_formatted => $h->reservedate()
        ? output_pref( { dt => dt_from_string( $h->reservedate() ), dateonly => 1 } )
          )
        : q{},
        suspend_until_formatted => $h->suspend_until()
        ? output_pref( { dt => dt_from_string( $h->suspend_until() ), dateonly => 1 } )
          )
        : q{},
        expirationdate_formatted => $h->expirationdate()
        ? output_pref( { dt => dt_from_string( $h->expirationdate() ), dateonly => 1 } )
          )
        : q{},
    };

- 

Return to bug 33845

Lines 92-131 while ( my $h = $holds_rs->next() ) { Link Here

(-)a/svc/holds (-33 / +29 lines)
92	my $biblio = $h->biblio();	92	my $biblio = $h->biblio();
93	my @subtitles = split(/ \\| /, $biblio->subtitle() // '');	93	my @subtitles = split(/ \\| /, $biblio->subtitle() // '');
94	my $hold = {	94	my $hold = {
95	DT_RowId => $h->reserve_id(),	95	DT_RowId => $h->reserve_id(),
96	biblionumber => $biblionumber,	96	biblionumber => $biblionumber,
97	title => $biblio->title(),	97	title => $biblio->title(),
98	subtitle => \@subtitles,	98	subtitle => \@subtitles,
99	medium => $biblio->medium() // '',	99	medium => $biblio->medium() // '',
100	part_number => $biblio->part_number() // '',	100	part_number => $biblio->part_number() // '',
101	part_name => $biblio->part_name() // '',	101	part_name => $biblio->part_name() // '',
102	author => $biblio->author(),	102	author => $biblio->author(),
103	reserve_id => $h->reserve_id(),	103	reserve_id => $h->reserve_id(),
104	branchcode => $h->branch()->branchname(),	104	branchcode => $h->branch()->branchname(),
105	branches => $libraries,	105	branches => $libraries,
106	desk_name => $desk_name,	106	desk_name => $desk_name,
107	reservedate => $h->reservedate(),	107	reservedate => $h->reservedate(),
108	expirationdate => $h->expirationdate(),	108	expirationdate => $h->expirationdate(),
109	suspend => $h->suspend(),	109	suspend => $h->suspend(),
110	suspend_until => $h->suspend_until(),	110	suspend_until => $h->suspend_until(),
111	found => $h->found(),	111	found => $h->found(),
112	waiting => $h->is_waiting(),	112	waiting => $h->is_waiting(),
113	waiting_at => $h->branch()->branchname(),	113	waiting_at => $h->branch()->branchname(),
114	waiting_here => $h->branch()->branchcode() eq $branch,	114	waiting_here => $h->branch()->branchcode() eq $branch,
115	priority => $h->priority(),	115	priority => $h->priority(),
116	reservenotes => $h->reservenotes(),	116	reservenotes => $h->reservenotes(),
117	itemtype_limit => $itemtype_limit,	117	itemtype_limit => $itemtype_limit,
118	reservedate_formatted => $h->reservedate() ? output_pref(	118	reservedate_formatted => $h->reservedate()
119	{ dt => dt_from_string( $h->reservedate() ), dateonly => 1 }	119	? output_pref( { dt => dt_from_string( $h->reservedate() ), dateonly => 1 } )
120	)
121	: q{},	120	: q{},
122	suspend_until_formatted => $h->suspend_until() ? output_pref(	121	suspend_until_formatted => $h->suspend_until()
123	{ dt => dt_from_string( $h->suspend_until() ), dateonly => 1 }	122	? output_pref( { dt => dt_from_string( $h->suspend_until() ), dateonly => 1 } )
124	)
125	: q{},	123	: q{},
126	expirationdate_formatted => $h->expirationdate() ? output_pref(	124	expirationdate_formatted => $h->expirationdate()
127	{ dt => dt_from_string( $h->expirationdate() ), dateonly => 1 }	125	? output_pref( { dt => dt_from_string( $h->expirationdate() ), dateonly => 1 } )
128	)
129	: q{},	126	: q{},
130	};	127	};
131		128
132	-

Line 0 Link Here

(-)a/installer/data/mysql/atomicupdate/bug_33845.pl (+19 lines)
	1	use Modern::Perl;
	2
	3	return {
	4	bug_number => "33845",
	5	description => "Update holds_table column settings entries to holds-table",
	6	up => sub {
	7	my ($args) = @_;
	8	my ( $dbh, $out ) = @$args{qw(dbh out)};
	9
	10	$dbh->do(
	11	q{
	12	UPDATE columns_settings SET tablename="holds-table"
	13	WHERE page="circulation" and tablename="holds_table"
	14	}
	15	);
	16
	17	say $out "Update columns settings to use table name holds-table";
	18	},
	19	};