Changeset 9397 for branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm

Timestamp:

04/21/08 12:54:46 (6 months ago)

Author:

erickson

Message:

Merged revisions 9395-9396 via svnmerge from
svn://svn.open-ils.org/ILS/trunk

........

r9395 | erickson | 2008-04-21 11:42:10 -0400 (Mon, 21 Apr 2008) | 1 line

added support for for truncation attribute to z39 queries. Thanks, James!

........

r9396 | erickson | 2008-04-21 12:51:44 -0400 (Mon, 21 Apr 2008) | 1 line

added widget directory and new org unit filtering select widget

........

Location:

branches/acq-experiment

Files:

• . (modified) (1 prop)
• Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm (modified) (1 diff)

branches/acq-experiment/Open-ILS/src/perlmods/OpenILS/Application/Search/Z3950.pm

@@ -330 +330 @@
                 next unless ( exists $services{$service}->{attrs}->{$_} );
                 $str .= '@attr 1=' . $services{$service}->{attrs}->{$_}->{code} . # add the use attribute
-                        ' @attr 4=' . $services{$service}->{attrs}->{$_}->{format} . # add the structure attribute
-                        " \"" . $$hash{$_} . "\" "; # add the search term
+                        ' @attr 4=' . $services{$service}->{attrs}->{$_}->{format}; # add the structure attribute
+                if (exists $services{$service}->{attrs}->{$_}->{truncation}){
+                        $str .= ' @attr 5=' . $services{$service}->{attrs}->{$_}->{truncation};
+                }
+                $str .= " \"" . $$hash{$_} . "\" "; # add the search term
         }
         return $str;