=head2 get_heading_type_from_marc
-=over 4
-
-my $auth_type = get_auth_type_from_marc($marc);
-
-=back
+ my $auth_type = get_auth_type_from_marc($marc);
Given a MARC::Record object containing an authority record,
determine its heading type (e.g., personal name, topical term,
=head2 default_auth_type_location
-=over 4
-
-my ($tag, $subfield) = default_auth_type_location();
-
-=back
+ my ($tag, $subfield) = default_auth_type_location();
Get the tag and subfield used to store the heading type
if not specified in the MARC framework. For MARC21,
=head2 fix_marc21_auth_type_location
-=over 4
-
-fix_marc21_auth_type_location($auth_marc, $auth_type_tag, $auth_type_subfield);
-
-=back
+ fix_marc21_auth_type_location($auth_marc, $auth_type_tag, $auth_type_subfield);
If the incoming C<MARC::Record> object has a 152$b, remove it. If no
field already exists that contains the specified C<$auth_type_tag>
=head2 get_heading_type_from_marc
-=over 4
-
-my $auth_type = get_auth_type_from_marc($marc);
-
-=back
+ my $auth_type = get_auth_type_from_marc($marc);
Given a MARC::Record object containing an authority record,
determine its heading type (e.g., personal name, topical term,
=head2 default_auth_type_location
-=over 4
-
-my ($tag, $subfield) = default_auth_type_location();
-
-=back
+ my ($tag, $subfield) = default_auth_type_location();
Get the tag and subfield used to store the heading type
if not specified in the MARC framework. For UNIMARC,
=head1 SYNOPSIS
- use C4::Barcodes::PrinterConfig;
+use C4::Barcodes::PrinterConfig;
=head1 DESCRIPTION
=head1 FUNCTIONS
-=over 2
+=head2 my @positionsForX;
-=cut
+Takes all the X positions of the pdf file.
+
+=head2 my @positionsForY;
+
+Takes all the Y positions of the pdf file.
-my @positionsForX; # Takes all the X positions of the pdf file.
-my @positionsForY; # Takes all the Y positions of the pdf file.
-my $firstLabel = 1; # Test if the label passed as a parameter is the first label to be printed into the pdf file.
+=head2 my $firstLabel = 1;
-=item setPositionsForX
+Test if the label passed as a parameter is the first label to be printed into the pdf file.
- C4::Barcodes::PrinterConfig::setPositionsForX($marginLeft, $labelWidth, $columns, $pageType);
+=head2 setPositionsForX
+
+ C4::Barcodes::PrinterConfig::setPositionsForX($marginLeft, $labelWidth, $columns, $pageType);
Calculate and stores all the X positions across the pdf page.
C<$pageType> Page type to print (eg: a4, legal, etc).
=cut
-#'
+
sub setPositionsForX {
my ($marginLeft, $labelWidth, $columns, $pageType) = @_;
my $defaultDpi = 72/25.4; # By default we know 25.4 mm -> 1 inch -> 72 dots per inch
@positionsForX = @positions;
}
-=item setPositionsForY
+=head2 setPositionsForY
- C4::Barcodes::PrinterConfig::setPositionsForY($marginBottom, $labelHeigth, $rows, $pageType);
+ C4::Barcodes::PrinterConfig::setPositionsForY($marginBottom, $labelHeigth, $rows, $pageType);
Calculate and stores all tha Y positions across the pdf page.
C<$pageType> Page type to print (eg: a4, legal, etc).
=cut
-#'
+
sub setPositionsForY {
my ($marginBottom, $labelHeigth, $rows, $pageType) = @_;
my $defaultDpi = 72/25.4; # By default we know 25.4 mm -> 1 inch -> 72 dots per inch
@positionsForY = @positions;
}
-=item getLabelPosition
+=head2 getLabelPosition
- (my $x, my $y, $pdfObject, $pageObject, $gfxObject, $textObject, $coreObject, $labelPosition) =
- C4::Barcodes::PrinterConfig::getLabelPosition($labelPosition,
- $pdfObject,
- $page,
- $gfx,
- $text,
- $fontObject,
- $pageType);
+ (my $x, my $y, $pdfObject, $pageObject, $gfxObject, $textObject, $coreObject, $labelPosition) =
+ C4::Barcodes::PrinterConfig::getLabelPosition($labelPosition, $pdfObject, $page, $gfx, $text, $fontObject, $pageType);
Return the (x,y) position of the label that you are going to print considering the environment.
C<$pageType> Page type to print (eg: a4, legal, etc).
=cut
-#'
+
sub getLabelPosition {
my ($labelNum, $pdf, $page, $gfxObject, $textObject, $fontObject, $pageType) = @_;
my $indexX = $labelNum % @positionsForX;
return ($positionsForX[$indexX], $positionsForY[$indexY], $pdf, $page, $gfxObject, $textObject, $fontObject, $labelNum);
}
-=item labelsPage
+=head2 labelsPage
- my @labelTable = C4::Barcodes::PrinterConfig::labelsPage($rows, $columns);
+ my @labelTable = C4::Barcodes::PrinterConfig::labelsPage($rows, $columns);
This function will help you to build the labels panel, where you can choose
wich label position do you want to start the printer process.
C<$columns> Indicates how many rows do you want in your page type.
=cut
-#'
+
sub labelsPage{
my ($rows, $columns) = @_;
my @pageType;
__END__
-=back
-
=head1 AUTHOR
Koha Physics Library UNLP <matias_veleda@hotmail.com>
1;
__END__
-=head2
+=head1 NOTES
Since incremental is the default in C4::Barcodes, we do not override anything here.
In fact, this file is more of a place holder.
1;
__END__
-=head1 NAME
-
- C4::Cache::Memcached - memcached subclass of C4::Cache
-
+=head1 NAME
+
+C4::Cache::Memcached - memcached subclass of C4::Cache
+
=cut
__END__
=head1 NAME
-
- C4::Cache::Memoize::Memcached - subclass of C4::Cache
-
+
+C4::Cache::Memoize::Memcached - subclass of C4::Cache
+
=cut
);
}
+=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 1 upon failure. Errors are logged to the Apache log.
-
- examples:
+ my $templates = get_all_templates();
- 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
=head2 C4::Creators::Lib::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.
+ my $layouts = get_all_layouts();
- examples:
-
- 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
=head2 C4::Creators::Lib::get_all_profiles()
- 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();
- 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
=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
=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
=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
=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.
-
- examples:
+ my $barcode_types = get_barcode_types();
- 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.
+ my $label_types = get_label_types();
- examples:
-
- 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.
-
- examples:
+ my $font_types = get_font_types();
- 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.
+ my $text_justification_types = get_text_justification_types();
- examples:
-
- 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.
-
- examples:
+ my $unit_values = get_unit_values();
- 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.
+ my $label_output_formats = get_output_formats();
- examples:
-
- 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.
-
- examples:
+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.
- 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:
=head1 NOTES
+=cut
+
=head1 AUTHOR
Joshua Ferraro <jmf@liblime.com>
=head1 NAME
-C4::External::BakerTaylor - Functions for retrieving content from Baker and Taylor, inventory availability and "Content Cafe".
+C4::External::BakerTaylor
+
+=head1 DESCRIPTION
+
+Functions for retrieving content from Baker and Taylor, inventory availability and "Content Cafe".
+
The settings for this module are controlled by System Preferences:
These can be overridden for testing purposes using the initialize function.
=head1 FUNCTIONS
-=head1 availability($isbn);
+=head2 availability($isbn);
-=head2 $isbn is a isbn string
+$isbn is a isbn string
=head1 NOTES
=head2 get_syndetics_summary
-=over 4
-
-my $syndetics_summary= &get_syndetics_summary( $isbn );
-
-=back
+ my $syndetics_summary= &get_syndetics_summary( $isbn );
Get Summary data from Syndetics
=head1 NOTES
+=cut
+
=head1 AUTHOR
Joshua Ferraro <jmf@liblime.com>
=head2 new
-=over 4
-
-my $marc_handler = C4::Heading::MARC21->new();
-
-=back
+ my $marc_handler = C4::Heading::MARC21->new();
=cut
=head1 DESCRIPTION
- Each function in this module represents an ILS-DI service.
- They all takes a CGI instance as argument and most of them return a
- hashref that will be printed by XML::Simple in opac/ilsdi.pl
+Each function in this module represents an ILS-DI service.
+They all takes a CGI instance as argument and most of them return a
+hashref that will be printed by XML::Simple in opac/ilsdi.pl
=head1 SYNOPSIS
=cut
+=head1 FUNCTIONS
+
=head2 GetAvailability
-
- Given a set of biblionumbers or itemnumbers, returns a list with
- availability of the items associated with the identifiers.
-
- Parameters :
-
- - id (Required)
- list of either biblionumbers or itemnumbers
- - id_type (Required)
- defines the type of record identifier being used in the request,
- possible values:
- - bib
- - item
- - return_type (Optional)
- requests a particular level of detail in reporting availability,
- possible values:
- - bib
- - item
- - return_fmt (Optional)
- requests a particular format or set of formats in reporting
- availability
+
+Given a set of biblionumbers or itemnumbers, returns a list with
+availability of the items associated with the identifiers.
+
+Parameters:
+
+=head3 id (Required)
+
+list of either biblionumbers or itemnumbers
+
+=head3 id_type (Required)
+
+defines the type of record identifier being used in the request,
+possible values:
+
+ - bib
+ - item
+
+=head3 return_type (Optional)
+
+requests a particular level of detail in reporting availability,
+possible values:
+
+ - bib
+ - item
+
+=head3 return_fmt (Optional)
+
+requests a particular format or set of formats in reporting
+availability
=cut
}
=head2 GetRecords
-
- Given a list of biblionumbers, returns a list of record objects that
- contain bibliographic information, as well as associated holdings and item
- information. The caller may request a specific metadata schema for the
- record objects to be returned.
- This function behaves similarly to HarvestBibliographicRecords and
- HarvestExpandedRecords in Data Aggregation, but allows quick, real time
- lookup by bibliographic identifier.
-
- You can use OAI-PMH ListRecords instead of this service.
-
- Parameters:
-
- - id (Required)
- list of system record identifiers
- - id_type (Optional)
- Defines the metadata schema in which the records are returned,
- possible values:
- - MARCXML
+
+Given a list of biblionumbers, returns a list of record objects that
+contain bibliographic information, as well as associated holdings and item
+information. The caller may request a specific metadata schema for the
+record objects to be returned.
+
+This function behaves similarly to HarvestBibliographicRecords and
+HarvestExpandedRecords in Data Aggregation, but allows quick, real time
+lookup by bibliographic identifier.
+
+You can use OAI-PMH ListRecords instead of this service.
+
+Parameters:
+
+ - id (Required)
+ list of system record identifiers
+ - id_type (Optional)
+ Defines the metadata schema in which the records are returned,
+ possible values:
+ - MARCXML
=cut
}
=head2 GetAuthorityRecords
-
- Given a list of authority record identifiers, returns a list of record
- objects that contain the authority records. The function user may request
- a specific metadata schema for the record objects.
- Parameters:
+Given a list of authority record identifiers, returns a list of record
+objects that contain the authority records. The function user may request
+a specific metadata schema for the record objects.
+
+Parameters:
- - id (Required)
- list of authority record identifiers
- - schema (Optional)
- specifies the metadata schema of records to be returned, possible values:
- - MARCXML
+ - id (Required)
+ list of authority record identifiers
+ - schema (Optional)
+ specifies the metadata schema of records to be returned, possible values:
+ - MARCXML
=cut
}
=head2 LookupPatron
-
- Looks up a patron in the ILS by an identifier, and returns the borrowernumber.
-
- Parameters:
-
- - id (Required)
- an identifier used to look up the patron in Koha
- - id_type (Optional)
- the type of the identifier, possible values:
- - cardnumber
- - firstname
- - userid
- - borrowernumber
+
+Looks up a patron in the ILS by an identifier, and returns the borrowernumber.
+
+Parameters:
+
+ - id (Required)
+ an identifier used to look up the patron in Koha
+ - id_type (Optional)
+ the type of the identifier, possible values:
+ - cardnumber
+ - firstname
+ - userid
+ - borrowernumber
=cut
=head2 AuthenticatePatron
- Authenticates a user's login credentials and returns the identifier for
- the patron.
-
- Parameters:
+Authenticates a user's login credentials and returns the identifier for
+the patron.
+
+Parameters:
+
+ - username (Required)
+ user's login identifier
+ - password (Required)
+ user's password
- - username (Required)
- user's login identifier
- - password (Required)
- user's password
-
=cut
sub AuthenticatePatron {
=head2 GetPatronInfo
- Returns specified information about the patron, based on options in the
- request. This function can optionally return patron's contact information,
- fine information, hold request information, and loan information.
-
- Parameters:
-
- - patron_id (Required)
- the borrowernumber
- - show_contact (Optional, default 1)
- whether or not to return patron's contact information in the response
- - show_fines (Optional, default 0)
- whether or not to return fine information in the response
- - show_holds (Optional, default 0)
- whether or not to return hold request information in the response
- - show_loans (Optional, default 0)
- whether or not to return loan information request information in the response
-
+Returns specified information about the patron, based on options in the
+request. This function can optionally return patron's contact information,
+fine information, hold request information, and loan information.
+
+Parameters:
+
+ - patron_id (Required)
+ the borrowernumber
+ - show_contact (Optional, default 1)
+ whether or not to return patron's contact information in the response
+ - show_fines (Optional, default 0)
+ whether or not to return fine information in the response
+ - show_holds (Optional, default 0)
+ whether or not to return hold request information in the response
+ - show_loans (Optional, default 0)
+ whether or not to return loan information request information in the response
+
=cut
sub GetPatronInfo {
=head2 GetPatronStatus
- Returns a patron's status information.
-
- Parameters:
+Returns a patron's status information.
- - patron_id (Required)
- the borrower ID
+Parameters:
+
+ - patron_id (Required)
+ the borrower ID
=cut
=head2 GetServices
- Returns information about the services available on a particular item for
- a particular patron.
-
- Parameters:
+Returns information about the services available on a particular item for
+a particular patron.
+
+Parameters:
- - patron_id (Required)
- a borrowernumber
- - item_id (Required)
- an itemnumber
+ - patron_id (Required)
+ a borrowernumber
+ - item_id (Required)
+ an itemnumber
=cut
sub GetServices {
=head2 RenewLoan
- Extends the due date for a borrower's existing issue.
-
- Parameters:
+Extends the due date for a borrower's existing issue.
- - patron_id (Required)
- a borrowernumber
- - item_id (Required)
- an itemnumber
- - desired_due_date (Required)
- the date the patron would like the item returned by
+Parameters:
+
+ - patron_id (Required)
+ a borrowernumber
+ - item_id (Required)
+ an itemnumber
+ - desired_due_date (Required)
+ the date the patron would like the item returned by
=cut
=head2 HoldTitle
- Creates, for a borrower, a biblio-level hold reserve.
-
- Parameters:
-
- - patron_id (Required)
- a borrowernumber
- - bib_id (Required)
- a biblionumber
- - request_location (Required)
- IP address where the end user request is being placed
- - pickup_location (Optional)
- a branch code indicating the location to which to deliver the item for pickup
- - needed_before_date (Optional)
- date after which hold request is no longer needed
- - pickup_expiry_date (Optional)
- date after which item returned to shelf if item is not picked up
+Creates, for a borrower, a biblio-level hold reserve.
+
+Parameters:
+
+ - patron_id (Required)
+ a borrowernumber
+ - bib_id (Required)
+ a biblionumber
+ - request_location (Required)
+ IP address where the end user request is being placed
+ - pickup_location (Optional)
+ a branch code indicating the location to which to deliver the item for pickup
+ - needed_before_date (Optional)
+ date after which hold request is no longer needed
+ - pickup_expiry_date (Optional)
+ date after which item returned to shelf if item is not picked up
=cut
=head2 HoldItem
- Creates, for a borrower, an item-level hold request on a specific item of
- a bibliographic record in Koha.
+Creates, for a borrower, an item-level hold request on a specific item of
+a bibliographic record in Koha.
- Parameters:
+Parameters:
- - patron_id (Required)
- a borrowernumber
- - bib_id (Required)
- a biblionumber
- - item_id (Required)
- an itemnumber
- - pickup_location (Optional)
- a branch code indicating the location to which to deliver the item for pickup
- - needed_before_date (Optional)
- date after which hold request is no longer needed
- - pickup_expiry_date (Optional)
- date after which item returned to shelf if item is not picked up
+ - patron_id (Required)
+ a borrowernumber
+ - bib_id (Required)
+ a biblionumber
+ - item_id (Required)
+ an itemnumber
+ - pickup_location (Optional)
+ a branch code indicating the location to which to deliver the item for pickup
+ - needed_before_date (Optional)
+ date after which hold request is no longer needed
+ - pickup_expiry_date (Optional)
+ date after which item returned to shelf if item is not picked up
=cut
=head2 CancelHold
- Cancels an active reserve request for the borrower.
-
- Parameters:
+Cancels an active reserve request for the borrower.
+
+Parameters:
- - patron_id (Required)
- a borrowernumber
- - item_id (Required)
- an itemnumber
+ - patron_id (Required)
+ a borrowernumber
+ - item_id (Required)
+ an itemnumber
=cut
=head1 SYNOPSIS
-=over 4
-
-my @attribute_types = C4::Members::AttributeTypes::GetAttributeTypes();
-
-my $attr_type = C4::Members::AttributeTypes->new($code, $description);
-$attr_type->code($code);
-$attr_type->description($description);
-$attr_type->repeatable($repeatable);
-$attr_type->unique_id($unique_id);
-$attr_type->opac_display($opac_display);
-$attr_type->password_allowed($password_allowed);
-$attr_type->staff_searchable($staff_searchable);
-$attr_type->authorised_value_category($authorised_value_category);
-$attr_type->store();
-$attr_type->delete();
-
-my $attr_type = C4::Members::AttributeTypes->fetch($code);
-$attr_type = C4::Members::AttributeTypes->delete($code);
-
-=back
+ my @attribute_types = C4::Members::AttributeTypes::GetAttributeTypes();
+
+ my $attr_type = C4::Members::AttributeTypes->new($code, $description);
+ $attr_type->code($code);
+ $attr_type->description($description);
+ $attr_type->repeatable($repeatable);
+ $attr_type->unique_id($unique_id);
+ $attr_type->opac_display($opac_display);
+ $attr_type->password_allowed($password_allowed);
+ $attr_type->staff_searchable($staff_searchable);
+ $attr_type->authorised_value_category($authorised_value_category);
+ $attr_type->store();
+ $attr_type->delete();
+
+ my $attr_type = C4::Members::AttributeTypes->fetch($code);
+ $attr_type = C4::Members::AttributeTypes->delete($code);
=head1 FUNCTIONS
=head2 GetAttributeTypes
-=over 4
-
-my @attribute_types = C4::Members::AttributeTypes::GetAttributeTypes($all_fields);
-
-=back
+ my @attribute_types = C4::Members::AttributeTypes::GetAttributeTypes($all_fields);
Returns an array of hashrefs of each attribute type defined
in the database. The array is sorted by code. Each hashref contains
at least the following fields:
-code
-description
+ - code
+ - description
If $all_fields is true, then each hashref also contains the other fields from borrower_attribute_types.
=head1 METHODS
-=over 4
-
-my $attr_type = C4::Members::AttributeTypes->new($code, $description);
-
-=back
+ my $attr_type = C4::Members::AttributeTypes->new($code, $description);
Create a new attribute type.
=head2 fetch
-=over 4
-
-my $attr_type = C4::Members::AttributeTypes->fetch($code);
-
-=back
+ my $attr_type = C4::Members::AttributeTypes->fetch($code);
Fetches an attribute type from the database. If no
type with the given C<$code> exists, returns undef.
=head2 store
-=over 4
-
-$attr_type->store();
-
-=back
+ $attr_type->store();
Stores attribute type in the database. If the type
previously retrieved from the database via the fetch()
=head2 code
-=over 4
-
-my $code = $attr_type->code();
-$attr_type->code($code);
-
-=back
+ my $code = $attr_type->code();
+ $attr_type->code($code);
Accessor. Note that the code is immutable once
a type is created or fetched from the database.
=head2 description
-=over 4
-
-my $description = $attr_type->description();
-$attr_type->description($description);
-
-=back
+ my $description = $attr_type->description();
+ $attr_type->description($description);
Accessor.
=head2 repeatable
-=over 4
-
-my $repeatable = $attr_type->repeatable();
-$attr_type->repeatable($repeatable);
-
-=back
+ my $repeatable = $attr_type->repeatable();
+ $attr_type->repeatable($repeatable);
Accessor. The C<$repeatable> argument
is interpreted as a Perl boolean.
=head2 unique_id
-=over 4
-
-my $unique_id = $attr_type->unique_id();
-$attr_type->unique_id($unique_id);
-
-=back
+ my $unique_id = $attr_type->unique_id();
+ $attr_type->unique_id($unique_id);
Accessor. The C<$unique_id> argument
is interpreted as a Perl boolean.
}
=head2 opac_display
-=over 4
-
-my $opac_display = $attr_type->opac_display();
-$attr_type->opac_display($opac_display);
-
-=back
+ my $opac_display = $attr_type->opac_display();
+ $attr_type->opac_display($opac_display);
Accessor. The C<$opac_display> argument
is interpreted as a Perl boolean.
}
=head2 password_allowed
-=over 4
-
-my $password_allowed = $attr_type->password_allowed();
-$attr_type->password_allowed($password_allowed);
-
-=back
+ my $password_allowed = $attr_type->password_allowed();
+ $attr_type->password_allowed($password_allowed);
Accessor. The C<$password_allowed> argument
is interpreted as a Perl boolean.
}
=head2 staff_searchable
-=over 4
-
-my $staff_searchable = $attr_type->staff_searchable();
-$attr_type->staff_searchable($staff_searchable);
-
-=back
+ my $staff_searchable = $attr_type->staff_searchable();
+ $attr_type->staff_searchable($staff_searchable);
Accessor. The C<$staff_searchable> argument
is interpreted as a Perl boolean.
=head2 authorised_value_category
-=over 4
-
-my $authorised_value_category = $attr_type->authorised_value_category();
-$attr_type->authorised_value_category($authorised_value_category);
-
-=back
+ my $authorised_value_category = $attr_type->authorised_value_category();
+ $attr_type->authorised_value_category($authorised_value_category);
Accessor.
=head2 delete
-=over 4
-
-$attr_type->delete();
-C4::Members::AttributeTypes->delete($code);
-
-=back
+ $attr_type->delete();
+ C4::Members::AttributeTypes->delete($code);
Delete an attribute type from the database. The attribute
type may be specified either by an object or by a code.
=head2 num_patrons
-=over 4
-
-my $count = $attr_type->num_patrons();
-
-=back
+ my $count = $attr_type->num_patrons();
Returns the number of patron records that use
this attribute type.
=head2 get_patrons
-=over 4
-
-my @borrowernumbers = $attr_type->get_patrons($attribute);
-
-=back
+ my @borrowernumbers = $attr_type->get_patrons($attribute);
Returns the borrowernumber of the patron records that
have an attribute with the specifie value.
=head1 SYNOPSIS
-=over 4
-
- use C4::Members::Attributes;
- my $attributes = C4::Members::Attributes::GetBorrowerAttributes($borrowernumber);
-
-=back
+ use C4::Members::Attributes;
+ my $attributes = C4::Members::Attributes::GetBorrowerAttributes($borrowernumber);
=head1 FUNCTIONS
=head2 GetBorrowerAttributes
-=over 4
-
-my $attributes = C4::Members::Attributes::GetBorrowerAttributes($borrowernumber[, $opac_only]);
-
-=back
+ my $attributes = C4::Members::Attributes::GetBorrowerAttributes($borrowernumber[, $opac_only]);
Retrieve an arrayref of extended attributes associated with the
patron specified by C<$borrowernumber>. Each entry in the arrayref
=head2 SearchIdMatchingAttribute
-=over 4
-
-my $matching_records = C4::Members::Attributes::SearchIdMatchingAttribute($filter);
-
-=back
-
+ my $matching_records = C4::Members::Attributes::SearchIdMatchingAttribute($filter);
=cut
=head2 CheckUniqueness
-=over 4
-
- my $ok = CheckUniqueness($code, $value[, $borrowernumber]);
-
-=back
+ my $ok = CheckUniqueness($code, $value[, $borrowernumber]);
Given an attribute type and value, verify if would violate
a unique_id restriction if added to the patron. The
=head2 SetBorrowerAttributes
-=over 4
-
- SetBorrowerAttributes($borrowernumber, [ { code => 'CODE', value => 'value', password => 'password' }, ... ] );
-
-=back
+ SetBorrowerAttributes($borrowernumber, [ { code => 'CODE', value => 'value', password => 'password' }, ... ] );
Set patron attributes for the patron identified by C<$borrowernumber>,
replacing any that existed previously.
=head2 extended_attributes_code_value_arrayref
-=over 4
-
- my $patron_attributes = "homeroom:1150605,grade:01,extradata:foobar";
- my $aref = extended_attributes_code_value_arrayref($patron_attributes);
-
-=back
+ my $patron_attributes = "homeroom:1150605,grade:01,extradata:foobar";
+ my $aref = extended_attributes_code_value_arrayref($patron_attributes);
Takes a comma-delimited CSV-style string argument and returns the kind of data structure that SetBorrowerAttributes wants,
namely a reference to array of hashrefs like:
=head2 extended_attributes_merge
-=over 4
-
- my $old_attributes = extended_attributes_code_value_arrayref("homeroom:224,grade:04,deanslist:2007,deanslist:2008,somedata:xxx");
- my $new_attributes = extended_attributes_code_value_arrayref("homeroom:115,grade:05,deanslist:2009,extradata:foobar");
- my $merged = extended_attributes_merge($patron_attributes, $new_attributes, 1);
-
- # assuming deanslist is a repeatable code, value same as:
- # $merged = extended_attributes_code_value_arrayref("homeroom:115,grade:05,deanslist:2007,deanslist:2008,deanslist:2009,extradata:foobar,somedata:xxx");
+ my $old_attributes = extended_attributes_code_value_arrayref("homeroom:224,grade:04,deanslist:2007,deanslist:2008,somedata:xxx");
+ my $new_attributes = extended_attributes_code_value_arrayref("homeroom:115,grade:05,deanslist:2009,extradata:foobar");
+ my $merged = extended_attributes_merge($patron_attributes, $new_attributes, 1);
-=back
+ # assuming deanslist is a repeatable code, value same as:
+ # $merged = extended_attributes_code_value_arrayref("homeroom:115,grade:05,deanslist:2007,deanslist:2008,deanslist:2009,extradata:foobar,somedata:xxx");
Takes three arguments. The first two are references to array of hashrefs, each like:
[ { code => 'CODE', value => 'value' }, { code => 'CODE2', value => 'othervalue' } ... ]
}
=head1 NAME
-
+
C4::Reports::Guided - Module for generating guided reports
=head1 SYNOPSIS
=head1 DESCRIPTION
+=cut
=head1 METHODS
=item execute_query
-=over
+ ($results, $total, $error) = execute_query($sql, $offset, $limit)
-($results, $total, $error) = execute_query($sql, $offset, $limit)
-=back
+When passed C<$sql>, this function returns an array ref containing a result set
+suitably formatted for display in html or for output as a flat file when passed in
+C<$format> and C<$id>. It also returns the C<$total> records available for the
+supplied query. If passed any query other than a SELECT, or if there is a db error,
+C<$errors> an array ref is returned containing the error after this manner:
- When passed C<$sql>, this function returns an array ref containing a result set
- suitably formatted for display in html or for output as a flat file when passed in
- C<$format> and C<$id>. It also returns the C<$total> records available for the
- supplied query. If passed any query other than a SELECT, or if there is a db error,
- C<$errors> an array ref is returned containing the error after this manner:
+C<$error->{'sqlerr'}> contains the offending SQL keyword.
+C<$error->{'queryerr'}> contains the native db engine error returned for the query.
- C<$error->{'sqlerr'}> contains the offending SQL keyword.
- C<$error->{'queryerr'}> contains the native db engine error returned for the query.
-
- Valid values for C<$format> are 'text,' 'tab,' 'csv,' or 'url. C<$sql>, C<$type>,
- C<$offset>, and C<$limit> are required parameters. If a valid C<$format> is passed
- in, C<$offset> and C<$limit> are ignored for obvious reasons. A LIMIT specified by
- the user in a user-supplied SQL query WILL apply in any case.
+Valid values for C<$format> are 'text,' 'tab,' 'csv,' or 'url. C<$sql>, C<$type>,
+C<$offset>, and C<$limit> are required parameters. If a valid C<$format> is passed
+in, C<$offset> and C<$limit> are ignored for obvious reasons. A LIMIT specified by
+the user in a user-supplied SQL query WILL apply in any case.
=cut
@EXPORT_OK = qw();
}
-=head2 EXAMPLE
+=head1 EXAMPLE
-our %item_db = (
+ our %item_db = (
'1565921879' => {
title => "Perl 5 desktop reference",
id => '1565921879',
$status->{ok} = 1;
return $status;
}
-
+
sub title_id {
my $self = shift;
return $self->{title};
1;
__END__
-=head2 EXAMPLES
+=head1 EXAMPLES
-our %patron_example = (
+ our %patron_example = (
djfiander => {
name => "David J. Fiander",
id => 'djfiander',
},
);
-From borrowers table:
-+---------------------+--------------+------+-----+
-| Field | Type | Null | Key |
-+---------------------+--------------+------+-----+
-| borrowernumber | int(11) | NO | PRI |
-| cardnumber | varchar(16) | YES | UNI |
-| surname | mediumtext | NO | |
-| firstname | text | YES | |
-| title | mediumtext | YES | |
-| othernames | mediumtext | YES | |
-| initials | text | YES | |
-| streetnumber | varchar(10) | YES | |
-| streettype | varchar(50) | YES | |
-| address | mediumtext | NO | |
-| address2 | text | YES | |
-| city | mediumtext | NO | |
-| zipcode | varchar(25) | YES | |
-| country | text | YES | |
-| email | mediumtext | YES | |
-| phone | text | YES | |
-| mobile | varchar(50) | YES | |
-| fax | mediumtext | YES | |
-| emailpro | text | YES | |
-| phonepro | text | YES | |
-| B_streetnumber | varchar(10) | YES | |
-| B_streettype | varchar(50) | YES | |
-| B_address | varchar(100) | YES | |
-| B_address2 | text | YES | |
-| B_city | mediumtext | YES | |
-| B_zipcode | varchar(25) | YES | |
-| B_country | text | YES | |
-| B_email | text | YES | |
-| B_phone | mediumtext | YES | |
-| dateofbirth | date | YES | |
-| branchcode | varchar(10) | NO | MUL |
-| categorycode | varchar(10) | NO | MUL |
-| dateenrolled | date | YES | |
-| dateexpiry | date | YES | |
-| gonenoaddress | tinyint(1) | YES | |
-| lost | tinyint(1) | YES | |
-| debarred | tinyint(1) | YES | |
-| contactname | mediumtext | YES | |
-| contactfirstname | text | YES | |
-| contacttitle | text | YES | |
-| guarantorid | int(11) | YES | |
-| borrowernotes | mediumtext | YES | |
-| relationship | varchar(100) | YES | |
-| ethnicity | varchar(50) | YES | |
-| ethnotes | varchar(255) | YES | |
-| sex | varchar(1) | YES | |
-| password | varchar(30) | YES | |
-| flags | int(11) | YES | |
-| userid | varchar(30) | YES | MUL |
-| opacnote | mediumtext | YES | |
-| contactnote | varchar(255) | YES | |
-| sort1 | varchar(80) | YES | |
-| sort2 | varchar(80) | YES | |
-| altcontactfirstname | varchar(255) | YES | |
-| altcontactsurname | varchar(255) | YES | |
-| altcontactaddress1 | varchar(255) | YES | |
-| altcontactaddress2 | varchar(255) | YES | |
-| altcontactaddress3 | varchar(255) | YES | |
-| altcontactzipcode | varchar(50) | YES | |
-| altcontactcountry | text | YES | |
-| altcontactphone | varchar(50) | YES | |
-| smsalertnumber | varchar(50) | YES | |
-+---------------------+--------------+------+-----+
-
-From C4::Members
-
-$flags->{KEY}
-{CHARGES}
+ From borrowers table:
+ +---------------------+--------------+------+-----+
+ | Field | Type | Null | Key |
+ +---------------------+--------------+------+-----+
+ | borrowernumber | int(11) | NO | PRI |
+ | cardnumber | varchar(16) | YES | UNI |
+ | surname | mediumtext | NO | |
+ | firstname | text | YES | |
+ | title | mediumtext | YES | |
+ | othernames | mediumtext | YES | |
+ | initials | text | YES | |
+ | streetnumber | varchar(10) | YES | |
+ | streettype | varchar(50) | YES | |
+ | address | mediumtext | NO | |
+ | address2 | text | YES | |
+ | city | mediumtext | NO | |
+ | zipcode | varchar(25) | YES | |
+ | country | text | YES | |
+ | email | mediumtext | YES | |
+ | phone | text | YES | |
+ | mobile | varchar(50) | YES | |
+ | fax | mediumtext | YES | |
+ | emailpro | text | YES | |
+ | phonepro | text | YES | |
+ | B_streetnumber | varchar(10) | YES | |
+ | B_streettype | varchar(50) | YES | |
+ | B_address | varchar(100) | YES | |
+ | B_address2 | text | YES | |
+ | B_city | mediumtext | YES | |
+ | B_zipcode | varchar(25) | YES | |
+ | B_country | text | YES | |
+ | B_email | text | YES | |
+ | B_phone | mediumtext | YES | |
+ | dateofbirth | date | YES | |
+ | branchcode | varchar(10) | NO | MUL |
+ | categorycode | varchar(10) | NO | MUL |
+ | dateenrolled | date | YES | |
+ | dateexpiry | date | YES | |
+ | gonenoaddress | tinyint(1) | YES | |
+ | lost | tinyint(1) | YES | |
+ | debarred | tinyint(1) | YES | |
+ | contactname | mediumtext | YES | |
+ | contactfirstname | text | YES | |
+ | contacttitle | text | YES | |
+ | guarantorid | int(11) | YES | |
+ | borrowernotes | mediumtext | YES | |
+ | relationship | varchar(100) | YES | |
+ | ethnicity | varchar(50) | YES | |
+ | ethnotes | varchar(255) | YES | |
+ | sex | varchar(1) | YES | |
+ | password | varchar(30) | YES | |
+ | flags | int(11) | YES | |
+ | userid | varchar(30) | YES | MUL |
+ | opacnote | mediumtext | YES | |
+ | contactnote | varchar(255) | YES | |
+ | sort1 | varchar(80) | YES | |
+ | sort2 | varchar(80) | YES | |
+ | altcontactfirstname | varchar(255) | YES | |
+ | altcontactsurname | varchar(255) | YES | |
+ | altcontactaddress1 | varchar(255) | YES | |
+ | altcontactaddress2 | varchar(255) | YES | |
+ | altcontactaddress3 | varchar(255) | YES | |
+ | altcontactzipcode | varchar(50) | YES | |
+ | altcontactcountry | text | YES | |
+ | altcontactphone | varchar(50) | YES | |
+ | smsalertnumber | varchar(50) | YES | |
+ +---------------------+--------------+------+-----+
+
+ From C4::Members
+
+ $flags->{KEY}
+ {CHARGES}
{message} Message showing patron's credit or debt
{noissues} Set if patron owes >$5.00
-{GNA} Set if patron gone w/o address
+ {GNA} Set if patron gone w/o address
{message} "Borrower has no valid address"
{noissues} Set.
-{LOST} Set if patron's card reported lost
+ {LOST} Set if patron's card reported lost
{message} Message to this effect
{noissues} Set.
-{DBARRED} Set if patron is debarred
+ {DBARRED} Set if patron is debarred
{message} Message to this effect
{noissues} Set.
-{NOTES} Set if patron has notes
+ {NOTES} Set if patron has notes
{message} Notes about patron
-{ODUES} Set if patron has overdue books
+ {ODUES} Set if patron has overdue books
{message} "Yes"
{itemlist} ref-to-array: list of overdue books
{itemlisttext} Text list of overdue items
-{WAITING} Set if there are items available that the patron reserved
+ {WAITING} Set if there are items available that the patron reserved
{message} Message to this effect
{itemlist} ref-to-array: list of available items
=head1 SYNOPSIS
+=cut
+
=head1 DESCRIPTION
=cut
=head1 NAME
- VirtualShelves/Page.pm
+VirtualShelves/Page.pm
=head1 DESCRIPTION
- Module used for both OPAC and intranet pages.
+Module used for both OPAC and intranet pages.
=head1 CGI PARAMETERS
=item C<modifyshelfcontents>
- If this script has to modify the shelf content.
+If this script has to modify the shelf content.
=item C<shelfnumber>
- To know on which shelf to work.
+To know on which shelf to work.
=item C<addbarcode>
=item C<op>
- Op can be:
- * modif: show the template allowing modification of the shelves;
- * modifsave: save changes from modif mode.
+ Op can be:
+ * modif: show the template allowing modification of the shelves;
+ * modifsave: save changes from modif mode.
=item C<viewshelf>
- Load template with 'viewshelves param' displaying the shelf's information.
+Load template with 'viewshelves param' displaying the shelf's information.
=item C<shelves>
- If the param shelves == 1, then add or delete a shelf.
+If the param shelves == 1, then add or delete a shelf.
=item C<addshelf>
- If the param shelves == 1, then addshelf is the name of the shelf to add.
+If the param shelves == 1, then addshelf is the name of the shelf to add.
=back
-=cut
\ No newline at end of file
+=cut
Galen Charlton galen.charlton at liblime.com
=cut
+
FIXME: deal with .htaccess
this script allows to add an order.
It is called by :
+=over
+
=item neworderbiblio.pl to add an order from nothing.
=item neworderempty.pl to add an order from an existing biblio.
=item newordersuggestion.pl to add an order from an existing suggestion.
+=back
+
=head1 CGI PARAMETERS
All of the cgi parameters below are related to the new order.
-=over 4
+=over
=item C<ordernumber>
the number of this new order.
use C4::Auth;
use C4::Budgets;
-=head1
+=head1 DESCRIPTION
fetches the budget amount fron the DB
use C4::Auth;
use C4::Budgets;
-=head1
+=head1 NAME
-fetch_sort_dropbox :
+fetch_sort_dropbox
=cut
neworderempty.pl
=head1 DESCRIPTION
+
this script allows to create a new record to order it. This record shouldn't exist
on database.
output_html_with_http_headers $input, $cookie, $template->output;
-=item MARCfindbreeding
+=head2 MARCfindbreeding
- $record = MARCfindbreeding($breedingid);
+ $record = MARCfindbreeding($breedingid);
Look up the import record repository for the record with
record with id $breedingid. If found, returns the decoded
orderreceive.pl
=head1 DESCRIPTION
+
This script shows all order already receive and all pendings orders.
It permit to write a new order as 'received'.
=over 4
=item supplierid
+
to know on what supplier this script has to display receive order.
=item receive
=item invoice
+
the number of this invoice.
=item freight
=item biblio
+
The biblionumber of this order.
=item datereceived
parcel.pl
=head1 DESCRIPTION
+
This script shows all orders receipt or pending for a given supplier.
It allows to write an order as 'received' when he arrives.
=over 4
=item supplierid
+
To know the supplier this script has to show orders.
=item code
+
is the bookseller invoice number.
=item freight
=item datereceived
+
To filter the results list on this given date.
=back
supplier.pl
=head1 DESCRIPTION
+
this script shows the details for a bookseller given on input arg.
It allows to edit & save information about this bookseller.
=over 4
=item supplierid
+
To know the bookseller this script has to display details.
=back
# 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
=head1 NAME
+
updatesupplier.pl
=head1 DESCRIPTION
+
this script allow to update or create (if id == 0)
a supplier. This script is called from acqui/supplier.pl.
=head1 CGI PARAMETERS
-=over 4
-
All informations regarding this supplier are listed on input parameter.
Here is the list :
+
supplier, id, company, company_postal, physical, company_phone,
physical, company_phone, company_fax, website, company_contact_name,
company_contact_position, contact_phone, contact_phone_2, contact_fax,
company_email, contact_notes, notes, status, publishers_imprints,
list_currency, gst, list_gst, invoice_gst, discount, gstrate.
-=back
-
=cut
+
use strict;
#use warnings; FIXME - Bug 2505
use C4::Context;
FIXME: individual fields in branch address need to be exported to templates,
in order to fix bug 180; need to notify translators
-FIXME: looped html (e.g., list of checkboxes) need to be properly
+ FIXME: looped html (e.g., list of checkboxes) need to be properly
TMPL_LOOP'ized; doing this properly will fix bug 130; need to
notify translators
FIXME: need to implement the branch categories stuff
Finlay working on this file from 26-03-2002
Reorganising this branches admin page.....
-
+
=cut
use strict;
use C4::Auth;
use C4::Budgets;
-=head1
+=head1 DESCRIPTION
fetches the budget amount fron the DB,
called by aqbudgets.pl and neworderempty.pl
use C4::Auth;
use C4::Budgets;
-=head1
+=head1 DESCRIPTION
This script checks the amount unallocated from the new parent budget , or the period - if no parent_id is given
my $itemtype; # created here because it can be used in build_authorized_values_list sub
our($authorised_values_sth,$is_a_modif,$usedTagsLib,$mandatory_z3950);
+=head1 FUNCTIONS
+
+=over
+
=item build_authorized_values_list
+builds list, depending on authorised value...
+
=cut
sub build_authorized_values_list ($$$$$$$) {
my @authorised_values;
my %authorised_lib;
- # builds list, depending on authorised value...
#---- branch
if ( $tagslib->{$tag}->{$subfield}->{'authorised_value'} eq "branches" ) {
=item create_input
+
builds the <input ...> entry for a subfield.
+
=cut
sub create_input {
=item CreateKey
- Create a random value to set it into the input name
+Create a random value to set it into the input name
=cut
}
}
+=back
+
+=cut
+
+
# ========================
# MAIN
#=========================
plugin_parameters : other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
# my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
the 3 scripts are inserted after the <input> in the html code
=cut
+
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
my $function_name= "barcode".(int(rand(100000))+1);
plugin_parameters : useless here
=cut
+
sub plugin_parameters {
# my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
the 3 scripts are inserted after the <input> in the html code
=cut
+
sub plugin_javascript {
# my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
my $function_name = "dateaccessioned".(int(rand(100000))+1);
plugin_parameters : other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
plugin_parameters : other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
# my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
the 3 scripts are inserted after the <input> in the html code
=cut
+
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
my $function_name= $field_number;
the 3 scripts are inserted after the <input> in the html code
=cut
+
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
my $function_name= $field_number;
plugin_parameters : other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
plugin_parameters : other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
plugin_parameters : other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
plugin_parameters : other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
plugin_parameters : other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
#use warnings; FIXME - Bug 2505
use C4::Context;
-=head1
+=head1 plugin_parameters
-plugin_parameters : other parameters added when the plugin is called by the dopop function
+other parameters added when the plugin is called by the dopop function
=cut
+
sub plugin_parameters {
# my ($dbh,$record,$tagslib,$i,$tabloop) = @_;
return "";
}
-=head1
+=head1 plugin_javascript
-plugin_javascript : the javascript function called when the user enters the subfield.
+The javascript function called when the user enters the subfield.
contain 3 javascript functions :
* one called when the field is entered (OnFocus). Named FocusXXX
* one called when the field is leaved (onBlur). Named BlurXXX
the 3 scripts are inserted after the <input> in the html code
=cut
+
sub plugin_javascript {
my ($dbh,$record,$tagslib,$field_number,$tabloop) = @_;
my $function_name= "inventory".(int(rand(100000))+1);
print "upgrade to Koha 3.0 done\n";
SetVersion ($DBversion);
-
-=item GetDefaultClause
+=head1 GetDefaultClause
Generate a default clause (for an ALTER TABLE command)
=cut
+
sub GetDefaultClause {
my $default = shift;
return "default " . $dbh->quote($default);
}
-=item TransformToNum
+=head1 TransformToNum
+
+Transform the Koha version from a 4 parts string
+to a number, with just 1.
- Transform the Koha version from a 4 parts string
- to a number, with just 1 .
-
=cut
sub TransformToNum {
return $version;
}
-=item SetVersion
- set the DBversion in the systempreferences
+=head1 SetVersion
+
+set the DBversion in the systempreferences
+
=cut
sub SetVersion {
# the next koha public release version number;
-# the kohaversion is divided in 4 parts :
-# - #1 : the major number. 3 atm
-# - #2 : the functionnal release. 00 atm
-# - #3 : the subnumber, moves only on a public release
-# - #4 : the developer version. The 4th number is the database subversion.
-# used by developers when the database changes. updatedatabase take care of the changes itself
-# and is automatically called by Auth.pm when needed.
+
+=head1 FUNCTIONS
+
+=head2 kohaversion
+
+the kohaversion is divided in 4 parts :
+ - #1 : the major number. 3 atm
+ - #2 : the functionnal release. 00 atm
+ - #3 : the subnumber, moves only on a public release
+ - #4 : the developer version. The 4th number is the database subversion.
+ used by developers when the database changes. updatedatabase take care of the changes itself
+ and is automatically called by Auth.pm when needed.
+=cut
use strict;
use C4::Creators 1.000000;
use C4::Labels 1.000000;
-=head
-
-=cut
-
my $cgi = new CGI;
my $batch_id = $cgi->param('batch_id') if $cgi->param('batch_id');
use C4::Creators 1.000000;
use C4::Labels 1.000000;
-=head
-
-=cut
-
my $cgi = new CGI;
my $batch_id = $cgi->param('batch_id') if $cgi->param('batch_id');
exit;
-=back
-
=head1 AUTHOR
Chris Nighswonger cnighswonger <at> foundations <dot> edu
"is_success: ", $url->{ is_success }, "\n",
"status: ", $url->{ status }, "\n";
}
-
+
=head1 FUNCTIONS
=head2 new
- we delete the designated record
=cut
+
# TODO This script drives the CRUD operations on the letter table
# The DB interaction should be handled by calls to C4/Letters.pm