[Koha-cvs] koha/acqui.simple addbiblio.pl [rel_2_2]

[paul poulain]

CVSROOT:	/cvsroot/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	paul poulain <tipaul at savannah.gnu.org>	06/04/07 11:45:58

Modified files:
	acqui.simple   : addbiblio.pl 

Log message:
	rewritting auth_finder for addbiblio to get cloneTag working. incomplete, see mail on koha-devel

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/acqui.simple/addbiblio.pl.diff?only_with_tag=rel_2_2&tr1=1.52.2.36&tr2=1.52.2.37&r1=text&r2=text

Patches:
Index: koha/acqui.simple/addbiblio.pl
diff -u koha/acqui.simple/addbiblio.pl:1.52.2.36 koha/acqui.simple/addbiblio.pl:1.52.2.37
--- koha/acqui.simple/addbiblio.pl:1.52.2.36	Thu Apr  6 02:15:35 2006
+++ koha/acqui.simple/addbiblio.pl	Fri Apr  7 11:45:58 2006
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: addbiblio.pl,v 1.52.2.36 2006/04/06 02:15:35 kados Exp $
+# $Id: addbiblio.pl,v 1.52.2.37 2006/04/07 11:45:58 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -185,7 +185,7 @@
 		$subfield_data{marc_value}= build_authorized_values_list($tag, $subfield, $value, $dbh,$authorised_values_sth);
 	# it's a thesaurus / authority field
 	} elsif ($tagslib->{$tag}->{$subfield}->{authtypecode}) {
-		$subfield_data{marc_value}="<input onblur=\"this.style.backgroundColor='#ffffff';\" onfocus=\"this.style.backgroundColor='#ffff00;'\"\" tabindex=\"1\" type=\"text\" name=\"field_value\" value=\"$value\" size=\"70\" maxlength=\"255\" DISABLE READONLY> <a  style=\"cursor: help;\" href=\"javascript:Dopop('../authorities/auth_finder.pl?authtypecode=".$tagslib->{$tag}->{$subfield}->{authtypecode}."&index=$i',$i)\">...</a>";
+		$subfield_data{marc_value}="<input onblur=\"this.style.backgroundColor='#ffffff';\" onfocus=\"this.style.backgroundColor='#ffff00;'\"\" tabindex=\"1\" type=\"text\" name=\"field_value\" value=\"$value\" size=\"70\" maxlength=\"255\" DISABLE READONLY> <a  style=\"cursor: help;\" href=\"javascript:openAuth('tag$tag','$tagslib->{$tag}->{$subfield}->{authtypecode}','subfield$tag$i')\">...</a>";
 	# it's a plugin field
 	} elsif ($tagslib->{$tag}->{$subfield}->{'value_builder'}) {
 		# opening plugin. Just check wether we are on a developper computer on a production one
@@ -524,15 +524,6 @@
 		$bibid = "";
 		$oldbiblionumber= "";
 	}
-	#unless ($record == -1) {
-	#FIXME: it's kind of silly to go from MARC::Record to MARC::File::XML and then back again just to fix the encoding
-	#eval {
-    #   	my $uxml = $record->as_xml;
-	#	my $newrecord = MARC::Record::new_from_xml($uxml, 'UTF-8');
-	#	$record = $newrecord;
-	#};
-
-	#}
 	build_tabs ($template, $record, $dbh,$encoding);
 	build_hidden_data;
 	$template->param(