[Koha-cvs] CVS: koha/marc viewmarc.pl,1.4,1.5

[Andrew Arensburger]

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

Modified Files:
        viewmarc.pl 
Log Message:
Merged with arensb-context branch: use C4::Context->dbh instead of
&C4Connect, and generally prefer C4::Context over C4::Database.


Index: viewmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/marc/viewmarc.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** viewmarc.pl 14 Aug 2002 18:12:53 -0000      1.4
--- viewmarc.pl 5 Oct 2002 10:15:26 -0000       1.5
***************
*** 27,33 ****
  my $starttime=gettime();
  
- use C4::Database;
- use CGI;
  use strict;
  use C4::Acquisitions;
  use C4::Biblio;
--- 27,33 ----
  my $starttime=gettime();
  
  use strict;
+ use CGI;
+ use C4::Context;
  use C4::Acquisitions;
  use C4::Biblio;
***************
*** 36,40 ****
  
  my $input = new CGI;
! my $dbh=C4Connect;
  my $fields;
  marcdefs();
--- 36,40 ----
  
  my $input = new CGI;
! my $dbh = C4::Context->dbh;
  my $fields;
  marcdefs();
***************
*** 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";