1509 |
# Initialize the search string |
# Initialize the search string |
1510 |
$SearchString = ""; |
$SearchString = ""; |
1511 |
|
|
1512 |
sub nuke_accents { |
# tip gradje |
1513 |
my $tmp = $_[0]; |
if ( defined($main::FormData{'tip'}) ) { |
1514 |
$tmp =~ tr/Çüéâäùæç³ëÕõî¬ÄÆÉÅåôö¥µ¦¶ÖÜ«»£èáíóú¡±®¾Êê¼ÈºÁÂ̪¯¿ÃãðÐÏËïÒÍÎìÞÙÓÔÑñò©¹ÀÚàÛýÝþ´½²·¢¸¨ÿØø/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'-".'',"'Rr/; |
my @t; |
1515 |
# convert search string to lower case -> make search case insensitive |
foreach my $tip ( split(/\0/, $main::FormData{'tip'}) ) { |
1516 |
$tmp =~ tr/A-Z/a-z/; |
push @t,"tip=$tip"; |
1517 |
return $tmp; |
} |
1518 |
} |
$SearchString .= "(".join(" or ",@t).") and "; |
1519 |
|
} |
1520 |
|
|
1521 |
# Add the search terms |
# Add the search terms |
1522 |
$SearchString .= defined($Content{'Any'}) ? ((($SearchString ne "") ? " AND " : "") . nuke_accents($Content{'Any'}) ) : ""; |
$SearchString .= defined($Content{'Any'}) ? ((($SearchString ne "") ? " AND " : "") . nuke_accents($Content{'Any'}) ) : ""; |
2998 |
|
|
2999 |
# Send the start of the form and the buttons |
# Send the start of the form and the buttons |
3000 |
print("<TD ALIGN=RIGHT VALIGN=TOP>\n"); |
print("<TD ALIGN=RIGHT VALIGN=TOP>\n"); |
3001 |
print("<FORM ACTION=\"$ENV{'SCRIPT_NAME'}/GetSearchResults\" NAME=\"Search\" METHOD=POST> <INPUT TYPE=SUBMIT VALUE=\"Pretra¾i bazu\"> <INPUT TYPE=RESET VALUE=\"Pobri¹i polja\">\n"); |
print("<FORM ACTION=\"$ENV{'SCRIPT_NAME'}/GetSearchResults\" NAME=\"Search\" METHOD=POST> <INPUT TYPE=SUBMIT VALUE=\"Pretra¾i bazu\"> <INPUT TYPE=RESET VALUE=\"Vrati poèetne vrijednosti\">\n"); |
3002 |
print("</TD></TR>\n"); |
print("</TD></TR>\n"); |
3003 |
|
|
3004 |
print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=3><BR></TD></TR>\n"); |
print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=3><BR></TD></TR>\n"); |
3055 |
print("<OPTION VALUE=\"OR\" $Value> Bilo koju rijeè (OR)\n"); |
print("<OPTION VALUE=\"OR\" $Value> Bilo koju rijeè (OR)\n"); |
3056 |
print("</SELECT> </TD></TR>\n"); |
print("</SELECT> </TD></TR>\n"); |
3057 |
|
|
3058 |
|
print "<tr><td align=left valign=top> Prika¾i samo tip graðe: </td><td align=left valign=top colspan=2>"; |
3059 |
|
foreach my $tip (keys %default::tip) { |
3060 |
|
print '<input TYPE="checkbox" NAME="tip" VALUE="',nuke_accents($default::tip{$tip}),'" >',$default::tip{$tip},"  "; |
3061 |
|
} |
3062 |
|
print "</td></tr>\n"; |
3063 |
|
|
3064 |
print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=3><HR WIDTH=50%></TD></TR>\n"); |
print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=3><HR WIDTH=50%></TD></TR>\n"); |
3065 |
|
|
3180 |
|
|
3181 |
|
|
3182 |
print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=3><HR WIDTH=50%></TD></TR>\n"); |
print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=3><HR WIDTH=50%></TD></TR>\n"); |
3183 |
print("<TR><TD ALIGN=RIGHT COLSPAN=3><INPUT TYPE=SUBMIT VALUE=\"Pretra¾i bazu\"> <INPUT TYPE=RESET VALUE=\"Pobri¹i polja\"></TD></TR>\n"); |
print("<TR><TD ALIGN=RIGHT COLSPAN=3><INPUT TYPE=SUBMIT VALUE=\"Pretra¾i bazu\"> <INPUT TYPE=RESET VALUE=\"Vrati poèetne vrijednosti\"></TD></TR>\n"); |
3184 |
|
|
3185 |
print("</FORM>\n"); |
print("</FORM>\n"); |
3186 |
print("</TABLE>\n"); |
print("</TABLE>\n"); |
3227 |
my ($DatabaseRelevanceFeedbackFilterKey, $DatabaseRelevanceFeedbackFilterFunction); |
my ($DatabaseRelevanceFeedbackFilterKey, $DatabaseRelevanceFeedbackFilterFunction); |
3228 |
my (@Values, %Value, $Value); |
my (@Values, %Value, $Value); |
3229 |
|
|
|
|
|
|
|
|
3230 |
# Check to see if there are any documents selected, if there are, they need |
# Check to see if there are any documents selected, if there are, they need |
3231 |
# to be converted to RF documents before we put up the header, this is because |
# to be converted to RF documents before we put up the header, this is because |
3232 |
# the header creates a search link from existing search fields, we also deduplicate |
# the header creates a search link from existing search fields, we also deduplicate |
3281 |
$main::FormData{'Database'} = join("\0", keys(%Databases)); |
$main::FormData{'Database'} = join("\0", keys(%Databases)); |
3282 |
} |
} |
3283 |
|
|
3284 |
|
# now add all databases that had to be included always |
3285 |
|
foreach (my $db = @main::always_selected_databases) { |
3286 |
|
$Databases{$db} = $Value{$db}; |
3287 |
|
} |
3288 |
|
|
3289 |
# Make sure that we send the header |
# Make sure that we send the header |
3290 |
&vSendHTMLHeader("Rezultati pretra¾ivanja", undef); |
&vSendHTMLHeader("Rezultati pretra¾ivanja", undef); |
3291 |
undef(%Value); |
undef(%Value); |
3292 |
&vSendMenuBar(%Value); |
&vSendMenuBar(%Value); |
3293 |
|
|
|
|
|
3294 |
# Check that at least one database was selected |
# Check that at least one database was selected |
3295 |
if ( !defined($main::FormData{'Database'}) ) { |
if ( !defined($main::FormData{'Database'}) && $#main::always_selected_databases < 0 ) { |
3296 |
print("<H3>Pretra¾ivanje baza:</H3>\n"); |
print("<H3>Pretra¾ivanje baza:</H3>\n"); |
3297 |
print("<H3><CENTER>Niste odabrali knji¾nicu koju ¾elite pretra¾ivati.</CENTER></H3>\n"); |
print("<H3><CENTER>Niste odabrali knji¾nicu koju ¾elite pretra¾ivati.</CENTER></H3>\n"); |
3298 |
print("<P>\n"); |
print("<P>\n"); |
3326 |
|
|
3327 |
# Convert all the '\0' to ',' |
# Convert all the '\0' to ',' |
3328 |
$Databases =~ tr/\0/,/; |
$Databases =~ tr/\0/,/; |
3329 |
|
|
3330 |
|
# add always selected databases |
3331 |
|
if (@main::always_selected_databases) { |
3332 |
|
$Databases .= ",".join(",",@main::always_selected_databases); |
3333 |
|
} |
3334 |
|
|
3335 |
# Add the max doc restriction |
# Add the max doc restriction |
3336 |
if ( !defined($main::FormData{'Max'}) ) { |
if ( !defined($main::FormData{'Max'}) ) { |
3337 |
$main::FormData{'Max'} = $main::DefaultMaxDoc; |
$main::FormData{'Max'} = $main::DefaultMaxDoc; |
3338 |
} |
} |
3339 |
|
|
|
|
|
3340 |
# Generate the search string |
# Generate the search string |
3341 |
$SearchString = &sMakeSearchString(%main::FormData); |
$SearchString = &sMakeSearchString(%main::FormData); |
3342 |
|
|
7405 |
foreach my $ItemEntry ( @_ ) { |
foreach my $ItemEntry ( @_ ) { |
7406 |
$Value{$ItemEntry} = $ItemEntry; |
$Value{$ItemEntry} = $ItemEntry; |
7407 |
} |
} |
7408 |
|
|
7409 |
print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n"); |
print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0>\n"); |
7410 |
print "<tr><td colspan=3 align=\"center\"> |
print "<tr><td colspan=3 align=\"center\"> |
7411 |
<font size=-1>Oznaèi |
<font size=-1>Oznaèi |
7449 |
} |
} |
7450 |
|
|
7451 |
print("</TABLE>\n"); |
print("</TABLE>\n"); |
7452 |
|
|
7453 |
|
} |
7454 |
|
|
7455 |
|
#-------------------------------------------------------------------------- |
7456 |
|
# |
7457 |
|
sub nuke_accents { |
7458 |
|
my $tmp = $_[0]; |
7459 |
|
$tmp =~ tr/Çüéâäùæç³ëÕõî¬ÄÆÉÅåôö¥µ¦¶ÖÜ«»£èáíóú¡±®¾Êê¼ÈºÁÂ̪¯¿ÃãðÐÏËïÒÍÎìÞÙÓÔÑñò©¹ÀÚàÛýÝþ´½²·¢¸¨ÿØø/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'".'',"'Rr/; |
7460 |
|
# convert search string to lower case -> make search case insensitive |
7461 |
|
$tmp =~ tr/A-Z/a-z/; |
7462 |
|
return $tmp; |
7463 |
} |
} |
7464 |
|
|