[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 <address@hidden>   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(