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 549763d..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
 #
@@ -70,14 +69,8 @@ function Blur$function_name(index) {
 }
 
 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) {