[Koha-devel] CVS: koha/marc viewmarc.pl,NONE,1.1

[Steve Tonnesen]

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

Added Files:
        viewmarc.pl 
Log Message:
Prototype marc record viewer and editor.


--- NEW FILE ---
#!/usr/bin/perl

#
# TODO
#
# Add info on biblioitems and items already entered as you enter new ones
#

use C4::Database;
use CGI;
use strict;
use C4::Acquisitions;
use C4::Output;


my $input = new CGI;
my $dbh=C4Connect;
my $fields;
marcdefs();
[...10196 lines suppressed...]
    $fields->{'880'}->{'secondindicator'}="Same as associated field";
    $fields->{'880'}->{'subfields'}->{"6"}->{'name'}="Linkage (NR) $a-z Same as 
associated field $0-5 Same as associated field $7-9 Same as associated field";
    $fields->{'880'}->{'subfields'}->{"6"}->{'repeating'}=0;
    $fields->{'886'}->{'name'}="FOREIGN MARC INFORMATION FIELD (R)";
    $fields->{'886'}->{'repeating'}=1;
    $fields->{'886'}->{'firstindicator'}="Type of field";
    $fields->{'886'}->{'firstindicatorvalues'}->{"0"}="Leader";
    $fields->{'886'}->{'firstindicatorvalues'}->{"1"}="Variable control fields 
(002-009)";
    $fields->{'886'}->{'firstindicatorvalues'}->{"2"}="Variable data fields 
(010-999)";
    $fields->{'886'}->{'secondindicator'}="Undefined";
    $fields->{'886'}->{'subfields'}->{"a"}->{'name'}="Tag of the foreign MARC 
field (NR)";
    $fields->{'886'}->{'subfields'}->{"a"}->{'repeating'}=0;
    $fields->{'886'}->{'subfields'}->{"b"}->{'name'}="Content of the foreign 
MARC field  (NR)";
    $fields->{'886'}->{'subfields'}->{"b"}->{'repeating'}=0;
    $fields->{'886'}->{'subfields'}->{"2"}->{'name'}="Source of data (NR) $a-z 
- Foreign MARC subfield (R) $0-9 - Foreign MARC subfield (R)";
    $fields->{'886'}->{'subfields'}->{"2"}->{'repeating'}=0;
;

        
}