[Koha-cvs] koha/value_builder unimarc_field_100.pl unimarc... [rel_2_2]

paul poulain paul at koha-fr.org
Thu Dec 15 11:05:54 CET 2005 

CVSROOT:	/cvsroot/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	paul poulain <tipaul at savannah.gnu.org>	05/12/15 10:05:53

Modified files:
	value_builder  : unimarc_field_100.pl unimarc_field_105.pl 
	                 unimarc_field_110.pl unimarc_field_115a.pl 
	                 unimarc_field_115b.pl unimarc_field_116.pl 
	                 unimarc_field_117.pl unimarc_field_120.pl 
	                 unimarc_field_121a.pl unimarc_field_121b.pl 
	                 unimarc_field_122.pl unimarc_field_123d.pl 
	                 unimarc_field_123e.pl unimarc_field_123f.pl 
	                 unimarc_field_123g.pl unimarc_field_123i.pl 
	                 unimarc_field_123j.pl unimarc_field_124a.pl 
	                 unimarc_field_124b.pl unimarc_field_124c.pl 
	                 unimarc_field_124d.pl unimarc_field_124e.pl 
	                 unimarc_field_124f.pl unimarc_field_124g.pl 
	                 unimarc_field_124.pl unimarc_field_125a.pl 
	                 unimarc_field_125b.pl unimarc_field_125.pl 
	                 unimarc_field_126a.pl unimarc_field_126b.pl 
	                 unimarc_field_126.pl unimarc_field_128a.pl 
	                 unimarc_field_128b.pl unimarc_field_128c.pl 
	                 unimarc_field_130.pl unimarc_field_135a.pl 
	                 unimarc_field_140.pl unimarc_field_141.pl 

Log message:
	there was a bug in most plugins : when a value is sent to the template, we often use "$X" => 1 to select a value in a list.
	That was coded "$X" => $X
	when $X=0 or ' ', that meaned $X set to 0, thus not selected.
	
	reported a long time ago, but i never take time to fix it.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_100.pl.diff?only_with_tag=rel_2_2&tr1=1.7.2.2&tr2=1.7.2.3&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_105.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_110.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_115a.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_115b.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_116.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_117.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_120.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_121a.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_121b.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_122.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_123d.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_123e.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_123f.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_123g.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_123i.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.3&tr2=1.1.2.4&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_123j.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.3&tr2=1.1.2.4&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_124a.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_124b.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_124c.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_124d.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_124e.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_124f.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_124g.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_124.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_125a.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_125b.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_125.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_126a.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_126b.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_126.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_128a.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_128b.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_128c.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_130.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_135a.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_140.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text
http://cvs.savannah.gnu.org/viewcvs/koha/koha/value_builder/unimarc_field_141.pl.diff?only_with_tag=rel_2_2&tr1=1.1.2.1&tr2=1.1.2.2&r1=text&r2=text

