diff -ru koha-2.2.7/intranet-cgi/barcodes/barcodesGenerator.pl /opt/koha/intranet/cgi-bin/barcodes/barcodesGenerator.pl
--- koha-2.2.7/intranet-cgi/barcodes/barcodesGenerator.pl	2004-11-08 19:47:16.000000000 +0000
+++ /opt/koha/intranet/cgi-bin/barcodes/barcodesGenerator.pl	2007-01-16 20:52:26.000000000 +0000
@@ -30,7 +30,7 @@
 use HTML::Template;
 use PDF::API2;
 use PDF::API2::Page;
-use PDF::API2::PDF::Utils;
+use PDF::API2::Basic::PDF::Utils;
 use C4::Barcodes::PrinterConfig;
 use Time::localtime; 
 
@@ -162,8 +162,7 @@
 			# Generetase checksum
 			my $codeC = &checksum($code);
 			# Generate the corresponde barcode to $code
-			my $barcode = $pdf->barcode(-font => $tr,	# The font object to use
-										-type => 'ean128',	# Standard of codification
+			my $barcode = $pdf->xo_code128(-font => $tr,	# The font object to use
 										-code => $codeC, # Text to codify
 										-extn	=> '012345',	# Barcode extension (if it is aplicable)
 										-umzn => 10,		# Top limit of the finished bar
@@ -184,7 +183,7 @@
 																						$tr,
 																						$pageType);	
 			# Assigns a barcodes to $gfx
-			$gfx->barcode($barcode, $x, $y , (72/$labelConfig{'systemDpi'}));
+			$gfx->formimage($barcode, $x, $y , (72/$labelConfig{'systemDpi'}));
 			# Assigns the additional information to the barcode (Legend)
 			$text->translate($x - 48, $y - 22);
 			if ($text_under_label) {
@@ -234,8 +233,7 @@
 				# Generetase checksum
 				$code = &checksum($code);
 				# Generate the corresponde barcode to $code
-				my $barcode = $pdf->barcode(-font => $tr,	# The font object to use
-											-type => 'ean13',	# Standard of codification
+				my $barcode = $pdf->xo_ean13(-font => $tr,	# The font object to use
 											-code => $code, # Text to codify
 											-extn	=> '012345',	# Barcode extension (if it is aplicable)
 											-umzn => 10,		# Top limit of the finished bar
@@ -256,7 +254,7 @@
 																							$tr,
 																							$pageType);	
 				# Assigns a barcodes to $gfx
-				$gfx->barcode($barcode, $x, $y , (72/$labelConfig{'systemDpi'}));
+				$gfx->formimage($barcode, $x, $y , (72/$labelConfig{'systemDpi'}));
 				# Assigns the additional information to the barcode (Legend)
 				$text->translate($x - 48, $y - 22);
 				if ($text_under_label) {
@@ -283,4 +281,4 @@
 	}
 }
 
-barcodesGenerator($from, $to, $rangeType, $individualCodes,$text_under_label);
\ No newline at end of file
+barcodesGenerator($from, $to, $rangeType, $individualCodes,$text_under_label);
diff -ru koha-2.2.7/intranet-cgi/barcodes/pdfViewer.pl /opt/koha/intranet/cgi-bin/barcodes/pdfViewer.pl
--- koha-2.2.7/intranet-cgi/barcodes/pdfViewer.pl	2005-09-05 23:18:09.000000000 +0100
+++ /opt/koha/intranet/cgi-bin/barcodes/pdfViewer.pl	2007-01-16 20:35:11.000000000 +0000
@@ -30,11 +30,9 @@
 my $cgi = new CGI;
 my $filename = "barcodes.pdf";
 my $tmpFileName = $cgi->param('tmpFileName');
-print "Content-Disposition: attachment; filename = $filename\n\n";
-print $cgi->header(-type => 'application/pdf'),
-      $cgi->start_html(-title=>"Codify to PDF");
+print "Content-Disposition: attachment; filename = $filename\n";
+print $cgi->header(-type => 'application/pdf');
 open fh, "<$tmpFileName";
 while (<fh>) {
  print;
 }
-print $cgi->end_html();
diff -ru koha-2.2.7/intranet-cgi/barcodes/printerConfig.pl /opt/koha/intranet/cgi-bin/barcodes/printerConfig.pl
--- koha-2.2.7/intranet-cgi/barcodes/printerConfig.pl	2006-02-24 15:50:22.000000000 +0000
+++ /opt/koha/intranet/cgi-bin/barcodes/printerConfig.pl	2007-01-16 19:52:50.000000000 +0000
@@ -30,7 +30,7 @@
 use HTML::Template;
 use PDF::API2;
 use PDF::API2::Page;
-use PDF::API2::PDF::Utils;
+use PDF::API2::Basic::PDF::Utils;
 use C4::Interface::CGI::Output;
 
 # This function returns the path to deal with the correct files, considering