# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
require Exporter;
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
- shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
-};
+$VERSION = 3.00;
=head1 NAME
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
require Exporter;
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
# used in receiveorder subroutine
# to provide library specific handling
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
- shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
-};
+$VERSION = 3.00;
=head1 NAME
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
@ISA = qw(Exporter);
@EXPORT = qw(
=cut
-# $Id$
-# $Log$
# Revision 1.50 2007/07/26 15:14:05 toins
# removing warn compilation.
#
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
@ISA = qw(Exporter);
@EXPORT = qw(
package C4::Boolean;
-# $Id$
#package to handle Boolean values in the parameters table
# Note: This is just a utility module; it should not be instantiated.
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
require Exporter;
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
# use Date::Calc;
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
require Exporter;
our ($VERSION,@ISA,@EXPORT,@EXPORT_OK,%EXPORT_TAGS);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
BEGIN {
=cut
-# $Log$
# Revision 1.57 2007/05/22 09:13:55 tipaul
# Bugfixes & improvements (various and minor) :
# - updating templates to have tmpl_process3.pl running without any errors
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
require Exporter;
use C4::Output;
our ($VERSION,@ISA,@EXPORT);
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict; use warnings; #FIXME: turn off warnings before release
require Exporter;
our ( $VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS );
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
- shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
-};
+$VERSION = 3.00;
=head1 NAME
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
require Exporter;
our ($VERSION,@ISA,@EXPORT,@EXPORT_OK);
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
# NOTE: I'm pretty sure this module is deprecated in favor of
# templates.
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
package C4::Overdues;
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
use C4::Log; # logaction
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
-shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
+$VERSION = 3.00;
=head1 NAME
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
require Exporter;
# set the version for version checking
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
- shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
-};
+$VERSION = 3.00;
=head1 NAME
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
#
-# $Id$
#
use strict;# use warnings; #FIXME: turn off warnings before release
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
- shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
+$VERSION = 3.00;
@ISA = qw(Exporter);
=head1 MODIFICATIONS
-# $Id$
=cut
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
require Exporter;
my $library_name = C4::Context->preference("LibraryName");
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
- shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
-};
+$VERSION = 3.00;
=head1 NAME
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
use C4::Date;
package C4::Stats;
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = $VERSION = do { my @v = '$Revision$' =~ /\d+/g;
- shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
-};
+$VERSION = 3.00;
=head1 NAME
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
require Exporter;
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
- shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
+$VERSION = 3.00;
=head1 NAME
package C4::VirtualShelves;
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
package C4::Z3950;
-# $Id$
# Routines for handling Z39.50 lookups
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g; shift(@v).".".join( "_", map { sprintf "%03d", $_ } @v ); };
+$VERSION = 3.00;
=head1 NAME
=cut
#--------------------------------------
-# $Log$
# Revision 1.14 2007/03/09 14:31:47 tipaul
# rel_3_0 moved to HEAD
#
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
#
-# $Id$
#
use strict; use warnings; #FIXME: turn off warnings before release
=head1 MODIFICATIONS
-# $Id$
=cut
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
require Exporter;
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
#!/usr/bin/perl
-# $Id$
# Copyright 2000-2002 Katipo Communications
#
# CCL field mappings
-# $Id$
# There are four types of lines in a CCL profile:
# 1. qualifier specification
# qualifier-name [ attributeset ,] type = val [ attributeset ,] type = val ...
-# $Id$
#
# Propeties file to drive org.z3950.zing.cql.CQLNode's toPQF()
# back-end and the YAZ CQL-to-PQF converter. This specifies the
use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
- shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
-};
+$VERSION = 3.00;
=head1 NAME
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
use CGI;
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
use CGI;
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
use CGI;
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
use CGI;
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
use CGI;
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
-# $Id$
use strict;
use CGI;
* Read the entire license text here: http://www.gnu.org/licenses/lgpl.html
*/
-// $Id$
/** The Calendar object constructor. */
Calendar = function (firstDayOfWeek, dateStr, onSelected, onClose) {
* Read the entire license text here: http://www.gnu.org/licenses/lgpl.html
*/
-// $Id$
/** The Calendar object constructor. */
Calendar = function (firstDayOfWeek, dateStr, onSelected, onClose) {
-# $Id$
# auth1 Attribute Set
name auth1
reference Bib-1
-# $Id$
# Bib-1 Attribute Set
name bib1
reference Bib-1
# Zebra indexes as referred to from the *.abs-files.
-# $Id$
#
# Traditional word index
-# $Id$
# indexing rules. It
# results in a server which provides a passable Bath level 0 and 1 service
-# $Id$
# This is a fairly simple example of a set of MARC21 Authority file indexing rules.
#Although designed for MARC21 most probably very similar with UNIMARC.
-# $Id$
# indexing rules. It
# results in a server which provides a passable Bath level 0 and 1 service
-# $Id$
# This is a fairly simple example of a set of MARC21 indexing rules. It
# results in a server which provides a passable Bath level 0 and 1 service
# Generic character map.
#
-# $Id$
encoding utf-8
#!/usr/bin/perl
-# $Id$
# Database Updater
# This script checks for required updates to the database.
}
exit;
-# $Log$
# Revision 1.172 2007/07/19 10:21:22 hdl