Patches:
Index: koha/value_builder/unimarc_field_100.pl
diff -u koha/value_builder/unimarc_field_100.pl:1.7.2.2 koha/value_builder/unimarc_field_100.pl:1.7.2.3
--- koha/value_builder/unimarc_field_100.pl:1.7.2.2	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_100.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_100.pl,v 1.7.2.2 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_100.pl,v 1.7.2.3 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -100,19 +100,19 @@
 	$template->param(index => $index,
 							f1 => $f1,
 							f3 => $f3,
-							"f2$f2" => $f2,
+							"f2$f2" => 1,
 							f4 => $f4,
-			                                "f5$f5" => $f5,
-							"f6$f6" => $f6,
-			                                "f7$f7" => $f7,
-							"f8$f8" => $f8,
-			                                "f9$f9" => $f9,
+							"f5$f5" => 1,
+							"f6$f6" => 1,
+							"f7$f7" => 1,
+							"f8$f8" => 1,
+							"f9$f9" => 1,
 							"f10" => $f10,
-			                                "f11$f11" => $f11,
-			                                "f12$f12" => $f12,
-			                                "f13$f13" => $f13,
+							"f11$f11" => 1,
+							"f12$f12" => 1,
+							"f13$f13" => 1,
 							"f14" => $f14,
-			                                "f15$f15" => $f15
+							"f15$f15" => 1
 			                                );
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_105.pl
diff -u koha/value_builder/unimarc_field_105.pl:1.1.2.1 koha/value_builder/unimarc_field_105.pl:1.1.2.2
--- koha/value_builder/unimarc_field_105.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_105.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_105.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_105.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -94,19 +94,19 @@
         my $f12 = substr($result,11,1);
         my $f13 = substr($result,12,1);
 	$template->param(index => $index,
-							"f1$f1" => $f1,
-							"f2$f2" => $f2,
-							"f3$f3" => $f3,
-							"f4$f4" => $f4,
-							"f5$f5" => $f5,
-							"f6$f6" => $f6,
-							"f7$f7" => $f7,
-							"f8$f8" => $f8,
-			                                "f9$f9" => $f9,
-							"f10$f10" => $f10,
-							"f11$f11" => $f11,
-							"f12$f12" => $f12,
-			                                "f13$f13" => $f13
+							"f1$f1" => 1,
+							"f2$f2" => 1,
+							"f3$f3" => 1,
+							"f4$f4" => 1,
+							"f5$f5" => 1,
+							"f6$f6" => 1,
+							"f7$f7" => 1,
+							"f8$f8" => 1,
+			                "f9$f9" => 1,
+							"f10$f10" => 1,
+							"f11$f11" => 1,
+							"f12$f12" => 1,
+							"f13$f13" => 1
  );
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_110.pl
diff -u koha/value_builder/unimarc_field_110.pl:1.1.2.1 koha/value_builder/unimarc_field_110.pl:1.1.2.2
--- koha/value_builder/unimarc_field_110.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_110.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_110.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_110.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -88,15 +88,15 @@
  	my $f9 = substr($result,10,1);
 
 	$template->param(index => $index,
-							"f1$f1" => $f1,
-							"f2$f2" => $f2,
-							"f3$f3" => $f3,
-							"f4$f4" => $f4,
+							"f1$f1" => 1,
+							"f2$f2" => 1,
+							"f3$f3" => 1,
+							"f4$f4" => 1,
 							 f5 => $f5,
-							"f6$f6" => $f6,
-							"f7$f7" => $f7,
-							"f8$f8" => $f8,
-							"f9$f9" => $f9
+							"f6$f6" => 1,
+							"f7$f7" => 1,
+							"f8$f8" => 1,
+							"f9$f9" => 1
  );
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_115a.pl
diff -u koha/value_builder/unimarc_field_115a.pl:1.1.2.1 koha/value_builder/unimarc_field_115a.pl:1.1.2.2
--- koha/value_builder/unimarc_field_115a.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_115a.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_115a.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_115a.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -97,24 +97,24 @@
  	my $f18 = substr($result,19,1);
 
 	$template->param(index => $index,
-							"f1$f1" => $f1,
+							"f1$f1" => 1,
 							"f2" => $f2,
-							"f3$f3" => $f3,
-							"f4$f4" => $f4,
-							"f5$f5" => $f5,
-							"f6$f6" => $f6,
-							"f7$f7" => $f7,
-							"f8$f8" => $f8,
- 							"f9$f9" => $f9,
- 							"f10$f10" => $f10,
- 							"f11$f11" => $f11,
- 							"f12$f12" => $f12,
- 							"f13$f13" => $f13,
- 							"f14$f14" => $f14,
- 							"f15$f15" => $f15,
- 							"f16$f16" => $f16,
- 							"f17$f17" => $f17,
- 							"f18$f18" => $f18
+							"f3$f3" => 1,
+							"f4$f4" => 1,
+							"f5$f5" => 1,
+							"f6$f6" => 1,
+							"f7$f7" => 1,
+							"f8$f8" => 1,
+ 							"f9$f9" => 1,
+ 							"f10$f10" => 1,
+ 							"f11$f11" => 1,
+ 							"f12$f12" => 1,
+ 							"f13$f13" => 1,
+ 							"f14$f14" => 1,
+ 							"f15$f15" => 1,
+ 							"f16$f16" => 1,
+ 							"f17$f17" => 1,
+ 							"f18$f18" => 1
  );
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_115b.pl
diff -u koha/value_builder/unimarc_field_115b.pl:1.1.2.1 koha/value_builder/unimarc_field_115b.pl:1.1.2.2
--- koha/value_builder/unimarc_field_115b.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_115b.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_115b.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_115b.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -90,15 +90,15 @@
  	my $f11 = substr($result,13,2);
 
 	$template->param(index => $index,
-							"f1$f1" => $f1,
-							"f2$f2" => $f2,
-							"f3$f3" => $f3,
-							"f4$f4" => $f4,
-							"f5$f5" => $f5,
-							"f6$f6" => $f6,
-							"f7$f7" => $f7,
-							"f8$f8" => $f8,
- 							"f9$f9" => $f9,
+							"f1$f1" => 1,
+							"f2$f2" => 1,
+							"f3$f3" => 1,
+							"f4$f4" => 1,
+							"f5$f5" => 1,
+							"f6$f6" => 1,
+							"f7$f7" => 1,
+							"f8$f8" => 1,
+ 							"f9$f9" => 1,
  							"f10" => $f10,
  							"f11" => $f11
  );
