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; ; }