[Koha-cvs] CVS: koha/marc MARCdetail.pl,NONE,1.1

[Paul POULAIN]

Update of /cvsroot/koha/koha/marc
In directory usw-pr-cvs1:/tmp/cvs-serv9545

Added Files:
        MARCdetail.pl 
Log Message:
small script that show in HTML a MARC biblio stored in koha. Very useful for 
test, and could be a start for MARC management in koha.


--- NEW FILE ---
#!/usr/bin/perl
use HTML::Template;
use strict;
require Exporter;
use C4::Database;
use C4::Output;  # contains picktemplate
use CGI;
use C4::Search;
use MARC::Record;
use C4::Biblio;
use C4::Catalogue;
 
my $query=new CGI;


my $language='french';


my %configfile;
open (KC, "/etc/koha.conf");
while (<KC>) {
    chomp;
    (next) if (/^\s*#/
            );
    if (/(.*)\s*=\s*(.*)/) {
        my $variable=$1;
        my $value=$2;
        # Clean up white space at beginning and end
        $variable=~s/^\s*//g;
        $variable=~s/\s*$//g;
        $value=~s/^\s*//g;
        $value=~s/\s*$//g;
        $configfile{$variable}=$value;
    }
}

    
my $biblionumber=$query->param('bib');
my $tag=$query->param('tag');
if (! defined $tag) { $tag='2XX';}
#print STDERR "BIB : $biblionumber // TAG : $tag\n";
if (! defined $biblionumber) {
    my $includes=$configfile{'includes'};
    ($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
    my $templatebase="MARCdetailbiblioselect.tmpl";
    my $theme=picktemplate($includes, $templatebase);
    my $template = HTML::Template->new(filename => 
"$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => 
[$includes]);
    print "Content-Type: text/html\n\n", $template->output;

} else {
    &showmarcrecord($biblionumber,$tag);
}

sub showmarcrecord {
    my ($biblionumber,$tag) = @_;
    my $dbh=&C4Connect;
    my $sth=$dbh->prepare("select liblibrarian from marc_subfield_structure 
where tagfield=? and tagsubfield=?");
    my $record =MARCgetbiblio($dbh,$biblionumber);
# open template
    my $templatebase="catalogue/MARCdetail.tmpl";
    my $includes=$configfile{'includes'};
    ($includes) || ($includes="/usr/local/www/hdl/htdocs/includes");
    my $theme=picktemplate($includes, $templatebase);
    my $template = HTML::Template->new(filename => 
"$includes/templates/$theme/$templatebase", die_on_bad_params => 0, path => 
[$includes]);
# fill arrays
    my @loop_data =();
    my @fields = $record->field($tag);
    foreach my $field (@fields) {
        my @subf=$field->subfields;
        for my $i (0..$#subf) {
            $sth->execute($field->tag(), $subf[$i][0]);
            my $row=$sth->fetchrow_hashref;
            my %row_data;
            $row_data{marc_lib}=$row->{'liblibrarian'};
            $row_data{marc_value}=$subf[$i][1];
            $row_data{marc_tag}=$field->tag().$subf[$i][0];
            push(@loop_data, \%row_data);
#           print $field->tag(), " ", 
$field->indicator(1),$field->indicator(2), "subf: ", $subf[$i][0]," 
=",$subf[$i][1]," <-- \n";
        }
    }
    
# fill template with arrays
    $template->param(biblionumber => $biblionumber);
    $template->param(marc =>address@hidden);
    print "Content-Type: text/html\n\n", $template->output;
    
}