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'}) ) { |
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 |
#-------------------------------------------------------------------------- |
#-------------------------------------------------------------------------- |