);
}
+=head1 NAME
+
+C4::Creators::Lib
+
+=cut
+
+=head1 FUNCTIONS
+
+=cut
+
#=head2 C4::Creators::Lib::_SELECT()
#
# This function returns a recordset upon success and 1 upon failure. Errors are logged to the Apache log.
=head2 C4::Creators::Lib::get_all_templates()
- This function returns a reference to a hash containing all templates upon success and undefined upon failure. Errors are logged to the Apache log.
+ my $templates = get_all_templates();
- examples:
-
- my $templates = get_all_templates();
+This function returns a reference to a hash containing all templates upon success and 1 upon failure. Errors are logged to the Apache log.
=cut
$sth->execute();
if ($sth->err) {
warn sprintf('Database returned the following error: %s', $sth->errstr);
- return;
+ return -1;
}
ADD_TEMPLATES:
while (my $template = $sth->fetchrow_hashref) {
=head2 C4::Creators::Lib::get_all_layouts()
- This function returns a reference to a hash containing all layouts upon success and undefined upon failure. Errors are logged to the Apache log.
-
- examples:
+ my $layouts = get_all_layouts();
- my $layouts = get_all_layouts();
+This function returns a reference to a hash containing all layouts upon success and 1 upon failure. Errors are logged to the Apache log.
=cut
$sth->execute();
if ($sth->err) {
warn sprintf('Database returned the following error: %s', $sth->errstr);
- return;
+ return -1;
}
ADD_LAYOUTS:
while (my $layout = $sth->fetchrow_hashref) {
=head2 C4::Creators::Lib::get_all_profiles()
- This function returns an arrayref whose elements are hashes containing all profiles upon success and undefined upon failure. Errors are logged
- to the Apache log. Two parameters are accepted. The first limits the field(s) returned. This parameter should be string of comma separted
- fields. ie. "field_1, field_2, ...field_n" The second limits the records returned based on a string containing a valud SQL 'WHERE' filter.
+ my $profiles = get_all_profiles();
- NOTE: Do not pass in the keyword 'WHERE.'
+ my $profiles = get_all_profiles(field_list => field_list, filter => filter_string);
- examples:
+This function returns an arrayref whose elements are hashes containing all profiles upon success and 1 upon failure. Errors are logged
+to the Apache log. Two parameters are accepted. The first limits the field(s) returned. This parameter should be string of comma separted
+fields. ie. "field_1, field_2, ...field_n" The second limits the records returned based on a string containing a valud SQL 'WHERE' filter.
- my $profiles = get_all_profiles();
- my $profiles = get_all_profiles(field_list => field_list, filter => filter_string);
+NOTE: Do not pass in the keyword 'WHERE.'
=cut
$sth->execute();
if ($sth->err) {
warn sprintf('Database returned the following error: %s', $sth->errstr);
- return;
+ return -1;
}
ADD_PROFILES:
while (my $profile = $sth->fetchrow_hashref) {
$sth->execute();
if ($sth->err) {
warn sprintf('Database returned the following error: %s', $sth->errstr);
- return;
+ return -1;
}
grep {push @$image_names, {type => $$_[0], name => $$_[0], selected => 0}} @{$sth->fetchall_arrayref([0])};
return $image_names;
=head2 C4::Creators::Lib::get_batch_summary()
- This function returns an arrayref whose elements are hashes containing the batch_ids of current batches along with the item count
- for each batch upon success and 1 upon failure. Item counts are stored under the key '_item_count' Errors are logged to the Apache log.
- One parameter is accepted which limits the records returned based on a string containing a valud SQL 'WHERE' filter.
+ my $batches = get_batch_summary();
- NOTE: Do not pass in the keyword 'WHERE.'
+ my $batches = get_batch_summary(filter => filter_string);
- examples:
+This function returns an arrayref whose elements are hashes containing the batch_ids of current batches along with the item count
+for each batch upon success and 1 upon failure. Item counts are stored under the key '_item_count' Errors are logged to the Apache log.
+One parameter is accepted which limits the records returned based on a string containing a valud SQL 'WHERE' filter.
- my $batches = get_batch_summary();
- my $batches = get_batch_summary(filter => filter_string);
+NOTE: Do not pass in the keyword 'WHERE.'
=cut
$sth->execute($params{'creator'});
if ($sth->err) {
warn sprintf('Database returned the following error on attempted SELECT: %s', $sth->errstr);
- return;
+ return -1;
}
ADD_BATCHES:
while (my $batch = $sth->fetchrow_hashref) {
$sth1->execute($batch->{'batch_id'}, $params{'creator'});
if ($sth1->err) {
warn sprintf('Database returned the following error on attempted SELECT count: %s', $sth1->errstr);
- return;
+ return -1;
}
my $count = $sth1->fetchrow_arrayref;
$batch->{'_item_count'} = @$count[0];
=head2 C4::Creators::Lib::get_label_summary()
- This function returns an arrayref whose elements are hashes containing the label_ids of current labels along with the item count
- for each label upon success and 1 upon failure. Item counts are stored under the key '_item_count' Errors are logged to the Apache log.
- One parameter is accepted which limits the records returned based on a string containing a valud SQL 'WHERE' filter.
+ my $labels = get_label_summary();
- NOTE: Do not pass in the keyword 'WHERE.'
+ my $labels = get_label_summary(items => @item_list);
- examples:
+This function returns an arrayref whose elements are hashes containing the label_ids of current labels along with the item count
+for each label upon success and 1 upon failure. Item counts are stored under the key '_item_count' Errors are logged to the Apache log.
+One parameter is accepted which limits the records returned based on a string containing a valud SQL 'WHERE' filter.
- my $labels = get_label_summary();
- my $labels = get_label_summary(items => @item_list);
+NOTE: Do not pass in the keyword 'WHERE.'
=cut
my %params = @_;
my $label_number = 0;
my @label_summaries = ();
- my $query = " SELECT b.title, b.author, bi.itemtype, i.barcode, i.biblionumber
+ my $query = " SELECT b.title, b.author, bi.itemtype, i.barcode, i.biblionumber, i.itype
FROM creator_batches AS c LEFT JOIN items AS i ON (c.item_number=i.itemnumber)
LEFT JOIN biblioitems AS bi ON (i.biblioitemnumber=bi.biblioitemnumber)
LEFT JOIN biblio AS b ON (bi.biblionumber=b.biblionumber)
$sth->execute($item->{'item_number'}, $params{'batch_id'});
if ($sth->err) {
warn sprintf('Database returned the following error on attempted SELECT: %s', $sth->errstr);
- return;
+ return -1;
}
my $record = $sth->fetchrow_hashref;
my $label_summary;
# should not know that it's part of a web app
$record->{'title'} = '<a href="/cgi-bin/koha/catalogue/detail.pl?biblionumber=' . $record->{'biblionumber'} . '"> ' . $record->{'title'} . '</a>';
$label_summary->{'_summary'} = $record->{'title'} . " | " . ($record->{'author'} ? $record->{'author'} : 'N/A');
- $label_summary->{'_item_type'} = $record->{'itemtype'};
+ $label_summary->{'_item_type'} = C4::Context->preference("item-level_itypes") ? $record->{'itype'} : $record->{'itemtype'};
$label_summary->{'_barcode'} = $record->{'barcode'};
$label_summary->{'_item_number'} = $item->{'item_number'};
$label_summary->{'_label_id'} = $item->{'label_id'};
=head2 C4::Creators::Lib::get_card_summary()
- This function returns an arrayref whose elements are hashes containing the label_ids of current cards along with the item count
- for each card upon success and 1 upon failure. Item counts are stored under the key '_item_count' Errors are logged to the Apache log.
- One parameter is accepted which limits the records returned based on a string containing a valud SQL 'WHERE' filter.
+ my $cards = get_card_summary();
- NOTE: Do not pass in the keyword 'WHERE.'
+ my $cards = get_card_summary(items => @item_list);
- examples:
+This function returns an arrayref whose elements are hashes containing the label_ids of current cards along with the item count
+for each card upon success and 1 upon failure. Item counts are stored under the key '_item_count' Errors are logged to the Apache log.
+One parameter is accepted which limits the records returned based on a string containing a valud SQL 'WHERE' filter.
- my $cards = get_card_summary();
- my $cards = get_card_summary(items => @item_list);
+NOTE: Do not pass in the keyword 'WHERE.'
=cut
$sth->execute($item->{'borrower_number'});
if ($sth->err) {
warn sprintf('Database returned the following error on attempted SELECT: %s', $sth->errstr);
- return;
+ return -1;
}
my $record = $sth->fetchrow_hashref;
my $card_summary->{'_card_number'} = $card_number;
=head2 C4::Creators::Lib::get_barcode_types()
- This function returns a reference to an array of hashes containing all barcode types along with their name and description.
+ my $barcode_types = get_barcode_types();
- examples:
-
- my $barcode_types = get_barcode_types();
+This function returns a reference to an array of hashes containing all barcode types along with their name and description.
=cut
=head2 C4::Creators::Lib::get_label_types()
- This function returns a reference to an array of hashes containing all label types along with their name and description.
-
- examples:
+ my $label_types = get_label_types();
- my $label_types = get_label_types();
+This function returns a reference to an array of hashes containing all label types along with their name and description.
=cut
=head2 C4::Creators::Lib::get_font_types()
- This function returns a reference to an array of hashes containing all font types along with their name and description.
+ my $font_types = get_font_types();
- examples:
-
- my $font_types = get_font_types();
+This function returns a reference to an array of hashes containing all font types along with their name and description.
=cut
=head2 C4::Creators::Lib::get_text_justification_types()
- This function returns a reference to an array of hashes containing all text justification types along with their name and description.
-
- examples:
+ my $text_justification_types = get_text_justification_types();
- my $text_justification_types = get_text_justification_types();
+This function returns a reference to an array of hashes containing all text justification types along with their name and description.
=cut
=head2 C4::Creators::Lib::get_unit_values()
- This function returns a reference to an array of hashes containing all unit types along with their description and multiplier. NOTE: All units are relative to a PostScript Point.
- There are 72 PS points to the inch.
+ my $unit_values = get_unit_values();
- examples:
-
- my $unit_values = get_unit_values();
+This function returns a reference to an array of hashes containing all unit types along with their description and multiplier.
+NOTE: All units are relative to a PostScript Point.
+There are 72 PS points to the inch.
=cut
=head2 C4::Creators::Lib::get_output_formats()
- This function returns a reference to an array of hashes containing all label output formats along with their description.
-
- examples:
+ my $label_output_formats = get_output_formats();
- my $label_output_formats = get_output_formats();
+This function returns a reference to an array of hashes containing all label output formats along with their description.
=cut
=head2 C4::Creators::Lib::html_table()
- This function returns an arrayref of an array of hashes contianing the supplied data formatted suitably to
- be passed off as a T::P template parameter and used to build an html table.
+This function returns an arrayref of an array of hashes contianing the supplied data formatted suitably to
+be passed off as a T::P template parameter and used to build an html table.
- examples:
-
- my $table = html_table(header_fields, array_of_row_data);
- $template->param(
- TABLE => $table,
- );
+ my $table = html_table(header_fields, array_of_row_data);
+ $template->param(
+ TABLE => $table,
+ );
html example:
sub html_table {
my $headers = shift;
my $data = shift;
- # no need to generate a table if there is not data to display
- unless ( @{$data} ) {
- return;
- }
+ return undef if scalar(@$data) == 0; # no need to generate a table if there is not data to display
my $table = [];
my $fields = [];
my @table_columns = ();