[Koha-cvs] koha detail.pl [dev_week]

[Joshua Ferraro]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Joshua Ferraro <kados>  07/02/07 08:24:41

Modified files:
        .              : detail.pl 

Log message:
        wrap MARC fields in an eval in case MARC::Record dies (prevents
        a 505 in that case)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/detail.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.24.2.9.2.3&r2=1.24.2.9.2.4

Patches:
Index: detail.pl
===================================================================
RCS file: /sources/koha/koha/Attic/detail.pl,v
retrieving revision 1.24.2.9.2.3
retrieving revision 1.24.2.9.2.4
diff -u -b -r1.24.2.9.2.3 -r1.24.2.9.2.4
--- detail.pl   14 Oct 2006 04:00:16 -0000      1.24.2.9.2.3
+++ detail.pl   7 Feb 2007 08:24:40 -0000       1.24.2.9.2.4
@@ -52,17 +52,19 @@
 my @results = ($dat,);
 ## get notes and subjects from MARC record
 my $dbh = C4::Context->dbh;
-my $bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
+my $bibid;
+eval {
+$bibid = &MARCfind_MARCbibid_from_oldbiblionumber($dbh,$biblionumber);
+};
 $template->param(bibid => $bibid);
 if (C4::Context->preference("marc")) {
        my $marcflavour = C4::Context->preference("marcflavour");
+       eval {
        my $marcnotesarray = &getMARCnotes($dbh,$bibid,$marcflavour);
        $results[0]->{MARCNOTES} = $marcnotesarray;
        my $marcsubjctsarray = &getMARCsubjects($dbh,$bibid,$marcflavour);
        $results[0]->{MARCSUBJCTS} = $marcsubjctsarray;
-       #$template->param(MARCNOTES => $marcnotesarray,
-       #                               MARCSUBJCTS => $marcsubjctsarray,
-       #);
+       };
 }