[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/C4 Record.pm
From: |
Joshua Ferraro |
Subject: |
[Koha-cvs] koha/C4 Record.pm |
Date: |
Wed, 24 May 2006 23:30:46 +0000 |
CVSROOT: /sources/koha
Module name: koha
Branch:
Changes by: Joshua Ferraro <address@hidden> 06/05/24 23:30:46
Modified files:
C4 : Record.pm
Log message:
fixing some misspellings, reformatting a bit, etc.
CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/C4/Record.pm.diff?tr1=1.1&tr2=1.2&r1=text&r2=text
Patches:
Index: koha/C4/Record.pm
diff -u koha/C4/Record.pm:1.1 koha/C4/Record.pm:1.2
--- koha/C4/Record.pm:1.1 Wed May 24 21:29:32 2006
+++ koha/C4/Record.pm Wed May 24 23:30:43 2006
@@ -18,7 +18,7 @@
# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
# Suite 330, Boston, MA 02111-1307 USA
#
-# $Id: Record.pm,v 1.1 2006/05/24 21:29:32 kados Exp $
+# $Id: Record.pm,v 1.2 2006/05/24 23:30:43 kados Exp $
#
use strict; use warnings; #FIXME: turn off warnings before release
@@ -29,7 +29,7 @@
use vars qw($VERSION @ISA @EXPORT);
# set the version for version checking
-$VERSION = do { my @v = '$Revision: 1.1 $' =~ /\d+/g;
+$VERSION = do { my @v = '$Revision: 1.2 $' =~ /\d+/g;
shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };
@ISA = qw(Exporter);
@@ -58,11 +58,11 @@
my $marcxml = marc2marcxml($marc,$encoding,$flavour);
-returns an XML scalar variable
+returns a MARCXML scalar variable
C<$marc> a MARC::Record object or binary MARC record
-C<$encoding> UTF-8 or MARC-8 [UTF-8}
+C<$encoding> UTF-8 or MARC-8 [UTF-8]
C<$flavour> MARC21 or UNIMARC
@@ -96,7 +96,7 @@
unless($encoding) {$encoding = "UTF-8"};
unless($flavour) {$flavour =
C4::Context->preference("TemplateEncoding")};
#FIXME: add error handling
- my $marc = $marcxml->new_from_xml($record,$encoding,$flavour);
+ my $marc = $marcxml->new_from_xml($marcxml,$encoding,$flavour);
return $marc;
}
@@ -319,7 +319,8 @@
Joshua Ferraro <address@hidden>
-=cut
=head MODIFICATIONS
-# $Id: Record.pm,v 1.1 2006/05/24 21:29:32 kados Exp $
+
+# $Id: Record.pm,v 1.2 2006/05/24 23:30:43 kados Exp $
+
=cut