Koha-community
/
Koha
13
5
Fork 0
Code Issues Releases Wiki Activity
Browse Source

Bringing label, patroncard, and creator modules into conformity with the rest of C4 style. 

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>
3.2.x
Chris Nighswonger 14 years ago
committed by Galen Charlton
parent
63bb60702f
commit
84d5b28f12
22 changed files with 145 additions and 94 deletions
Whitespace
Show all changes Ignore whitespace when comparing lines Ignore changes in amount of whitespace Ignore changes in whitespace at EOL
Split View
Diff Options
Show Stats Download Patch File Download Diff File
  1. 28
      C4/Creators.pm
  2. 32
      C4/Creators/Lib.pm
  3. 13
      C4/Labels.pm
  4. 28
      C4/Labels/Lib.pm
  5. 24
      C4/Patroncards.pm
  6. 16
      C4/Patroncards/Lib.pm
  7. 9
      labels/label-create-csv.pl
  8. 11
      labels/label-create-pdf.pl
  9. 9
      labels/label-create-xml.pl
  10. 4
      labels/label-edit-batch.pl
  11. 4
      labels/label-edit-layout.pl
  12. 4
      labels/label-edit-profile.pl
  13. 5
      labels/label-edit-template.pl
  14. 7
      labels/label-manage.pl
  15. 4
      patroncards/card-print.pl
  16. 7
      patroncards/create-pdf.pl
  17. 4
      patroncards/edit-batch.pl
  18. 4
      patroncards/edit-layout.pl
  19. 5
      patroncards/edit-template.pl
  20. 4
      patroncards/image-manage.pl
  21. 13
      patroncards/manage.pl
  22. 4
      patroncards/print.pl

28
C4/Creators.pm
View File

@ -0,0 +1,28 @@
package C4::Creators;
BEGIN {
use version; our $VERSION = qv('1.0.0_1');
use vars qw(@EXPORT, @ISA);
@ISA = qw(Exporter);
our @EXPORT = qw(get_all_templates
get_all_layouts
get_all_profiles
get_all_image_names
get_batch_summary
get_label_summary
get_card_summary
get_barcode_types
get_label_types
get_font_types
get_text_justification_types
get_output_formats
get_column_names
get_table_names
get_unit_values
html_table
);
use C4::Creators::Lib 1.000000;
use C4::Creators::PDF 1.000000;
}
1;

32
C4/Creators/Lib.pm
View File

