[Koha-cvs] koha/admin marc_subfields_structure.pl [rel_2_2]

Ryan Higgins rch at liblime.com
Thu May 10 02:39:14 CEST 2007


CVSROOT:	/sources/koha
Module name:	koha
Branch:		rel_2_2
Changes by:	Ryan Higgins <rych>	07/05/10 00:39:14

Modified files:
	admin          : marc_subfields_structure.pl 

Log message:
	bugfix: prev & next links don't include tag or frameworkcode. (but these links should be created in template)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/admin/marc_subfields_structure.pl?cvsroot=koha&only_with_tag=rel_2_2&r1=1.32.2.11&r2=1.32.2.12

Patches:
Index: marc_subfields_structure.pl
===================================================================
RCS file: /sources/koha/koha/admin/marc_subfields_structure.pl,v
retrieving revision 1.32.2.11
retrieving revision 1.32.2.12
diff -u -b -r1.32.2.11 -r1.32.2.12
--- marc_subfields_structure.pl	20 Jun 2006 16:21:42 -0000	1.32.2.11
+++ marc_subfields_structure.pl	10 May 2007 00:39:14 -0000	1.32.2.12
@@ -380,7 +380,7 @@
 	my $dbh = C4::Context->dbh;
 	my $sth=$dbh->prepare("select * from marc_subfield_structure where tagfield=? and tagsubfield=? and frameworkcode=?");
 	#FIXME : called with 2 bind variables when 3 are needed
-	$sth->execute($tagfield,$tagsubfield);
+	$sth->execute($tagfield,$tagsubfield,$frameworkcode);
 	my $data=$sth->fetchrow_hashref;
 	$sth->finish;
 	$template->param(liblibrarian => $data->{'liblibrarian'},
@@ -445,11 +445,11 @@
 	
 	if ($offset>0) {
 		my $prevpage = $offset-$pagesize;
-		$template->param(prev =>"<a href=\"$script_name?offset=$prevpage\">");
+		$template->param(prev =>"<a href=\"$script_name?tagfield=$tagfield&frameworkcode=$frameworkcode&offset=$prevpage\">");
 	}
 	if ($offset+$pagesize<$count) {
 		my $nextpage =$offset+$pagesize;
-		$template->param(next => "<a href=\"$script_name?offset=$nextpage\">");
+		$template->param(next => "<a href=\"$script_name?tagfield=$tagfield&frameworkcode=$frameworkcode&offset=$nextpage\">");
 	}
 } #---- END $OP eq DEFAULT
 $template->param(intranetcolorstylesheet => C4::Context->preference("intranetcolorstylesheet"),





More information about the Koha-cvs mailing list