[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,
-	#);
+	};
 }