=head1 FUNCTIONS
-=over 2
-
-=item get_label_options;
+=head2 get_label_options;
$options = get_label_options()
}
=head2 sub add_batch
+
=over 4
+
add_batch($batch_type,\@batch_list);
if $batch_list is supplied,
create a new batch with those items.
else, return the next available batch_id.
-=return
+
+=back
+
=cut
sub add_batch ($;$) {
return;
}
-=item GetAllPrinterProfiles;
+=head2 GetAllPrinterProfiles;
@profiles = GetAllPrinterProfiles()
return @resultsloop;
}
-=item GetSinglePrinterProfile;
+=head2 GetSinglePrinterProfile;
$profile = GetSinglePrinterProfile()
return $template;
}
-=item SaveProfile;
+=head2 SaveProfile;
SaveProfile('parameters')
$sth->finish;
}
-=item CreateProfile;
+=head2 CreateProfile;
CreateProfile('parameters')
return $error;
}
-=item DeleteProfile;
+=head2 DeleteProfile;
DeleteProfile(prof_id)
return $error;
}
-=item GetAssociatedProfile;
+=head2 GetAssociatedProfile;
$assoc_prof = GetAssociatedProfile(tmpl_id)
return $assoc_prof;
}
-=item SetAssociatedProfile;
+=head2 SetAssociatedProfile;
SetAssociatedProfile($prof_id, $tmpl_id)
}
-=item GetLabelItems;
+=head2 GetLabelItems;
$options = GetLabelItems()
return @fields;
}
-=head GetBarcodeData
+=head2 GetBarcodeData
=over 4
+
Parse labels_conf.formatstring value
(one value of the csv, which has already been split)
and return string from koha tables or MARC record.
+
=back
+
=cut
-#'
+
sub GetBarcodeData {
my ( $f, $item, $record ) = @_;
my $kohatables = &_descKohaTables();
return $datastring;
}
-=head descKohaTables
+=head2 descKohaTables
+
Return a hashref of an array of hashes,
with name,type keys.
+
=cut
sub _descKohaTables {
warn "BAR_WDTH = $bar_width, TOT.BAR.LGHT=$tot_bar_length R*TOT.BAR =$moo2" if $debug;
}
-=item build_circ_barcode;
+=head2 build_circ_barcode;
build_circ_barcode( $x_pos, $y_pos, $barcode,
$barcodetype, \$item);
}
-=item draw_boundaries
+=head2 draw_boundaries
sub draw_boundaries ($x_pos_spine, $x_pos_circ1, $x_pos_circ2,
$y_pos, $spine_width, $label_height, $circ_width)
}
}
-=item drawbox
+=head2 drawbox
sub drawbox { $lower_left_x, $lower_left_y,
$upper_right_x, $upper_right_y )
1;
__END__
-=back
-
=head1 AUTHOR
Mason James <mason@katipo.co.nz>