Index: koha/value_builder/unimarc_field_116.pl
diff -u koha/value_builder/unimarc_field_116.pl:1.1.2.1 koha/value_builder/unimarc_field_116.pl:1.1.2.2
--- koha/value_builder/unimarc_field_116.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_116.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_116.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_116.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -93,17 +93,17 @@
  	my $f11 = substr($result,16,2);
 
 	$template->param(index => $index,
-							"f1$f1" => $f1,
-							"f2$f2" => $f2,
-							"f3$f3" => $f3,
-							"f4$f4" => $f4,
-							"f5$f5" => $f5,
-							"f6$f6" => $f6,
-							"f7$f7" => $f7,
-							"f8$f8" => $f8,
- 							"f9$f9" => $f9,
- 							"f10$f10" => $f10,
- 							"f11$f11" => $f11
+							"f1$f1" => 1,
+							"f2$f2" => 1,
+							"f3$f3" => 1,
+							"f4$f4" => 1,
+							"f5$f5" => 1,
+							"f6$f6" => 1,
+							"f7$f7" => 1,
+							"f8$f8" => 1,
+ 							"f9$f9" => 1,
+ 							"f10$f10" => 1,
+ 							"f11$f11" => 1
  );
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_117.pl
diff -u koha/value_builder/unimarc_field_117.pl:1.1.2.1 koha/value_builder/unimarc_field_117.pl:1.1.2.2
--- koha/value_builder/unimarc_field_117.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_117.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_117.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_117.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -85,11 +85,11 @@
  	my $f5 = substr($result,8,1);
 
 	$template->param(index => $index,
-							"f1$f1" => $f1,
-							"f2$f2" => $f2,
-							"f3$f3" => $f3,
-							"f4$f4" => $f4,
-							"f5$f5" => $f5
+							"f1$f1" => 1,
+							"f2$f2" => 1,
+							"f3$f3" => 1,
+							"f4$f4" => 1,
+							"f5$f5" => 1
  );
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_120.pl
diff -u koha/value_builder/unimarc_field_120.pl:1.1.2.1 koha/value_builder/unimarc_field_120.pl:1.1.2.2
--- koha/value_builder/unimarc_field_120.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_120.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_120.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_120.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -90,16 +90,16 @@
 	my $f9 = substr($result,9,2);
 	my $f10 = substr($result,11,2);
 	$template->param(index => $index,
-							"f1$f1" => $f1,
-							"f2$f2" => $f2,
-							"f3$f3" => $f3,
-							"f4$f4" => $f4,
-							"f5$f5" => $f5,
-							"f6$f6" => $f6,
-							"f7$f7" => $f7,
-							"f8$f8" => $f8,
-							"f9$f9" => $f9,
-							"f10$f10" => $f10);
+							"f1$f1" => 1,
+							"f2$f2" => 1,
+							"f3$f3" => 1,
+							"f4$f4" => 1,
+							"f5$f5" => 1,
+							"f6$f6" => 1,
+							"f7$f7" => 1,
+							"f8$f8" => 1,
+							"f9$f9" => 1,
+							"f10$f10" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_121a.pl
diff -u koha/value_builder/unimarc_field_121a.pl:1.1.2.1 koha/value_builder/unimarc_field_121a.pl:1.1.2.2
--- koha/value_builder/unimarc_field_121a.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_121a.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_121a.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_121a.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -88,13 +88,13 @@
 	my $f7 = substr($result,7,1);
 	my $f8 = substr($result,8,1);
 	$template->param(index => $index,
-							"f1$f1" => $f1,
-							"f2$f2" => $f2,
-							"f3$f3" => $f3,
-							"f4$f4" => $f4,
-							"f5$f5" => $f5,
-							"f6$f6" => $f6,
-							"f7$f7" => $f7,
+							"f1$f1" => 1,
+							"f2$f2" => 1,
+							"f3$f3" => 1,
+							"f4$f4" => 1,
+							"f5$f5" => 1,
+							"f6$f6" => 1,
+							"f7$f7" => 1,
 			 "f8$f8" => $f8);
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_121b.pl
diff -u koha/value_builder/unimarc_field_121b.pl:1.1.2.1 koha/value_builder/unimarc_field_121b.pl:1.1.2.2
--- koha/value_builder/unimarc_field_121b.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_121b.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_121b.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_121b.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -87,13 +87,13 @@
 	my $f6 = substr($result,6,1);
 	my $f7 = substr($result,7,1);
 	$template->param(index => $index,
-							"f1$f1" => $f1,
-							"f2$f2" => $f2,
+							"f1$f1" => 1,
+							"f2$f2" => 1,
 							f3 => $f3,
-							"f4$f4" => $f4,
-							"f5$f5" => $f5,
-							"f6$f6" => $f6,
-							"f7$f7" => $f7);
+							"f4$f4" => 1,
+							"f5$f5" => 1,
+							"f6$f6" => 1,
+							"f7$f7" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_122.pl
diff -u koha/value_builder/unimarc_field_122.pl:1.1.2.1 koha/value_builder/unimarc_field_122.pl:1.1.2.2
--- koha/value_builder/unimarc_field_122.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_122.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_122.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_122.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -85,7 +85,7 @@
 	my $f4 = substr($result,7,2);
 	my $f5 = substr($result,9,2);
 	$template->param(index => $index,
-							"f1$f1" => $f1,
+							"f1$f1" => 1,
 							f2 => $f2,
 							f3 => $f3,
 							f4 => $f4,
Index: koha/value_builder/unimarc_field_123d.pl
diff -u koha/value_builder/unimarc_field_123d.pl:1.1.2.1 koha/value_builder/unimarc_field_123d.pl:1.1.2.2
--- koha/value_builder/unimarc_field_123d.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_123d.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_123d.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_123d.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -84,7 +84,7 @@
 	my $f3 = substr($result,4,2);
 	my $f4 = substr($result,6,2);
 	$template->param(index => $index,
-			 "f1$f1" => $f1,
+			 "f1$f1" => 1,
 			 f2 => $f2,
 			 f3 => $f3,
 			 f4 => $f4);
Index: koha/value_builder/unimarc_field_123e.pl
diff -u koha/value_builder/unimarc_field_123e.pl:1.1.2.1 koha/value_builder/unimarc_field_123e.pl:1.1.2.2
--- koha/value_builder/unimarc_field_123e.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_123e.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_123e.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_123e.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -84,7 +84,7 @@
 	my $f3 = substr($result,4,2);
 	my $f4 = substr($result,6,2);
 	$template->param(index => $index,
-			 "f1$f1" => $f1,
+			 "f1$f1" => 1,
 			 f2 => $f2,
 			 f3 => $f3,
 			 f4 => $f4);
Index: koha/value_builder/unimarc_field_123f.pl
diff -u koha/value_builder/unimarc_field_123f.pl:1.1.2.1 koha/value_builder/unimarc_field_123f.pl:1.1.2.2
--- koha/value_builder/unimarc_field_123f.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_123f.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_123f.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_123f.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -84,7 +84,7 @@
 	my $f3 = substr($result,4,2);
 	my $f4 = substr($result,6,2);
 	$template->param(index => $index,
-			 "f1$f1" => $f1,
+			 "f1$f1" => 1,
 			 f2 => $f2,
 			 f3 => $f3,
 			 f4 => $f4);
Index: koha/value_builder/unimarc_field_123g.pl
diff -u koha/value_builder/unimarc_field_123g.pl:1.1.2.1 koha/value_builder/unimarc_field_123g.pl:1.1.2.2
--- koha/value_builder/unimarc_field_123g.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_123g.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_123g.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_123g.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -84,7 +84,7 @@
 	my $f3 = substr($result,4,2);
 	my $f4 = substr($result,6,2);
 	$template->param(index => $index,
-			 "f1$f1" => $f1,
+			 "f1$f1" => 1,
 			 f2 => $f2,
 			 f3 => $f3,
 			 f4 => $f4);
Index: koha/value_builder/unimarc_field_123i.pl
diff -u koha/value_builder/unimarc_field_123i.pl:1.1.2.3 koha/value_builder/unimarc_field_123i.pl:1.1.2.4
--- koha/value_builder/unimarc_field_123i.pl:1.1.2.3	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_123i.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_123i.pl,v 1.1.2.3 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_123i.pl,v 1.1.2.4 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -84,7 +84,7 @@
 	my $f3 = substr($result,4,2);
 	my $f4 = substr($result,6,2);
 	$template->param(index => $index,
-			 "f1$f1" => $f1,
+			 "f1$f1" => 1,
 			 f2 => $f2,
 			 f3 => $f3,
 			 f4 => $f4);
Index: koha/value_builder/unimarc_field_123j.pl
diff -u koha/value_builder/unimarc_field_123j.pl:1.1.2.3 koha/value_builder/unimarc_field_123j.pl:1.1.2.4
--- koha/value_builder/unimarc_field_123j.pl:1.1.2.3	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_123j.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_123j.pl,v 1.1.2.3 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_123j.pl,v 1.1.2.4 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -84,7 +84,7 @@
 	my $f3 = substr($result,4,2);
 	my $f4 = substr($result,6,2);
 	$template->param(index => $index,
-			 "f1$f1" => $f1,
+			 "f1$f1" => 1,
 			 f2 => $f2,
 			 f3 => $f3,
 			 f4 => $f4);
Index: koha/value_builder/unimarc_field_124.pl
diff -u koha/value_builder/unimarc_field_124.pl:1.1.2.1 koha/value_builder/unimarc_field_124.pl:1.1.2.2
--- koha/value_builder/unimarc_field_124.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_124.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_124.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_124.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -86,7 +86,7 @@
 	$template->param(index => $index,
 							f1 => $f1,
 							f3 => $f3,
-							"f2$f2" => $f2,
+							"f2$f2" => 1,
 							f4 => $f4);
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_124a.pl
diff -u koha/value_builder/unimarc_field_124a.pl:1.1.2.1 koha/value_builder/unimarc_field_124a.pl:1.1.2.2
--- koha/value_builder/unimarc_field_124a.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_124a.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_124a.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_124a.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -81,7 +81,7 @@
 			     });
 	my $f1 = substr($result,0,1);
 	$template->param(index => $index,
-			 "f1$f1" => $f1);
+			 "f1$f1" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_124b.pl
diff -u koha/value_builder/unimarc_field_124b.pl:1.1.2.1 koha/value_builder/unimarc_field_124b.pl:1.1.2.2
--- koha/value_builder/unimarc_field_124b.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_124b.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_124b.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_124b.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -81,7 +81,7 @@
 			     });
 	my $f1 = substr($result,0,1);
 	$template->param(index => $index,
-			 "f1$f1" => $f1);
+			 "f1$f1" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_124c.pl
diff -u koha/value_builder/unimarc_field_124c.pl:1.1.2.1 koha/value_builder/unimarc_field_124c.pl:1.1.2.2
--- koha/value_builder/unimarc_field_124c.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_124c.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_124c.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_124c.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -81,7 +81,7 @@
 			     });
 	my $f1 = substr($result,0,1);
 	$template->param(index => $index,
-			 "f1$f1" => $f1);
+			 "f1$f1" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_124d.pl
diff -u koha/value_builder/unimarc_field_124d.pl:1.1.2.1 koha/value_builder/unimarc_field_124d.pl:1.1.2.2
--- koha/value_builder/unimarc_field_124d.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_124d.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_124d.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_124d.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -81,7 +81,7 @@
 			     });
 	my $f1 = substr($result,0,1);
 	$template->param(index => $index,
-			 "f1$f1" => $f1);
+			 "f1$f1" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_124e.pl
diff -u koha/value_builder/unimarc_field_124e.pl:1.1.2.1 koha/value_builder/unimarc_field_124e.pl:1.1.2.2
--- koha/value_builder/unimarc_field_124e.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_124e.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_124e.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_124e.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -81,7 +81,7 @@
 			     });
 	my $f1 = substr($result,0,1);
 	$template->param(index => $index,
-			 "f1$f1" => $f1);
+			 "f1$f1" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_124f.pl
diff -u koha/value_builder/unimarc_field_124f.pl:1.1.2.1 koha/value_builder/unimarc_field_124f.pl:1.1.2.2
--- koha/value_builder/unimarc_field_124f.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_124f.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_124f.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_124f.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -81,7 +81,7 @@
 			     });
 	my $f1 = substr($result,0,2);
 	$template->param(index => $index,
-			 "f1$f1" => $f1);
+			 "f1$f1" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_124g.pl
diff -u koha/value_builder/unimarc_field_124g.pl:1.1.2.1 koha/value_builder/unimarc_field_124g.pl:1.1.2.2
--- koha/value_builder/unimarc_field_124g.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_124g.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_124g.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_124g.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -81,7 +81,7 @@
 			     });
 	my $f1 = substr($result,0,2);
 	$template->param(index => $index,
-			 "f1$f1" => $f1);
+			 "f1$f1" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_125.pl
diff -u koha/value_builder/unimarc_field_125.pl:1.1.2.1 koha/value_builder/unimarc_field_125.pl:1.1.2.2
--- koha/value_builder/unimarc_field_125.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_125.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_125.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_125.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -86,7 +86,7 @@
 	$template->param(index => $index,
 							f1 => $f1,
 							f3 => $f3,
-							"f2$f2" => $f2,
+							"f2$f2" => 1,
 							f4 => $f4);
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_125a.pl
diff -u koha/value_builder/unimarc_field_125a.pl:1.1.2.1 koha/value_builder/unimarc_field_125a.pl:1.1.2.2
--- koha/value_builder/unimarc_field_125a.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_125a.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_125a.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_125a.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -82,7 +82,7 @@
 	my $f1 = substr($result,0,1);
 	my $f2 = substr($result,1,1);
 	$template->param(index => $index,
-			 "f1$f1" => $f1,"f2$f2" => $f2);
+			 "f1$f1" => 1,"f2$f2" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_125b.pl
diff -u koha/value_builder/unimarc_field_125b.pl:1.1.2.1 koha/value_builder/unimarc_field_125b.pl:1.1.2.2
--- koha/value_builder/unimarc_field_125b.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_125b.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_125b.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_125b.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -81,7 +81,7 @@
 			     });
 	my $f1 = substr($result,0,1);
 	$template->param(index => $index,
-			 "f1$f1" => $f1);
+			 "f1$f1" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_126.pl
diff -u koha/value_builder/unimarc_field_126.pl:1.1.2.1 koha/value_builder/unimarc_field_126.pl:1.1.2.2
--- koha/value_builder/unimarc_field_126.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_126.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_126.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_126.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -86,7 +86,7 @@
 	$template->param(index => $index,
 							f1 => $f1,
 							f3 => $f3,
-							"f2$f2" => $f2,
+							"f2$f2" => 1,
 							f4 => $f4);
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_126a.pl
diff -u koha/value_builder/unimarc_field_126a.pl:1.1.2.1 koha/value_builder/unimarc_field_126a.pl:1.1.2.2
--- koha/value_builder/unimarc_field_126a.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_126a.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_126a.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_126a.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -95,21 +95,21 @@
 	my $f14 = substr($result,13,1);
 	my $f15 = substr($result,14,1);
 	$template->param(index => $index,
-			 "f1$f1" => $f1,
-			 "f2$f2" => $f2,
-			 "f3$f3" => $f3,
-			 "f4$f4" => $f4,
-			 "f5$f5" => $f5,
-			 "f6$f6" => $f6,
-			 "f7$f7" => $f7,
-			 "f8$f8" => $f8,
-			 "f9$f9" => $f9,
-			 "f10$f10" => $f10,
-			 "f11$f11" => $f11,
-			 "f12$f12" => $f12,
-			 "f13$f13" => $f13,
-			 "f14$f14" => $f14,
-			 "f15$f15" => $f15
+			 "f1$f1" => 1,
+			 "f2$f2" => 1,
+			 "f3$f3" => 1,
+			 "f4$f4" => 1,
+			 "f5$f5" => 1,
+			 "f6$f6" => 1,
+			 "f7$f7" => 1,
+			 "f8$f8" => 1,
+			 "f9$f9" => 1,
+			 "f10$f10" => 1,
+			 "f11$f11" => 1,
+			 "f12$f12" => 1,
+			 "f13$f13" => 1,
+			 "f14$f14" => 1,
+			 "f15$f15" => 1
 );
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_126b.pl
diff -u koha/value_builder/unimarc_field_126b.pl:1.1.2.1 koha/value_builder/unimarc_field_126b.pl:1.1.2.2
--- koha/value_builder/unimarc_field_126b.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_126b.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_126b.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_126b.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -83,9 +83,9 @@
 	my $f2 = substr($result,1,1);
 	my $f3 = substr($result,2,1);
 	$template->param(index => $index,
-			 "f1$f1" => $f1,
-			 "f2$f2" => $f2,
-			 "f3$f3" => $f3
+			 "f1$f1" => 1,
+			 "f2$f2" => 1,
+			 "f3$f3" => 1
 );
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_128a.pl
diff -u koha/value_builder/unimarc_field_128a.pl:1.1.2.1 koha/value_builder/unimarc_field_128a.pl:1.1.2.2
--- koha/value_builder/unimarc_field_128a.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_128a.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_128a.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_128a.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -81,7 +81,7 @@
 			     });
 	my $f1 = substr($result,0,2);
 	$template->param(index => $index,
-			 "f1$f1" => $f1);
+			 "f1$f1" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_128b.pl
diff -u koha/value_builder/unimarc_field_128b.pl:1.1.2.1 koha/value_builder/unimarc_field_128b.pl:1.1.2.2
--- koha/value_builder/unimarc_field_128b.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_128b.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_128b.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_128b.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -81,7 +81,7 @@
 			     });
 	my $f1 = substr($result,0,2);
 	$template->param(index => $index,
-			 "f1$f1" => $f1);
+			 "f1$f1" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_128c.pl
diff -u koha/value_builder/unimarc_field_128c.pl:1.1.2.1 koha/value_builder/unimarc_field_128c.pl:1.1.2.2
--- koha/value_builder/unimarc_field_128c.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_128c.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_128c.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_128c.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -81,7 +81,7 @@
 			     });
 	my $f1 = substr($result,0,2);
 	$template->param(index => $index,
-			 "f1$f1" => $f1);
+			 "f1$f1" => 1);
 	print $input->header(-cookie => $cookie),$template->output;
 }
 
