LEFT JOIN biblioitems ON biblioitems.biblionumber=biblio.biblionumber

            LEFT JOIN biblioitems ON biblioitems.biblionumber=biblio.biblionumber

    };

    };

    $query .= q{

    $query .= q{

            LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_to = aqorders.ordernumber

            LEFT JOIN aqorders_transfers ON aqorders_transfers.ordernumber_to = aqorders.ordernumber

    } if $ordernumber;

    } if $ordernumber;

    my $newordernumber = TransferOrder($ordernumber, $basketno);

    my $newordernumber = TransferOrder($ordernumber, $basketno);

Transfer an order line to a basket.

Transfer an order line to a basket.

to BOOKSELLER on DATE' and create new order with internal note

to BOOKSELLER on DATE' and create new order with internal note

Move all attached items to the new order.

Move all attached items to the new order.

Return the ordernumber of created order.

Return the ordernumber of created order.

=cut

=cut

    else {    # if this is an anonymous session, setup to display public lists...

    else {    # if this is an anonymous session, setup to display public lists...

        # If shibboleth is enabled, and we're in an anonymous session, we should allow

        # If shibboleth is enabled, and we're in an anonymous session, we should allow

        if ($shib) {

        if ($shib) {

            $template->param( shibbolethAuthentication => $shib,

            $template->param( shibbolethAuthentication => $shib,

                shibbolethLoginUrl => login_shib_url( $in->{'query'} ),

                shibbolethLoginUrl => login_shib_url( $in->{'query'} ),

    my $query = shift;

    my $query = shift;

    my $version;

    my $version;

    # and so we must redirect to OPAC maintenance page or to the WebInstaller

    # and so we must redirect to OPAC maintenance page or to the WebInstaller

    # also, if OpacMaintenance is ON, OPAC should redirect to maintenance

    # also, if OpacMaintenance is ON, OPAC should redirect to maintenance

    if ( C4::Context->preference('OpacMaintenance') && $type eq 'opac' ) {

    if ( C4::Context->preference('OpacMaintenance') && $type eq 'opac' ) {

    }

    }

    elsif ($persona) {

    elsif ($persona) {

    }

    }

    elsif ( $sessionID = $query->cookie("CGISESSID") )

    elsif ( $sessionID = $query->cookie("CGISESSID") )

    {    # assignment, not comparison

    {    # assignment, not comparison

                $info{'invalidShibLogin'} = 1 unless ($return);

                $info{'invalidShibLogin'} = 1 unless ($return);

            }

            }

            unless ($shibSuccess) {

            unless ($shibSuccess) {

                if ( $cas && $query->param('ticket') ) {

                if ( $cas && $query->param('ticket') ) {

                    my $retuserid;

                    my $retuserid;

Returns a hashref with a summary of the specified record.

Returns a hashref with a summary of the specified record.

Moreover, authid can also be inferred from $record.

Moreover, authid can also be inferred from $record.

Would it be interesting to delete those things.

Would it be interesting to delete those things.

	}

	}

	my $x = length($incr);		# number of digits

	my $x = length($incr);		# number of digits

	$incr =~ /^9+$/ and $x++;	# if they're all 9's, we need an extra.

	$incr =~ /^9+$/ and $x++;	# if they're all 9's, we need an extra.

		# Those should override next_value() to work accordingly.

		# Those should override next_value() to work accordingly.

	$incr++;

	$incr++;

This format is deprecated and SHOULD NOT BE USED.

This format is deprecated and SHOULD NOT BE USED.

multiple branch libraries, given that the format caps the available namespace to

multiple branch libraries, given that the format caps the available namespace to

10,000 barcodes per year TOTAL.  

10,000 barcodes per year TOTAL.  

    # Internal functions

    # Internal functions

    # those functions are exported but should not be used

    # those functions are exported but should not be used

    push @EXPORT, qw(

    push @EXPORT, qw(

      &ModBiblioMarc

      &ModBiblioMarc

    );

    );

            (                          # start of capturing parenthesis

            (                          # start of capturing parenthesis

            (?:

            (?:

            (?:[\p{Sc}\p{L}\/.]){1,4}  # any character from Currency signs or Letter Unicode categories or slash or dot                                              within 1 to 4 occurrences : call this whole block 'symbol block'

            (?:[\p{Sc}\p{L}\/.]){1,4}  # any character from Currency signs or Letter Unicode categories or slash or dot                                              within 1 to 4 occurrences : call this whole block 'symbol block'

            )

            )

            \s?\p{Sc}?\s?              # followed or not by a whitespace. \p{Sc}?\s? are for cases like '25$ USD'

            \s?\p{Sc}?\s?              # followed or not by a whitespace. \p{Sc}?\s? are for cases like '25$ USD'

            (?:

            (?:

$error = &ModBranch($newvalue);

$error = &ModBranch($newvalue);

=cut

=cut

    $single_holidays = $calendar->get_single_holidays();

    $single_holidays = $calendar->get_single_holidays();

Returns a hash reference to single holidays. This kind of holidays are those which

Returns a hash reference to single holidays. This kind of holidays are those which

=cut

=cut

    }

    }

#

#

    #

    #

	my ($current_loan_count, $max_loans_allowed) = TooMany( $borrower, $item->{biblionumber}, $item );

	my ($current_loan_count, $max_loans_allowed) = TooMany( $borrower, $item->{biblionumber}, $item );

    # if TooMany max_loans_allowed returns 0 the user doesn't have permission to check out this book

    # if TooMany max_loans_allowed returns 0 the user doesn't have permission to check out this book

            UpdateTotalIssues($item->{'biblionumber'}, 1);

            UpdateTotalIssues($item->{'biblionumber'}, 1);

        }

        }

        if ( $item->{'itemlost'} ) {

        if ( $item->{'itemlost'} ) {

            if ( C4::Context->preference('RefundLostItemFeeOnReturn' ) ) {

            if ( C4::Context->preference('RefundLostItemFeeOnReturn' ) ) {

                _FixAccountForLostAndReturned( $item->{'itemnumber'}, undef, $item->{'barcode'} );

                _FixAccountForLostAndReturned( $item->{'itemnumber'}, undef, $item->{'barcode'} );

    my $issue  = GetItemIssue($itemnumber);

    my $issue  = GetItemIssue($itemnumber);

    if ($issue and $issue->{borrowernumber}) {

    if ($issue and $issue->{borrowernumber}) {

        $borrower = C4::Members::GetMemberDetails($issue->{borrowernumber})

        $borrower = C4::Members::GetMemberDetails($issue->{borrowernumber})

                . Dumper($issue) . "\n";

                . Dumper($issue) . "\n";

    } else {

    } else {

        $messages->{'NotIssued'} = $barcode;

        $messages->{'NotIssued'} = $barcode;

        }

        }

    }

    }

    my ( $hardduedate, $hardduedatecompare ) =

    my ( $hardduedate, $hardduedatecompare ) =

      GetHardDueDate( $borrower->{'categorycode'}, $itemtype, $branch );

      GetHardDueDate( $borrower->{'categorycode'}, $itemtype, $branch );

    if ($hardduedate) {    # hardduedates are currently dates

    if ($hardduedate) {    # hardduedates are currently dates

    my @values = split ' ', uc($record_restrictions);

    my @values = split ' ', uc($record_restrictions);

    return unless @values;

    return unless @values;

    my @markers = split /\|/, uc($markers);

    my @markers = split /\|/, uc($markers);

    return unless @markers;

    return unless @markers;

   &GetClassSortKey

   &GetClassSortKey

);

);

my %loaded_routines = ();

my %loaded_routines = ();

my @sort_routines = GetSortRoutineNames();

my @sort_routines = GetSortRoutineNames();

foreach my $sort_routine (@sort_routines) {

foreach my $sort_routine (@sort_routines) {

    # the first time the module is called

    # the first time the module is called

    # (a config file can be optionaly passed)

    # (a config file can be optionaly passed)

    return if $context;

    return if $context;

    # no ? so load it!

    # no ? so load it!

    }

    }

    if ($ismemcached) {

    if ($ismemcached) {

        $self = $memcached->get('kohaconf');

        $self = $memcached->get('kohaconf');

        if (not defined $self) {

        if (not defined $self) {

            # not in memcached yet

            # not in memcached yet

}

}

# FIXME: This method is effectively useless the way the current add_item method is written. Ideally, the items should be added to the object

# FIXME: This method is effectively useless the way the current add_item method is written. Ideally, the items should be added to the object

#

#

#=head2 $batch->save()

#=head2 $batch->save()

#

#

        push @params, $opts{'layout_id'}, $opts{'creator'};

        push @params, $opts{'layout_id'}, $opts{'creator'};

    }

    }

    if (scalar(@params) < 2) {   # If there is no layout id or creator type then we cannot delete it

    if (scalar(@params) < 2) {   # If there is no layout id or creator type then we cannot delete it

        return -1;

        return -1;

    }

    }

    my $query = "DELETE FROM creator_layouts WHERE layout_id = ? AND creator = ?";

    my $query = "DELETE FROM creator_layouts WHERE layout_id = ? AND creator = ?";

            CODE39MOD10     = Code 3 of 9 with modulo 10 checksum

            CODE39MOD10     = Code 3 of 9 with modulo 10 checksum

=item .

=item .

=item .

=item .

            INDUSTRIAL2OF5  = The standard 2 of 5 barcode (a binary level bar code developed by Identicon Corp. and Computer Identics Corp. in 1970)

            INDUSTRIAL2OF5  = The standard 2 of 5 barcode (a binary level bar code developed by Identicon Corp. and Computer Identics Corp. in 1970)

=head1 NAME

=head1 NAME

                    PDF::Reuse documentation and C4::Creators::PDF code.

                    PDF::Reuse documentation and C4::Creators::PDF code.

=cut

=cut

        push @params, $opts{'profile_id'}, $opts{'creator'};

        push @params, $opts{'profile_id'}, $opts{'creator'};

    }

    }

    if (scalar(@params) < 2) {   # If there is no profile id or creator type then we cannot delete it

    if (scalar(@params) < 2) {   # If there is no profile id or creator type then we cannot delete it

        return -1;

        return -1;

    }

    }

    my $query = "DELETE FROM printers_profile WHERE profile_id = ? AND creator = ?";

    my $query = "DELETE FROM printers_profile WHERE profile_id = ? AND creator = ?";

        push @query_params, $opts{'template_id'}, $opts{'creator'};

        push @query_params, $opts{'template_id'}, $opts{'creator'};

    }

    }

    if (scalar(@query_params) < 2) {   # If there is no template id or creator type then we cannot delete it

    if (scalar(@query_params) < 2) {   # If there is no template id or creator type then we cannot delete it

        return -1;

        return -1;

    }

    }

    my $query = "DELETE FROM creator_templates WHERE template_id = ? AND creator = ?";

    my $query = "DELETE FROM creator_templates WHERE template_id = ? AND creator = ?";

        my $template = C4::Labels::Template->new(profile_id => 1, page_width => 8.5, page_height => 11.0, units => 'INCH'); # Creates and returns a new template object using

        my $template = C4::Labels::Template->new(profile_id => 1, page_width => 8.5, page_height => 11.0, units => 'INCH'); # Creates and returns a new template object using

            the supplied values to override the defaults

            the supplied values to override the defaults

=head2 retrieve(template_id => $template_id)

=head2 retrieve(template_id => $template_id)

With no argument, format returns the object's current date_format.  Otherwise it attempts to 

With no argument, format returns the object's current date_format.  Otherwise it attempts to 

set the object format to the supplied value.

set the object format to the supplied value.

method/function to tell you whether or not a Dates.pm object is of the 'iso' type.  But you 

method/function to tell you whether or not a Dates.pm object is of the 'iso' type.  But you 

can see by this example that such a test is trivial to accomplish, and not necessary to 

can see by this example that such a test is trivial to accomplish, and not necessary to 

include in the module:

include in the module:

Perhaps you want to force data obtained in a known format to display according to the user's system

Perhaps you want to force data obtained in a known format to display according to the user's system

preference, without necessarily knowing what that preference is.  For this purpose, you can use the

preference, without necessarily knowing what that preference is.  For this purpose, you can use the

For example, to print an ISO date (from the database) in the <systempreference> format:

For example, to print an ISO date (from the database) in the <systempreference> format:

        $error = qx($strcmd -f $filename 2>&1 1>/dev/null);

        $error = qx($strcmd -f $filename 2>&1 1>/dev/null);

        # Be sure to set 'client_min_messages = error' in postgresql.conf

        # Be sure to set 'client_min_messages = error' in postgresql.conf

        # so that only true errors are returned to stderr or else the installer will

        # so that only true errors are returned to stderr or else the installer will

    }

    }

#   errors thrown while loading installer data should be logged

#   errors thrown while loading installer data should be logged

    if($error) {

    if($error) {

This function uses the hash %default_values_for_mod_from_marc,

This function uses the hash %default_values_for_mod_from_marc,

which contains default values for item fields to

which contains default values for item fields to

if an item field's value is cleared, TransformMarcToKoha

if an item field's value is cleared, TransformMarcToKoha

does not include the column in the

does not include the column in the

hash that's passed to ModItem, which without

hash that's passed to ModItem, which without

NOTE: does B<not> return an individual item's

NOTE: does B<not> return an individual item's

status.

status.

fwkcode is optional.

fwkcode is optional.

But basically could be can be loan or not

But basically could be can be loan or not

Create a status selector with the following code

Create a status selector with the following code

        $error = "not_same_branch";

        $error = "not_same_branch";

    }

    }

	else{

	else{

        $sth = $dbh->prepare(q{

        $sth = $dbh->prepare(q{

            SELECT COUNT(*) FROM reserves

            SELECT COUNT(*) FROM reserves

            WHERE (found = 'W' OR found = 'T')

            WHERE (found = 'W' OR found = 'T')

  my @isbns = GetVariationsOfISBN( $isbn );

  my @isbns = GetVariationsOfISBN( $isbn );

  both ISBN-10 and ISBN-13 formats, with and without

  both ISBN-10 and ISBN-13 formats, with and without

  hyphens.

  hyphens.

  my @isbns = GetVariationsOfISBNs( @isbns );

  my @isbns = GetVariationsOfISBNs( @isbns );

  both ISBN-10 and ISBN-13 formats, with and without

  both ISBN-10 and ISBN-13 formats, with and without

  hyphens.

  hyphens.

            CODE39MOD10     = Code 3 of 9 with modulo 10 checksum

            CODE39MOD10     = Code 3 of 9 with modulo 10 checksum

=item .

=item .

=item .

=item .

            INDUSTRIAL2OF5  = The standard 2 of 5 barcode (a binary level bar code developed by Identicon Corp. and Computer Identics Corp. in 1970)

            INDUSTRIAL2OF5  = The standard 2 of 5 barcode (a binary level bar code developed by Identicon Corp. and Computer Identics Corp. in 1970)

=head2 C4::Patroncards::Lib::unpack_UTF8()

=head2 C4::Patroncards::Lib::unpack_UTF8()

    indeed utf8.

    indeed utf8.

    example:

    example:

=head2 C4::Patroncards::Lib::leading()

=head2 C4::Patroncards::Lib::leading()

    example:

    example:

All subroutines in Ratings.pm return a hashref which contain 4 keys

All subroutines in Ratings.pm return a hashref which contain 4 keys

    my $rating_hashref = GetRating ( $biblionumber, $borrowernumber ) ;

    my $rating_hashref = GetRating ( $biblionumber, $borrowernumber ) ;

sub get_columns {

sub get_columns {

    my ( $area, $cgi ) = @_;

    my ( $area, $cgi ) = @_;

    my %table_areas = get_table_areas;

    my %table_areas = get_table_areas;

    my $tables = $table_areas{$area}

    my $tables = $table_areas{$area}

C<$offset>, and C<$limit> are required parameters.

C<$offset>, and C<$limit> are required parameters.

C<\@sql_params> is an optional list of parameter values to paste in.

C<\@sql_params> is an optional list of parameter values to paste in.

and that the number placeholders matches the number of parameters.

and that the number placeholders matches the number of parameters.

=cut

=cut

	my $catalog;

	my $catalog;

	my $schema;

	my $schema;

	my $tempcolumn='%';

	my $tempcolumn='%';

	my $sth = $dbh->column_info( $catalog, $schema, $table, $tempcolumn ) || die $dbh->errstr;

	my $sth = $dbh->column_info( $catalog, $schema, $table, $tempcolumn ) || die $dbh->errstr;

	while (my $info = $sth->fetchrow_hashref()){

	while (my $info = $sth->fetchrow_hashref()){

  The following columns contains important values :

  The following columns contains important values :

  - priority >0      : then the reserve is at 1st stage, and not yet affected to any item.

  - priority >0      : then the reserve is at 1st stage, and not yet affected to any item.

             =0      : then the reserve is being dealed

             =0      : then the reserve is being dealed

            T(ransit)  : the reserve is linked to an item but is in transit to the pickup branch

            T(ransit)  : the reserve is linked to an item but is in transit to the pickup branch

            W(aiting)  : the reserve is linked to an item, is at the pickup branch, and is waiting on the hold shelf

            W(aiting)  : the reserve is linked to an item, is at the pickup branch, and is waiting on the hold shelf

            F(inished) : the reserve has been completed, and is done

            F(inished) : the reserve has been completed, and is done

         if there is no transfer to do, the reserve waiting

         if there is no transfer to do, the reserve waiting

         patron can pick it up                                    P =0, F=W,    I=filled

         patron can pick it up                                    P =0, F=W,    I=filled

         if there is a transfer to do, write in branchtransfer    P =0, F=T,    I=filled

         if there is a transfer to do, write in branchtransfer    P =0, F=T,    I=filled

  The patron borrow the book                                      P =0, F=F,    I=filled

  The patron borrow the book                                      P =0, F=F,    I=filled

  ==== 2nd use case ====

  ==== 2nd use case ====

  ($messages,$nextreservinfo)=$GetOtherReserves(itemnumber);

  ($messages,$nextreservinfo)=$GetOtherReserves(itemnumber);

=cut

=cut

    my $request = GetReserveInfo($reserve_id);

    my $request = GetReserveInfo($reserve_id);

    my $already_on_shelf = ($request && $request->{found} eq 'W') ? 1 : 0;

    my $already_on_shelf = ($request && $request->{found} eq 'W') ? 1 : 0;

    my $query;

    my $query;

    if ($transferToDo) {

    if ($transferToDo) {

    $query = "

    $query = "

    my $itype;

    my $itype;

    if (C4::Context->preference('item-level_itypes')) {

    if (C4::Context->preference('item-level_itypes')) {

        # When GetItem is fixed, we can remove this

        # When GetItem is fixed, we can remove this

        $itype = $item->{itype};

        $itype = $item->{itype};

    }

    }

    my $dbh   = C4::Context->dbh;

    my $dbh   = C4::Context->dbh;

    # TODO: consolidate at least the SELECT portion of the first 2 queries to a common $select var.

    # TODO: consolidate at least the SELECT portion of the first 2 queries to a common $select var.

    my $item_level_target_query = qq{

    my $item_level_target_query = qq{

        SELECT reserves.biblionumber        AS biblionumber,

        SELECT reserves.biblionumber        AS biblionumber,

               reserves.borrowernumber      AS borrowernumber,

               reserves.borrowernumber      AS borrowernumber,

    }

    }

    return @results if @results;

    return @results if @results;

    my $title_level_target_query = qq{

    my $title_level_target_query = qq{

        SELECT reserves.biblionumber        AS biblionumber,

        SELECT reserves.biblionumber        AS biblionumber,

               reserves.borrowernumber      AS borrowernumber,

               reserves.borrowernumber      AS borrowernumber,

    my $itype;

    my $itype;

    my $dbh = C4::Context->dbh;

    my $dbh = C4::Context->dbh;

    if (C4::Context->preference('item-level_itypes')) {

    if (C4::Context->preference('item-level_itypes')) {

       # When GetItem is fixed, we can remove this

       # When GetItem is fixed, we can remove this

       $itype = $item->{itype};

       $itype = $item->{itype};

    }

    }

##********************************************************************

##********************************************************************

## print_typetag(): prints the first line of a RIS dataset including

## print_typetag(): prints the first line of a RIS dataset including

## Argument: the leader of a MARC dataset

## Argument: the leader of a MARC dataset

## Returns: the value at leader position 06 

## Returns: the value at leader position 06 

##********************************************************************

##********************************************************************

		$protoyear =~ s% *[\.;:/]*$%%;

		$protoyear =~ s% *[\.;:/]*$%%;

		## isolate a four-digit year. We discard anything

		## isolate a four-digit year. We discard anything

		## the year as other info.

		## the year as other info.

		$protoyear =~ s%\D*([0-9\-]{4})(.*)%$1///$2%;

		$protoyear =~ s%\D*([0-9\-]{4})(.*)%$1///$2%;

    my $schema = Koha::Database->new()->schema();

    my $schema = Koha::Database->new()->schema();

    my $duplicate_titles = $schema->resultset('Collection')->count({ colTitle => $title });

    my $duplicate_titles = $schema->resultset('Collection')->count({ colTitle => $title });

    if ( !$title ) {

    if ( !$title ) {

        return ( 0, 1, "NO_TITLE" );

        return ( 0, 1, "NO_TITLE" );

    } elsif ( $duplicate_titles ) {

    } elsif ( $duplicate_titles ) {

    my $schema = Koha::Database->new()->schema();

    my $schema = Koha::Database->new()->schema();

    my $duplicate_titles = $schema->resultset('Collection')->count({ colTitle => $title,  -not => { colId => $colId } });

    my $duplicate_titles = $schema->resultset('Collection')->count({ colTitle => $title,  -not => { colId => $colId } });

    if ( !$colId ) {

    if ( !$colId ) {

        return ( 0, 1, "NO_ID" );

        return ( 0, 1, "NO_ID" );

    }

    }

 Deletes a collection of the given id

 Deletes a collection of the given id

 Input:

 Input:

 Output:

 Output:

   $success: 1 if all database operations were successful, 0 otherwise

   $success: 1 if all database operations were successful, 0 otherwise

sub DeleteCollection {

sub DeleteCollection {

    my ($colId) = @_;

    my ($colId) = @_;

    if ( !$colId ) {

    if ( !$colId ) {

        return ( 0, 1, "NO_ID" );

        return ( 0, 1, "NO_ID" );

    }

    }

sub GetItemsInCollection {

sub GetItemsInCollection {

    my ($colId) = @_;

    my ($colId) = @_;

    if ( !$colId ) {

    if ( !$colId ) {

        return ( 0, 0, 1, "NO_ID" );

        return ( 0, 0, 1, "NO_ID" );

    }

    }

sub AddItemToCollection {

sub AddItemToCollection {

    my ( $colId, $itemnumber ) = @_;

    my ( $colId, $itemnumber ) = @_;

    if ( !$colId ) {

    if ( !$colId ) {

        return ( 0, 1, "NO_ID" );

        return ( 0, 1, "NO_ID" );

    }

    }

sub RemoveItemFromCollection {

sub RemoveItemFromCollection {

    my ( $colId, $itemnumber ) = @_;

    my ( $colId, $itemnumber ) = @_;

    if ( !$itemnumber ) {

    if ( !$itemnumber ) {

        return ( 0, 2, "NO_ITEM" );

        return ( 0, 2, "NO_ITEM" );

    }

    }

sub TransferCollection {

sub TransferCollection {

    my ( $colId, $colBranchcode ) = @_;

    my ( $colId, $colBranchcode ) = @_;

    if ( !$colId ) {

    if ( !$colId ) {

        return ( 0, 1, "NO_ID" );

        return ( 0, 1, "NO_ID" );

    }

    }

=head2 C<$str = $patron-E<gt>sip_birthdate;>

=head2 C<$str = $patron-E<gt>sip_birthdate;>

specification:

specification:

	YYYYMMDD    HHMMSS

	YYYYMMDD    HHMMSS

=head2 C<$str = $patron-E<gt>language;>

=head2 C<$str = $patron-E<gt>language;>

The full list is defined in the SIP specification, but some of

The full list is defined in the SIP specification, but some of

the important values are:

the important values are:

    $value=~s/\r/ /g; # CR terminates a sip message

    $value=~s/\r/ /g; # CR terminates a sip message

                      # Protect against them in sip text fields

                      # Protect against them in sip text fields

    # field value with the HTML character entity

    # field value with the HTML character entity

    $ent = sprintf("&#%d;", ord($field_delimiter));

    $ent = sprintf("&#%d;", ord($field_delimiter));

			#

			#

			my $module = $server->{config}->{institutions}->{$inst}->{implementation};

			my $module = $server->{config}->{institutions}->{$inst}->{implementation};

			syslog("LOG_DEBUG", 'login_core: ' . Dumper($module));

			syslog("LOG_DEBUG", 'login_core: ' . Dumper($module));

            if ($module eq 'ILS') {

            if ($module eq 'ILS') {

                $module = 'C4::SIP::ILS';

                $module = 'C4::SIP::ILS';

            }

            }

#

#

# Build the detailed summary information for the Patron

# Build the detailed summary information for the Patron

# Information Response message based on the first 'Y' that appears

# Information Response message based on the first 'Y' that appears

# specification says that only one 'Y' can appear in that field,

# specification says that only one 'Y' can appear in that field,

# and we're going to believe it.

# and we're going to believe it.

#

#

    if ($no_block eq 'Y') {

    if ($no_block eq 'Y') {

	syslog("LOG_WARNING",

	syslog("LOG_WARNING",

	       $server->{account}->{id});

	       $server->{account}->{id});

    }

    }

	$resp .= '0NUN';

	$resp .= '0NUN';

	$resp .= timestamp;

	$resp .= timestamp;

	# If we found the patron or the item, the return the ILS

	# If we found the patron or the item, the return the ILS

	# from the terminal

	# from the terminal

	$resp .= add_field(FID_PATRON_ID, $patron ? $patron->id     : $patron_id);

	$resp .= add_field(FID_PATRON_ID, $patron ? $patron->id     : $patron_id);

	$resp .= add_field(FID_ITEM_ID,     $item ? $item->id       : $item_id  );

	$resp .= add_field(FID_ITEM_ID,     $item ? $item->id       : $item_id  );

    * $query can be a simple keyword or a complete CCL query

    * $query can be a simple keyword or a complete CCL query

    * @servers is optional. Defaults to biblioserver as found in koha-conf.xml

    * @servers is optional. Defaults to biblioserver as found in koha-conf.xml

    * $max_results - if present, determines the maximum number of records to fetch. undef is All. defaults to undef.

    * $max_results - if present, determines the maximum number of records to fetch. undef is All. defaults to undef.

# remove stopwords from operand : parse all stopwords & remove them (case insensitive)

# remove stopwords from operand : parse all stopwords & remove them (case insensitive)

#       we use IsAlpha unicode definition, to deal correctly with diacritics.

#       we use IsAlpha unicode definition, to deal correctly with diacritics.

#       is a stopword, we'd get "çon" and wouldn't find anything...

#       is a stopword, we'd get "çon" and wouldn't find anything...

#

#

		foreach ( keys %{ C4::Context->stopwords } ) {

		foreach ( keys %{ C4::Context->stopwords } ) {

=head2 is_barcode_in_use

=head2 is_barcode_in_use

Can be used as a boolean test of whether the barcode has

Can be used as a boolean test of whether the barcode has

been deployed as yet

been deployed as yet

sub is_barcode_in_use {

sub is_barcode_in_use {

    my $barcode = shift;

    my $barcode = shift;

    my $dbh       = C4::Context->dbh;

    my $dbh       = C4::Context->dbh;

        'SELECT itemnumber from items where barcode = ?',

        'SELECT itemnumber from items where barcode = ?',

        {}, $barcode

        {}, $barcode

    );

    );

}

}

=head2 CloseSubscription

=head2 CloseSubscription

=head1 AUTHOR

=head1 AUTHOR

=cut

=cut

=head1 AUTHOR

=head1 AUTHOR

=cut

=cut

The option C<$num_each_side> value determines how many items will be fetched

The option C<$num_each_side> value determines how many items will be fetched

each side of the supplied item. Note that the item itself is the first entry

each side of the supplied item. Note that the item itself is the first entry

in the 'next' set, and counts towards this limit (this is to keep the

in the 'next' set, and counts towards this limit (this is to keep the

3.

3.

This will throw an exception if something went wrong.

This will throw an exception if something went wrong.

sub build_tokens{

sub build_tokens{

    my ($self, $filename) = @_;

    my ($self, $filename) = @_;

    $self->{filename} = $filename;

    $self->{filename} = $filename;

    $self->handler(declaration => "declaration", "self, line, text, is_cdata"); # declaration

    $self->handler(declaration => "declaration", "self, line, text, is_cdata"); # declaration

    $self->handler(comment => "comment", "self, line, text, is_cdata"); # comments

    $self->handler(comment => "comment", "self, line, text, is_cdata"); # comments

#    $self->handler(default => "default", "self, line, text, is_cdata"); # anything else

#    $self->handler(default => "default", "self, line, text, is_cdata"); # anything else

    my $line = shift;

    my $line = shift;

    my $tag = shift;

    my $tag = shift;

    my $hash = shift; #hash of attr/value pairs

    my $hash = shift; #hash of attr/value pairs

    my $t = C4::TmplToken->new( $text, C4::TmplTokenType::TAG, $line, $self->{filename});

    my $t = C4::TmplToken->new( $text, C4::TmplTokenType::TAG, $line, $self->{filename});

    my %attr;

    my %attr;

    # tags seem to be uses in an 'interesting' way elsewhere..

    # tags seem to be uses in an 'interesting' way elsewhere..

#   ($min, $max) = stratify_tags($strata, $tags);

#   ($min, $max) = stratify_tags($strata, $tags);

# $stratum: the number of divisions you want

# $stratum: the number of divisions you want

# $tags: the tags, as provided by get_approval_rows

# $tags: the tags, as provided by get_approval_rows

# $max: the maximum stratum value. This may be the same as $min if there

# $max: the maximum stratum value. This may be the same as $min if there

# is only one weight. Beware of divide by zeros.

# is only one weight. Beware of divide by zeros.

# This will add a field to the tag called "stratum" containing the calculated

# This will add a field to the tag called "stratum" containing the calculated

	approved       - Negative, 0 or positive if tag is rejected, pending or approved.

	approved       - Negative, 0 or positive if tag is rejected, pending or approved.

	date_approved  - date of last action

	date_approved  - date of last action

	approved_by    - staffer performing the last action

	approved_by    - staffer performing the last action

tags_index - This table is for performance, because by far the most common operation will 

tags_index - This table is for performance, because by far the most common operation will 

be fetching tags for a list of search results.  We will have a set of biblios, and we will

be fetching tags for a list of search results.  We will have a set of biblios, and we will

This module allows for tracking the progress of the file

This module allows for tracking the progress of the file

currently being uploaded.

currently being uploaded.

=cut

=cut

      C4::Context->config('intranetdir') . '/admin/columns_settings.yml';

      C4::Context->config('intranetdir') . '/admin/columns_settings.yml';

    my $yaml = eval { YAML::LoadFile($yml_path) };

    my $yaml = eval { YAML::LoadFile($yml_path) };

    warn

    warn

      if $@;

      if $@;

    return $yaml;

    return $yaml;

}

}

    my ($iTotalRecords, $iTotalDisplayRecords);

    my ($iTotalRecords, $iTotalDisplayRecords);

    # The search has to be only on the user branch

    # The search has to be only on the user branch

    if ( C4::Branch::onlymine ) {

    if ( C4::Branch::onlymine ) {

        my $userenv = C4::Context->userenv;

        my $userenv = C4::Context->userenv;

=head2 getAuthorisedValues4MARCSubfields

=head2 getAuthorisedValues4MARCSubfields

Is only used in this module currently.

Is only used in this module currently.

=cut

=cut