[Koha-cvs] CVS: koha/marc viewmarc.pl,1.4.2.2,1.4.2.3

[Andrew Arensburger]

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

Modified Files:
      Tag: arensb-context
        viewmarc.pl 
Log Message:
Added a FIXME comment.


Index: viewmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/marc/viewmarc.pl,v
retrieving revision 1.4.2.2
retrieving revision 1.4.2.3
diff -C2 -r1.4.2.2 -r1.4.2.3
*** viewmarc.pl 5 Oct 2002 06:26:09 -0000       1.4.2.2
--- viewmarc.pl 5 Oct 2002 06:35:35 -0000       1.4.2.3
***************
*** 446,449 ****
--- 446,459 ----
  }
  
+ # FIXME - 9800-line functions are bogus. Presumably these fields and
+ # such were generated from a data file. Perl is good at reading files,
+ # so just read that file. If you don't want to use a separate file,
+ # use the __DATA__ pseudofile. Failing that, this could be redone as a
+ # single giant assignment:
+ #     $fields = {
+ #             "010" => {
+ #                     "name" => "LIBRARY OF CONGRESS CONTROL NUMBER",
+ #                     "description" => "..."
+ #     ...
  sub marcdefs {
      $fields->{'010'}->{"name"}="LIBRARY OF CONGRESS CONTROL NUMBER";