Index: koha/value_builder/unimarc_field_130.pl
diff -u koha/value_builder/unimarc_field_130.pl:1.1.2.1 koha/value_builder/unimarc_field_130.pl:1.1.2.2
--- koha/value_builder/unimarc_field_130.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_130.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_130.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_130.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -90,15 +90,15 @@
 	my $f9 = substr($result,10,1);
 
 	$template->param(index => $index,
-			 "f1$f1" => $f1,
-			 "f2$f2" => $f2,
-			 "f3$f3" => $f3,
-			 "f4$f4" => $f4,
+			 "f1$f1" => 1,
+			 "f2$f2" => 1,
+			 "f3$f3" => 1,
+			 "f4$f4" => 1,
 			 "f5" => $f5,
-			 "f6$f6" => $f6,
-			 "f7$f7" => $f7,
-			 "f8$f8" => $f8,
-			 "f9$f9" => $f9
+			 "f6$f6" => 1,
+			 "f7$f7" => 1,
+			 "f8$f8" => 1,
+			 "f9$f9" => 1
 
 );
 	print $input->header(-cookie => $cookie),$template->output;
Index: koha/value_builder/unimarc_field_135a.pl
diff -u koha/value_builder/unimarc_field_135a.pl:1.1.2.1 koha/value_builder/unimarc_field_135a.pl:1.1.2.2
--- koha/value_builder/unimarc_field_135a.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_135a.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_135a.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_135a.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -90,15 +90,15 @@
 	my $f9 = substr($result,10,1);
 
 	$template->param(index => $index,
-			 "f1$f1" => $f1,
-			 "f2$f2" => $f2,
-			 "f3$f3" => $f3,
-			 "f4$f4" => $f4,
+			 "f1$f1" => 1,
+			 "f2$f2" => 1,
+			 "f3$f3" => 1,
+			 "f4$f4" => 1,
 			 "f5" => $f5,
-			 "f6$f6" => $f6,
-			 "f7$f7" => $f7,
-			 "f8$f8" => $f8,
-			 "f9$f9" => $f9
+			 "f6$f6" => 1,
+			 "f7$f7" => 1,
+			 "f8$f8" => 1,
+			 "f9$f9" => 1
 
 );
 	print $input->header(-cookie => $cookie),$template->output;
