Patch from Galen Charlton, removing $Id$ $Log$ and $Revision$ from files

[koha.git] / cataloguing / value_builder / marc21_field_040c.pl

diff --git a/cataloguing/value_builder/marc21_field_040c.pl b/cataloguing/value_builder/marc21_field_040c.pl
index adf68fb..417af78 100755 (executable)
--- a/cataloguing/value_builder/marc21_field_040c.pl
+++ b/cataloguing/value_builder/marc21_field_040c.pl
@@ -1,6 +1,5 @@
 #!/usr/bin/perl
 
-# $Id$
 
 # Copyright 2000-2002 Katipo Communications
 #
@@ -62,24 +61,21 @@ my $function_name= $field_number;
 # find today's date
 my $org = C4::Context->preference('MARCOrgCode');
 my $res  = "
-<script>
+<script type=\"text/javascript\">
+//<![CDATA[
+
 function Blur$function_name(index) {
 //need this?
 }
 
 function Focus$function_name(subfield_managed) {
-        // TODO FIXME :: HTML code has changed
-
-       for (i=0 ; i<document.f.field_value.length ; i++) {
-                if (document.f.tag[i].value == '040' && document.f.subfield[i].value == 'c') {
-                        document.f.field_value[i].value = '$org';
-                }
-        }
-return 0;
+    document.getElementById(\"$field_number\").value='$org';
+    return 0;
 }
 
 function Clic$function_name(subfield_managed) {
 }
+//]]>
 </script>
 ";
 return ($function_name,$res);