[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] koha/value_builder unimarc_field_100.pl unimarc... [rel_2_2]
|
From: |
paul poulain |
|
Subject: |
[Koha-cvs] koha/value_builder unimarc_field_100.pl unimarc... [rel_2_2] |
|
Date: |
Thu, 15 Dec 2005 10:05:54 +0000 |
CVSROOT: /cvsroot/koha
Module name: koha
Branch: rel_2_2
Changes by: paul poulain <address@hidden> 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;
}
| [Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] koha/value_builder unimarc_field_100.pl unimarc... [rel_2_2],
paul poulain <=