Index: koha/value_builder/unimarc_field_140.pl
diff -u koha/value_builder/unimarc_field_140.pl:1.1.2.1 koha/value_builder/unimarc_field_140.pl:1.1.2.2
--- koha/value_builder/unimarc_field_140.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_140.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_140.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_140.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -104,27 +104,27 @@
 warn "Dans ce cas clea nous fait un f17 => $f17\n";
 
 	$template->param(index => $index,
-			 "f1$f1" => $f1,
-			 "f2$f2" => $f2,
-			 "f3$f3" => $f3,
-			 "f4$f4" => $f4,
-			 "f5$f5" => $f5,
-			 "f6$f6" => $f6,
-			 "f7$f7" => $f7,
-			 "f8$f8" => $f8,
-			 "f9$f9" => $f9,
-			 "f10$f10" => $f10,
-			 "f11$f11" => $f11,
-			 "f12$f12" => $f12,
-			 "f13$f13" => $f13,
-			 "f14$f14" => $f14,
-			 "f15$f15" => $f15,
-			 "f16$f16" => $f16,
-			 "f17$f17" => $f17,
-			 "f18$f18" => $f18,
-			 "f19$f19" => $f19,
-			 "f20$f20" => $f20,
-			 "f21$f21" => $f21
+			 "f1$f1" => 1,
+			 "f2$f2" => 1,
+			 "f3$f3" => 1,
+			 "f4$f4" => 1,
+			 "f5$f5" => 1,
+			 "f6$f6" => 1,
+			 "f7$f7" => 1,
+			 "f8$f8" => 1,
+			 "f9$f9" => 1,
+			 "f10$f10" => 1,
+			 "f11$f11" => 1,
+			 "f12$f12" => 1,
+			 "f13$f13" => 1,
+			 "f14$f14" => 1,
+			 "f15$f15" => 1,
+			 "f16$f16" => 1,
+			 "f17$f17" => 1,
+			 "f18$f18" => 1,
+			 "f19$f19" => 1,
+			 "f20$f20" => 1,
+			 "f21$f21" => 1
 );
 	print $input->header(-cookie => $cookie),$template->output;
 }
