150 |
return $tmp; |
return $tmp; |
151 |
} |
} |
152 |
|
|
153 |
$Document{$FieldTag} = html_enc($Document{$FieldTag}); |
# format URI |
154 |
|
if ( $FieldTag eq "856" ) { |
155 |
# Print the field data, marking up if needed |
my $alt = $Document{$FieldTag}; |
156 |
if ( $FieldTag eq "A" || $FieldTag eq "E" ) { |
if (length $alt > $default::max_display_url_len ) { |
157 |
$CommaFlag = 0; |
$alt = substr($alt,0,$default::max_display_url_len)."..."; |
|
@Authors = split(/;/, $Document{$FieldTag}); |
|
|
foreach $Author ( @Authors ) { |
|
|
if ( $CommaFlag ) { |
|
|
$DocumentFinal .= ", "; |
|
|
} |
|
|
$CommaFlag = 1; |
|
|
$SearchTerm = $Author; |
|
|
$SearchTerm =~ s/,//g; |
|
|
@AuthorNames = split(/ /, $SearchTerm); |
|
|
$SearchTerm = ""; |
|
|
foreach $AuthorName ( @AuthorNames ) { |
|
|
if ( ! ($AuthorName =~ /^\w+\.$/) ) { |
|
|
if ( $AuthorName ne "" ) { |
|
|
$AuthorName .= " "; |
|
|
} |
|
|
$SearchTerm .= $AuthorName; |
|
|
} |
|
|
} |
|
|
$SearchTerm =~ s/ /+/g; |
|
|
$DocumentFinal .= "<A HREF=\"$ENV{'SCRIPT_NAME'}/GetSearchResults?Database=$Database&FieldName1=author&FieldContent1=%22$SearchTerm%22\"> $Author </A>"; |
|
|
} |
|
|
} |
|
|
elsif ( $FieldTag eq "K" ) { |
|
|
$CommaFlag = 0; |
|
|
@Keywords = split(/,/, $Document{$FieldTag}); |
|
|
foreach $Keyword ( @Keywords ) { |
|
|
if ( $CommaFlag ) { |
|
|
$DocumentFinal .= ", "; |
|
|
} |
|
|
$CommaFlag = 1; |
|
|
$SearchTerm = $Keyword; |
|
|
$SearchTerm =~ s/ /+/g; |
|
|
$DocumentFinal .= "<A HREF=\"$ENV{'SCRIPT_NAME'}/GetSearchResults?Database=$Database&FieldName1=keyword&FieldContent1=%22$SearchTerm%22\"> $Keyword </A>"; |
|
158 |
} |
} |
159 |
} |
$DocumentFinal .= "<A HREF=\"$Document{$FieldTag}\" TARGET=\"BlankWindow\">$alt</A>"; |
160 |
elsif ( $FieldTag eq "W" ) { |
|
161 |
$DocumentFinal .= "<A HREF=\"$Document{$FieldTag}\" TARGET=\"BlankWindow\"> $Document{$FieldTag} </A>"; |
} else { |
162 |
} |
$DocumentFinal .= html_enc($Document{$FieldTag}); |
|
elsif ( $FieldTag eq "Y" ) { |
|
|
$DocumentFinal .= "<PRE>$Document{$FieldTag}</PRE>"; |
|
|
} |
|
|
else { |
|
|
$DocumentFinal .= "$Document{$FieldTag}"; |
|
163 |
} |
} |
164 |
|
|
165 |
$DocumentFinal .= "</TD></TR> \n"; |
$DocumentFinal .= "</TD></TR> \n"; |