@ -28,22 +28,22 @@ use C4::Debug;
BEGIN {
use version; our $VERSION = qv('1.0.0_1');
use base qw(Exporter);
our @EXPORT_OK = qw(get_all_templates
get_all_layouts
get_all_profiles
get_all_image_names
get_batch_summary
get_label_summary
get_card_summary
get_barcode_types
get_label_types
get_font_types
get_text_justification_types
get_output_formats
get_column_names
get_table_names
get_unit_values
html_table
our @EXPORT = qw(get_all_templates
get_all_layouts
get_all_profiles
get_all_image_names
get_batch_summary
get_label_summary
get_card_summary
get_barcode_types
get_label_types
get_font_types
get_text_justification_types
get_output_formats
get_column_names
get_table_names
get_unit_values
html_table
);
}

13
C4/Labels.pm
View File

@ -0,0 +1,13 @@
package C4::Labels;
BEGIN {
use version; our $VERSION = qv('1.0.0_1');
use C4::Labels::Batch 1.000000;
use C4::Labels::Label 1.000000;
use C4::Labels::Layout 1.000000;
use C4::Labels::Profile 1.000000;
use C4::Labels::Template 1.000000;
}
1;

28
C4/Labels/Lib.pm
View File

@ -28,20 +28,20 @@ use C4::Debug;
BEGIN {
use version; our $VERSION = qv('1.0.0_1');
use base qw(Exporter);
our @EXPORT_OK = qw(get_all_templates
get_all_layouts
get_all_profiles
get_batch_summary
get_label_summary
get_barcode_types
get_label_types
get_font_types
get_text_justification_types
get_label_output_formats
get_column_names
get_table_names
get_unit_values
html_table
our @EXPORT = qw(get_all_templates
get_all_layouts
get_all_profiles
get_batch_summary
get_label_summary
get_barcode_types
get_label_types
get_font_types
get_text_justification_types
get_label_output_formats
get_column_names
get_table_names
get_unit_values
html_table
);
}

24
C4/Patroncards.pm
View File

@ -0,0 +1,24 @@
package C4::Patroncards;
BEGIN {
use version; our $VERSION = qv('1.0.0_1');
use vars qw(@EXPORT, @ISA);
@ISA = qw(Exporter);
our @EXPORT = qw(unpack_UTF8
text_alignment
leading
box
get_borrower_attributes
put_image
get_image
rm_image
);
use C4::Patroncards::Batch 1.000000;
use C4::Patroncards::Layout 1.000000;
use C4::Patroncards::Lib 1.000000;
use C4::Patroncards::Patroncard 1.000000;
use C4::Patroncards::Profile 1.000000;
use C4::Patroncards::Template 1.000000;
}
1;

16
C4/Patroncards/Lib.pm
View File

@ -28,14 +28,14 @@ use C4::Debug;
BEGIN {
use version; our $VERSION = qv('1.0.0_1');
use base qw(Exporter);
our @EXPORT_OK = qw(unpack_UTF8
text_alignment
leading
box
get_borrower_attributes
put_image
get_image
rm_image
our @EXPORT = qw(unpack_UTF8
text_alignment
leading
box
get_borrower_attributes
put_image
get_image
rm_image
);
}

9
labels/label-create-csv.pl
View File

@ -8,11 +8,8 @@ use Text::CSV_XS;
use Data::Dumper;
use C4::Debug;
use C4::Labels::Batch 1.000000;
use C4::Labels::Template 1.000000;
use C4::Labels::Layout 1.000000;
use C4::Creators::PDF 1.000000;
use C4::Labels::Label 1.000000;
use C4::Creators 1.000000;
use C4::Label 1.000000;
=head
@ -96,7 +93,7 @@ Copyright 2009 Foundations Bible College.
=head1 LICENSE
This file is part of Koha.
Koha is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software
Foundation; either version 2 of the License, or (at your option) any later version.

11
labels/label-create-pdf.pl
View File

@ -6,11 +6,8 @@ use warnings;
use CGI;
use C4::Debug;
use C4::Labels::Batch 1.000000;
use C4::Labels::Template 1.000000;
use C4::Labels::Layout 1.000000;
use C4::Creators::PDF 1.000000;
use C4::Labels::Label 1.000000;
use C4::Creators 1.000000;
use C4::Labels 1.000000;
my $cgi = new CGI;
@ -97,7 +94,7 @@ else {
LABEL_ITEMS:
foreach my $item (@{$items}) {
my ($barcode_llx, $barcode_lly, $barcode_width, $barcode_y_scale_factor) = 0,0,0,0;
if ($layout->get_attr('printing_type') eq 'ALT') { # we process the ALT style printing type here because it is not an atomic printing type
if ($layout->get_attr('printing_type') eq 'ALT') { # we process the ALT style printing type here because it is not an atomic printing type
my $label_a = C4::Labels::Label->new(
batch_id => $batch_id,
item_number => $item->{'item_number'},
@ -210,7 +207,7 @@ Copyright 2009 Foundations Bible College.
=head1 LICENSE
This file is part of Koha.
Koha is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software
Foundation; either version 2 of the License, or (at your option) any later version.

9
labels/label-create-xml.pl
View File

@ -8,11 +8,8 @@ use XML::Simple;
use Data::Dumper;
use C4::Debug;
use C4::Labels::Batch 1.000000;
use C4::Labels::Template 1.000000;
use C4::Labels::Layout 1.000000;
use C4::Creators::PDF 1.000000;
use C4::Labels::Label 1.000000;
use C4::Creators 1.000000;
use C4::Labels 1.000000;
=head
@ -105,7 +102,7 @@ Copyright 2009 Foundations Bible College.
=head1 LICENSE
This file is part of Koha.
Koha is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License as published by the Free Software
Foundation; either version 2 of the License, or (at your option) any later version.

4
labels/label-edit-batch.pl
View File

@ -27,8 +27,8 @@ use CGI;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Branch qw(get_branch_code_from_name);
use C4::Creators::Lib 1.000000 qw(get_label_summary html_table);
use C4::Labels::Batch 1.000000;
use C4::Creators 1.000000;
use C4::Labels 1.000000;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
labels/label-edit-layout.pl
View File

@ -27,8 +27,8 @@ use Text::CSV_XS;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators::Lib 1.000000 qw(get_barcode_types get_label_types get_font_types get_text_justification_types);
use C4::Labels::Layout 1.000000;
use C4::Creators 1.000000;
use C4::Labels 1.000000;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
labels/label-edit-profile.pl
View File

@ -25,8 +25,8 @@ use CGI;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators::Lib 1.000000 qw(get_all_templates get_unit_values);
use C4::Labels::Profile 1.000000;
use C4::Creators 1.000000;
use C4::Labels 1.000000;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

5
labels/label-edit-template.pl
View File

@ -25,9 +25,8 @@ use CGI;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators::Lib 1.000000 qw(get_all_profiles get_unit_values);
use C4::Labels::Template 1.000000;
use C4::Labels::Profile 1.000000;
use C4::Creators 1.000000;
use C4::Labels 1.000000;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

7
labels/label-manage.pl
View File

@ -28,11 +28,8 @@ use Data::Dumper;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use autouse 'C4::Branch' => qw(get_branch_code_from_name);
use C4::Creators::Lib 1.000000 qw(get_all_templates get_all_layouts get_all_profiles get_batch_summary html_table);
use C4::Labels::Layout 1.000000;
use C4::Labels::Template 1.000000;
use C4::Labels::Profile 1.000000;
use C4::Labels::Batch 1.000000;
use C4::Creators 1.000000;
use C4::Labels 1.000000;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
patroncards/card-print.pl
View File

@ -25,8 +25,8 @@ use Data::Dumper;
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Labels::Lib 1.000000 qw(get_all_templates get_all_layouts get_label_output_formats);
use C4::Labels::Batch 1.000000;
use C4::Creators 1.000000;
use C4::Labels 1.000000;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

7
patroncards/create-pdf.pl
View File

@ -29,11 +29,8 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Debug;
use C4::Context;
use autouse 'C4::Members' => qw(GetPatronImage GetMember);
use C4::Creators::PDF 1.000000;
use C4::Patroncards::Batch 1.000000;
use C4::Patroncards::Template 1.000000;
use C4::Patroncards::Layout 1.000000;
use C4::Patroncards::Patroncard 1.000000;
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
my $cgi = new CGI;

4
patroncards/edit-batch.pl
View File

@ -28,8 +28,8 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Branch qw(get_branch_code_from_name);
use C4::Creators::Lib 1.000000 qw(get_card_summary html_table);
use C4::Patroncards::Batch 1.000000;
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
patroncards/edit-layout.pl
View File

@ -28,8 +28,8 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators::Lib 1.000000 qw(get_barcode_types get_label_types get_font_types get_text_justification_types get_unit_values get_all_image_names);
use C4::Patroncards::Layout 1.000000;
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

5
patroncards/edit-template.pl
View File

@ -26,9 +26,8 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators::Lib 1.000000 qw(get_all_profiles get_unit_values);
use C4::Patroncards::Template 1.000000;
use C4::Patroncards::Profile 1.000000;
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
patroncards/image-manage.pl
View File

@ -12,8 +12,8 @@ use C4::Context;
use C4::Auth;
use C4::Output;
use C4::Debug;
use C4::Creators::Lib 1.000000 qw(html_table);
use C4::Patroncards::Lib 1.000000 qw(put_image get_image rm_image);
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
my $cgi = CGI->new;

13
patroncards/manage.pl
View File

@ -28,11 +28,14 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use autouse 'C4::Branch' => qw(get_branch_code_from_name);
use C4::Creators::Lib 1.000000 qw(get_all_templates get_all_layouts get_all_profiles get_batch_summary html_table);
use C4::Patroncards::Layout 1.000000;
use C4::Patroncards::Template 1.000000;
use C4::Patroncards::Profile 1.000000;
use C4::Labels::Batch 1.000000;
#use C4::Creators::Lib 1.000000 qw(get_all_templates get_all_layouts get_all_profiles get_batch_summary html_table);
#use C4::Patroncards::Layout 1.000000;
#use C4::Patroncards::Template 1.000000;
#use C4::Patroncards::Profile 1.000000;
#use C4::Labels::Batch 1.000000;
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
use C4::Labels 1.000000;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

4
patroncards/print.pl
View File

@ -25,8 +25,8 @@ use autouse 'Data::Dumper' => qw(Dumper);
use C4::Auth qw(get_template_and_user);
use C4::Output qw(output_html_with_http_headers);
use C4::Creators::Lib 1.000000 qw(get_all_templates get_all_layouts get_output_formats);
use C4::Patroncards::Batch 1.000000;
use C4::Creators 1.000000;
use C4::Patroncards 1.000000;
my $cgi = new CGI;
my ( $template, $loggedinuser, $cookie ) = get_template_and_user(

Write Preview
Loading…
Cancel
Save