From e1a4e7c756b66acb3545145de2bb51f5ada433d8 Mon Sep 17 00:00:00 2001 From: Chris Nighswonger Date: Mon, 24 Aug 2009 13:08:45 -0400 Subject: [PATCH] [39/40] Removeing depricated functions from label module. --- C4/Labels/Label.pm | 29 ----------------------------- 1 file changed, 29 deletions(-) diff --git a/C4/Labels/Label.pm b/C4/Labels/Label.pm index cb1f51064d..798751cbd0 100644 --- a/C4/Labels/Label.pm +++ b/C4/Labels/Label.pm @@ -181,35 +181,6 @@ sub _split_fcn { return @fcn_split; } -sub _get_fields { - my ( $layout_id, $sorttype ) = @_; - my @sorted_fields; - my $sortorder = get_layout($layout_id); - if ( !$sorttype ) { - return $sortorder->{'formatstring'}; - } - else { - my $csv = Text::CSV_XS->new( { allow_whitespace => 1 } ); - my $line = $sortorder->{'formatstring'}; - my $status = $csv->parse($line); - @sorted_fields = - map { { 'code' => $_, desc => $_ } } $csv->fields(); - if (my $error = $csv->error_input()) { - syslog("LOG_ERR", "C4::Labels::Label::_get_fields : Text::CSV_XS returned the following error: %s", $error); - } - } -} - -sub _get_item_fields { - my @fields = qw ( - barcode title - isbn issn - author itemtype - itemcallnumber - ); - return @fields; -} - sub _get_barcode_data { my ( $f, $item, $record ) = @_; my $kohatables = _desc_koha_tables(); -- 2.39.2