Index: koha/value_builder/unimarc_field_141.pl
diff -u koha/value_builder/unimarc_field_141.pl:1.1.2.1 koha/value_builder/unimarc_field_141.pl:1.1.2.2
--- koha/value_builder/unimarc_field_141.pl:1.1.2.1	Thu Dec  8 09:35:50 2005
+++ koha/value_builder/unimarc_field_141.pl	Thu Dec 15 10:05:53 2005
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: unimarc_field_141.pl,v 1.1.2.1 2005/12/08 09:35:50 tipaul Exp $
+# $Id: unimarc_field_141.pl,v 1.1.2.2 2005/12/15 10:05:53 tipaul Exp $
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -89,14 +89,14 @@
 	my $f8 = substr($result,7,1);
 
 	$template->param(index => $index,
-			 "f1$f1" => $f1,
-			 "f2$f2" => $f2,
-			 "f3$f3" => $f3,
-			 "f4$f4" => $f4,
-			 "f5$f5" => $f5,
-			 "f6$f6" => $f6,
-			 "f7$f7" => $f7,
-			 "f8$f8" => $f8
+			 "f1$f1" => 1,
+			 "f2$f2" => 1,
+			 "f3$f3" => 1,
+			 "f4$f4" => 1,
+			 "f5$f5" => 1,
+			 "f6$f6" => 1,
+			 "f7$f7" => 1,
+			 "f8$f8" => 1
 );
 	print $input->header(-cookie => $cookie),$template->output;
 }

More information about the Koha-cvs mailing list