--- search/Search.cgi	2002/06/25 16:47:58	1.17
+++ search/Search.cgi	2002/06/25 19:31:07	1.20
@@ -513,7 +513,7 @@
 		print"<INPUT NAME=\"ListSearchHistory\" TYPE=SUBMIT VALUE=\"Prijašnja pretraživanja\" $DISABLED class=\"navigacija${DISABLED}\">";
 
 		$DISABLED = ( %MenuBar && defined($MenuBar{'ListSavedSearch'}) ) ? "DISABLED" : "";
-		print"<INPUT NAME=\"ListSavedSearch\" TYPE=SUBMIT VALUE=\"Spremljena pretraživanja\" $DISABLED class=\"navigacija${DISABLED}\">";
+		print"<INPUT NAME=\"ListSavedSearch\" TYPE=SUBMIT VALUE=\"Sačuvani upiti\" $DISABLED class=\"navigacija${DISABLED}\">";
 
 		$DISABLED = ( %MenuBar && defined($MenuBar{'ListFolder'}) ) ? "DISABLED" : "";
 		print"<INPUT NAME=\"ListFolder\" TYPE=SUBMIT VALUE=\"Korisnički folderi\" $DISABLED class=\"navigacija${DISABLED}\">";
@@ -1519,22 +1519,26 @@
 	
 		my ($FieldName) = "FieldName" . $Value;
 		my ($FieldContent) = "FieldContent" . $Value;
+
 	
-	
-		if ( defined($Content{$FieldName}) ) {
-			$SearchString .= defined($Content{$FieldContent}) ? 
-					(($SearchString ne "") ? " AND " : "") . "$Content{$FieldName}=(" . $Content{$FieldContent} . ")" : "";
+		if ( defined($Content{$FieldName}) && defined($Content{$FieldContent}) ) {
+			# nuke accented chars
+			$Content{$FieldContent} =~ tr/ÇüéâäůćçłëŐőîŹÄĆÉĹĺôöĽľŚśÖÜŤťŁčáíóúĄąŽžĘęźČşÁÂĚŞŻżĂăđĐĎËďŇÍÎěŢŮÓÔŃńňŠšŔÚŕŰýÝţ´­˝˛ˇ˘¸¨˙Řř/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'-".'',"'Rr/;
+			# convert search string to lower case -> make search case insensitive
+			$Content{$FieldContent} =~ tr/A-Z/a-z/;
+
+			if ($Content{$FieldName} eq "ISBN") {
+				# fix stupid problem with dashes in data
+				$Content{$FieldContent} .= "*";
+			}
+
+			$SearchString .=  ($SearchString ne "") ? " AND " : "";
+			$SearchString .= "$Content{$FieldName}=(" . $Content{$FieldContent} . ")";
 		}
 	}
 
-	# nuke accented chars
-	$SearchString =~ tr/ÇüéâäůćçłëŐőîŹÄĆÉĹĺôöĽľŚśÖÜŤťŁčáíóúĄąŽžĘęźČşÁÂĚŞŻżĂăđĐĎËďŇÍÎěŢŮÓÔŃńňŠšŔÚŕŰýÝţ´­˝˛ˇ˘¸¨˙Řř/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'-".'',"'Rr/;
-	# convert search string to lower case -> make search case insensitive
-	$SearchString =~ tr/A-Z/a-z/;
-
 	# Add the internal search terms
 
-
 	# Add the date restriction on the load time
 	if ( defined($Content{'LastRunTime'}) && ($Content{'LastRunTime'} > 0) ) {
 		$SearchString .= (($SearchString ne "") ? " AND " : "") . "time_t>=$Content{'LastRunTime'}";
@@ -1954,10 +1958,12 @@
 	# Print the title
 	if ( $HTML ) {
 		printf("<TD ALIGN=LEFT VALIGN=TOP>%s%s:</TD><TD ALIGN=LEFT VALIGN=TOP>\n", 
-				defined($Title) ? $Title : "Document", (scalar(@Documents) > 1) ? "s" : "");
+#				defined($Title) ? $Title : "Document", (scalar(@Documents) > 1) ? "s" : "");
+				$Title);
 	}
 	else {
-		printf("%s%s:\n", defined($Title) ? $Title : "Document", (scalar(@Documents) > 1) ? "s" : "");
+#		printf("%s%s:\n", defined($Title) ? $Title : "Document", (scalar(@Documents) > 1) ? "s" : "");
+		print $Title;
 	}
 
 
@@ -2188,7 +2194,7 @@
 			print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>\n");
 	
 			# Print the selector
-			print("<TR><TD ALIGN=LEFT VALIGN=TOP>Odabranima se smatraju svi rezultati ukoliko niste učinili nikakav dodatan odabir.</TD><TD ALIGN=RIGHT VALIGN=TOP> \n");
+			print("<TR><TD ALIGN=LEFT VALIGN=TOP>Odabrani su svi rezultati ukoliko niste učinili nikakav dodatan odabir.</TD><TD ALIGN=RIGHT VALIGN=TOP> \n");
 			
 			if ( $ResultCount > 0 ) {
 				
@@ -2203,7 +2209,7 @@
 					if ( $main::ConfigurationData{'allow-relevance-feedback-searches'} eq "yes" ) {
 						print("<OPTION VALUE=\"GetSearchResults\">Run search with selected documents as relevance feedback\n");
 					}
-					print("<OPTION VALUE=\"GetSaveSearch\">Sačuvaj rezultate pretraživanja\n");
+					print("<OPTION VALUE=\"GetSaveSearch\">Sačuvaj upit\n");
 					print("<OPTION VALUE=\"GetSaveFolder\">Sačuvaj odabrane rezultate u novi folder\n");
 			
 					# Get the document folder hash
@@ -2992,7 +2998,7 @@
 
 	# Send the standard fields
 	$Value = defined($main::FormData{'Any'}) ? "VALUE='$main::FormData{'Any'}'" : "";
-	print("<TR><TD ALIGN=LEFT VALIGN=TOP COLSPAN=2> Tražene riječi neka budu u bilo kojem polju: </TD> <TD ALIGN=LEFT VALIGN=TOP> <INPUT NAME=\"Any\" TYPE=TEXT $Value SIZE=45> </TD></TR>\n");
+	print("<TR><TD ALIGN=LEFT VALIGN=TOP COLSPAN=2> Pretraži u bilo kojem polju: </TD> <TD ALIGN=LEFT VALIGN=TOP> <INPUT NAME=\"Any\" TYPE=TEXT $Value SIZE=45> </TD></TR>\n");
 	
 	
 	my $nr_fields = $main::NormalSearchDropdowns;
@@ -3008,7 +3014,7 @@
 		print "<TR>";
 		if ($field == 1 ) {
 			print "<TD ALIGN=LEFT VALIGN=TOP ROWSPAN=$nr_fields>";
-			print "Tražene riječi neka budu u odabranom polju:";
+			print "Pretraži u odabranom polju:";
 			print "</td>";
 		}
 		print ("<TD ALIGN=RIGHT VALIGN=TOP>");
@@ -3051,7 +3057,7 @@
 	# Database selection
 	if ( %main::DatabaseDescriptions ) {
 
-		print("<TR><TD ALIGN=LEFT VALIGN=TOP COLSPAN=2> Odaberite bazu koju želite pretraživati:</TD></TR>
+		print("<TR><TD ALIGN=LEFT VALIGN=TOP COLSPAN=2> Odaberite knjižnicu čiji fond želite pretraživati:</TD></TR>
 		<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=4>
 		");
 		
@@ -3276,11 +3282,11 @@
 
 	# Check that at least one database was selected
 	if ( !defined($main::FormData{'Database'}) ) {
-		print("<H3>Database Search:</H3>\n");
-		print("<H3><CENTER>Sorry, no database(s) were selected for searching.</CENTER></H3>\n");
+		print("<H3>Pretraživanje baza:</H3>\n");
+		print("<H3><CENTER>Niste odabrali knjižnicu koju želite pretraživati.</CENTER></H3>\n");
 		print("<P>\n");
-		print("There needs to be a least one database selected in order to perform the search.\n");
-		print("Click <B>'back'</B> on your browser, select at least one database and try again.\n");
+		print("Potrebno je da barem jedna knjižnica bude odabrana, kako biste mogli pretraživati.\n");
+		print("Kliknite na <B>'back'</B> u svom browseru, odaberite barem jednu knjižnicu i pokušajte ponovo.\n");
 		goto bailFromGetSearchResults;
 	}
 
@@ -4634,7 +4640,7 @@
 	
 
 	# Give the user a form to fill out
-	print("<H3> Saving a search: </H3>\n");
+	print("<H3> Čuvanje upita: </H3>\n");
 
 
 
@@ -4687,9 +4693,9 @@
 	print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=2><HR WIDTH=50%></TD></TR>\n");
 
 	# Send the search name and search description fields
-	print("<TR><TD ALIGN=LEFT VALIGN=TOP> Search Name (required): </TD> <TD ALIGN=LEFT VALIGN=TOP> <INPUT NAME=\"SearchName\" TYPE=TEXT SIZE=45> </TD></TR>\n");
+	print("<TR><TD ALIGN=LEFT VALIGN=TOP> Naziv (obavezno): </TD> <TD ALIGN=LEFT VALIGN=TOP> <INPUT NAME=\"SearchName\" TYPE=TEXT SIZE=45> </TD></TR>\n");
 
-	print("<TR><TD ALIGN=LEFT VALIGN=TOP> Search Description: </TD> <TD ALIGN=LEFT VALIGN=TOP> <TEXTAREA INPUT NAME=\"SearchDescription\" COLS=45 ROWS=6 WRAP=VIRTUAL></TEXTAREA> </TD></TR>\n");
+	print("<TR><TD ALIGN=LEFT VALIGN=TOP> Opis: </TD> <TD ALIGN=LEFT VALIGN=TOP> <TEXTAREA INPUT NAME=\"SearchDescription\" COLS=45 ROWS=6 WRAP=VIRTUAL></TEXTAREA> </TD></TR>\n");
 
 	if ( defined($main::FormData{'RfDocument'}) ) {
 		print("<TR>\n");
@@ -4700,7 +4706,7 @@
 
 	print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=2><HR WIDTH=50%></TD></TR>\n");
 
-	print("<TR><TD ALIGN=LEFT VALIGN=TOP> Kliknite na ovaj kvadratić ako želite postojeći folder s istim imenom zamijeniti ovim novim: </TD> <TD ALIGN=LEFT VALIGN=TOP><INPUT TYPE=\"checkbox\" NAME=\"OverWrite\" VALUE=\"yes\"> </TD></TR>\n");
+	print("<TR><TD ALIGN=LEFT VALIGN=TOP> Kliknite na ovaj kvadratić ako želite postojeći upit s istim imenom zamijeniti ovim novim: </TD> <TD ALIGN=LEFT VALIGN=TOP><INPUT TYPE=\"checkbox\" NAME=\"OverWrite\" VALUE=\"yes\"> </TD></TR>\n");
 	
 	
 	
@@ -4709,10 +4715,10 @@
 	
 		print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=2><HR WIDTH=50%></TD></TR>\n");
 
-		print("<TR><TD ALIGN=LEFT VALIGN=TOP> Check to run this search on a regular basis: </TD> <TD ALIGN=LEFT VALIGN=TOP> <INPUT TYPE=CHECKBOX VALUE=\"yes\" NAME=\"Regular\"> </TD></TR>\n");
+		print("<TR><TD ALIGN=LEFT VALIGN=TOP> Kliknite ovaj kvadratić ukoliko želite automatsko periodičko pretraživanje po ovom upitu: </TD> <TD ALIGN=LEFT VALIGN=TOP> <INPUT TYPE=CHECKBOX VALUE=\"yes\" NAME=\"Regular\"> </TD></TR>\n");
 
 		# Send a pull-down which allows the user to select the automatic search frequency
-		print("<TR><TD ALIGN=LEFT VALIGN=TOP> Select the search frequency: </TD> <TD ALIGN=LEFT VALIGN=TOP> <SELECT NAME=\"SearchFrequency\">\n");
+		print("<TR><TD ALIGN=LEFT VALIGN=TOP> Odaberite frekvenciju automatskog pretraživanja: </TD> <TD ALIGN=LEFT VALIGN=TOP> <SELECT NAME=\"SearchFrequency\">\n");
 		foreach $ValueEntry ( @main::SearchFrequencies ) {
 			$Value = (defined($SearchFrequency) && ($SearchFrequency eq $ValueEntry)) ? "SELECTED" : "";
 			print("<OPTION VALUE=\"$ValueEntry\" $Value> $ValueEntry \n");
@@ -4720,7 +4726,7 @@
 		print("</SELECT> </TD></TR>\n");
 
 		# Send a pull-down which allows the user to select the automatic search delivery format
-		print("<TR><TD ALIGN=LEFT VALIGN=TOP> Select the delivery format: </TD> <TD ALIGN=LEFT VALIGN=TOP> <SELECT NAME=\"DeliveryFormat\">\n");
+		print("<TR><TD ALIGN=LEFT VALIGN=TOP> Odaberite format za isporuku rezultata pretraživanja: </TD> <TD ALIGN=LEFT VALIGN=TOP> <SELECT NAME=\"DeliveryFormat\">\n");
 		foreach $ValueEntry ( sort(keys(%main::DeliveryFormats)) ) {
 			$Value = (defined($DeliveryFormat) && ($DeliveryFormat eq  $ValueEntry)) ? "SELECTED" : "";
 			print("<OPTION VALUE=\"$ValueEntry\" $Value> $main::DeliveryFormats{$ValueEntry}\n");
@@ -4728,7 +4734,7 @@
 		print("</SELECT> </TD></TR>\n");
 
 		# Send a pull-down which allows the user to select the automatic search delivery method
-		print("<TR><TD ALIGN=LEFT VALIGN=TOP> Select the delivery method: </TD> <TD ALIGN=LEFT VALIGN=TOP> <SELECT NAME=\"DeliveryMethod\">\n");
+		print("<TR><TD ALIGN=LEFT VALIGN=TOP> Odaberite metodu isporuke: </TD> <TD ALIGN=LEFT VALIGN=TOP> <SELECT NAME=\"DeliveryMethod\">\n");
 		foreach $ValueEntry ( sort(keys(%main::DeliveryMethods)) ) {
 			$Value = (defined($DeliveryMethod) && ($DeliveryMethod eq  $ValueEntry)) ? "SELECTED" : "";
 			print("<OPTION VALUE=\"$ValueEntry\" $Value> $main::DeliveryMethods{$ValueEntry}\n");
@@ -4849,11 +4855,11 @@
 			&& !(defined($main::FormData{'OverWrite'}) && ($main::FormData{'OverWrite'} eq "yes")) ) {
 
 		# There is already a saved search with this name, so we suggest corrective action to the user.
-		print("<H3> Saving a Search: </H3>\n");
-		print("<H3><CENTER> Sorry, there is already a saved search with this name. </CENTER></H3>\n");
+		print("<H3> Čuvanje upita: </H3>\n");
+		print("<H3><CENTER> Već postoji upit pod ovim imenom. </CENTER></H3>\n");
 		print("<P>\n");
-		print("Click <B>'back'</B> on your browser, change the <B>'search name'</B> and try again, \n");
-		print("alternatively you can check the box which allows you to automatically over-write a saved search with the same name.\n");
+		print("Kliknite <B>'back'</B> u browseru, promijenite <B>'Naziv'</B> i pokušajte ponovo, \n");
+		print("ili kliknuti na kvadratić koji vam omogućava da automatski presnimite sačuvani upit s istim imenom.\n");
 		print("<P>\n");
 
 		goto bailFromSetSaveSearch;
@@ -4867,13 +4873,13 @@
 	if ( !defined($Value) && (defined($main::FormData{'Regular'}) && ($main::FormData{'Regular'} eq "yes")) ) {
 		
 		# Regular delivery was requested, but the email address was not specified in the settings
-		print("<H3> Saving a Search: </H3>\n");
-		print("<H3><CENTER> Sorry, your email address is not specified in your settings. </CENTER></H3>\n");
+		print("<H3> Čuvanje upita: </H3>\n");
+		print("<H3><CENTER> E-mail adresa nije specificirana u vašim postavkama. </CENTER></H3>\n");
 		print("<P>\n");
-		print("You need to specify your email address in your settings if you want this search to run on a regular basis, \n");
-		print("without your email address, we are not able to send you the search result. <P>\n");
-		print("Click the <B>'Settings'</B> option from the menu sidebar, fill in your email address and save the settings, \n");
-		print("then click <B>'back'</B> on your browser three times to go back to the form which allows you to save a search.\n");
+		print("Potrebno je specificirati e-mail adresu ukoliko želite da se pretraživanje po ovom upitu odvije periodično. \n");
+		print("bez e-mail adrese, nismo vam u mogućnosti isporučiti rezultate. <P>\n");
+		print("Kliknite na <B>'Korisničke postavke'</B>, upišite e-mail adresu i sačuvajte postavke, \n");
+		print("nakon toga kliknite na <B>'back'</B> u svom browseru tri puta kako biste se vratili na formu koja vam nudi da sačuvate upit.\n");
 		print("<P>\n");
 
 		goto bailFromSetSaveSearch;
@@ -5000,7 +5006,7 @@
 
 
 	# Print out the saved searches
-	print("<H3> Sačuvana pretraživanja: </H3>\n");
+	print("<H3> Sačuvani upiti: </H3>\n");
 	
 
 
@@ -5016,9 +5022,9 @@
 	
 		print("<TR><TD ALIGN=RIGHT VALIGN=TOP COLSPAN=3> \n");
 		print("<SELECT NAME=\"Action\">\n");
-		print("<OPTION VALUE=\"ActivateSavedSearch\">Aktiviraj označena sačuvana pretraživanja\n");
-		print("<OPTION VALUE=\"SuspendSavedSearch\">Stavi u mirovanje označena sačuvana pretraživanja\n");
-		print("<OPTION VALUE=\"DeleteSavedSearch\">Obriši označena sačuvana pretraživanja\n");
+		print("<OPTION VALUE=\"ActivateSavedSearch\">Uključi periodično automatsko pretraživanje po odabranim upitima\n");
+		print("<OPTION VALUE=\"SuspendSavedSearch\">Isključi periodično automatsko pretraživanje po odabranim upitima\n");
+		print("<OPTION VALUE=\"DeleteSavedSearch\">Obriši označene sačuvane upite\n");
 		print("</SELECT>\n");
 		print("<INPUT TYPE=SUBMIT VALUE=\"Do It!\">\n");
 		print("</TD></TR>\n");
@@ -5116,7 +5122,7 @@
 
 			}
 		
-			print("<TR><TD ALIGN=LEFT VALIGN=TOP></TD><TD ALIGN=LEFT VALIGN=TOP></TD> <TD ALIGN=LEFT VALIGN=TOP> <A HREF=\"$ENV{'SCRIPT_NAME'}/GetSavedSearch?SavedSearchObject=$SavedSearchEntry\" OnMouseOver=\"self.status='Display the search form with this search'; return true\"> [ Otvori formu za pretraživanje s upisanim ovim pretraživanjem ] </A> </TD></TR>\n");
+			print("<TR><TD ALIGN=LEFT VALIGN=TOP></TD><TD ALIGN=LEFT VALIGN=TOP></TD> <TD ALIGN=LEFT VALIGN=TOP> <A HREF=\"$ENV{'SCRIPT_NAME'}/GetSavedSearch?SavedSearchObject=$SavedSearchEntry\" OnMouseOver=\"self.status='Display the search form with this search'; return true\"> [ Otvori formu za pretraživanje s upisanim ovim upitom ] </A> </TD></TR>\n");
 		}
 		
 		print("</FORM></TABLE>\n");
@@ -5253,13 +5259,13 @@
 	
 	# Set the title
 	if ( $ENV{'PATH_INFO'} eq "/DeleteSavedSearch" ) {
-		$Title = "Obriši sačuvana pretraživanja";
+		$Title = "Brisanje sačuvanih pretraživanja";
 	}
 	elsif ( $ENV{'PATH_INFO'} eq "/ActivateSavedSearch" ) {
-		$Title = "Aktiviraj sačuvana pretraživanja";
+		$Title = "Uključivanje automatskog periodičnog pretraživanja";
 	}
 	elsif ( $ENV{'PATH_INFO'} eq "/SuspendSavedSearch" ) {
-		$Title = "Stavi u mirovanje sačuvana pretraživanja";
+		$Title = "Isključivanje automatskog periodičnog pretraživanja";
 	}
 	
 	
@@ -5274,9 +5280,9 @@
 	# Check to see if the saved search object is defined
 	if ( ! defined($main::FormData{'SavedSearchObject'}) ) {
 		# Could not find the saved search object
-		print("<H3><CENTER> Sorry, no searches were selected. </CENTER></H3>\n");
+		print("<H3><CENTER>Niste odabrali niti jedan upit. </CENTER></H3>\n");
 		print("<P>\n");
-		print("You need to select at least one saved search in order to be able to perform an action on it.\n");
+		print("Potrebno je odabrati barem jedan sačuvani upit nad kojim će se izvršiti akcija.\n");
 		print("<P>\n");
 		goto bailFromProcessSavedSearch;
 	}
@@ -5305,10 +5311,10 @@
 
 		if ( $ENV{'PATH_INFO'} eq "/DeleteSavedSearch" ) {
 			if ( unlink($SavedSearchFilePath) ) {
-				printf("<P>Successfully deleted: %s\n", $Value{'SearchName'});
+				printf("<P>Uspješno pobrisano: %s\n", $Value{'SearchName'});
 			}
 			else {
-				printf("<P>Failed to delete: %s\n", $Value{'SearchName'});
+				printf("<P>Nije pobrisano: %s\n", $Value{'SearchName'});
 			}
 		}
 		elsif ( ($ENV{'PATH_INFO'} eq "/ActivateSavedSearch") || ($ENV{'PATH_INFO'} eq "/SuspendSavedSearch") ) {
@@ -5322,12 +5328,12 @@
 				$Value{'SearchStatus'} =  ($ENV{'PATH_INFO'} eq "/ActivateSavedSearch") ? "Active" : "Inactive" ;
 				
 				if ( &iSaveXMLFileFromHash($SavedSearchFilePath, "SavedSearch", %Value) ) {
-					printf("<P>Successfully %s: %s\n", 
-							($ENV{'PATH_INFO'} eq "/ActivateSavedSearch") ? "activated" : "suspended", $Value{'SearchName'});
+					printf("<P>Uspješno %s: %s\n", 
+							($ENV{'PATH_INFO'} eq "/ActivateSavedSearch") ? "uključeno" : "isključeno", $Value{'SearchName'});
 				}
 				else {
-					printf("<P>Failed to %s: %s\n", 
-							($ENV{'PATH_INFO'} eq "/ActivateSavedSearch") ? "activated" : "suspended", $Value{'SearchName'});
+					printf("<P>Nije %s: %s\n", 
+							($ENV{'PATH_INFO'} eq "/ActivateSavedSearch") ? "uključeno" : "isključeno", $Value{'SearchName'});
 				}
 			}
 		}
@@ -5429,7 +5435,7 @@
 
 
 	# Print up the title
-	print("<H3> Snimanje foldera s dokumentima: </H3>\n");
+	print("<H3> Kreiranje korisničkog foldera: </H3>\n");
 
 	# Print up the form
 	printf("<FORM ACTION=\"$ENV{'SCRIPT_NAME'}/SetSaveFolder\" onSubmit=\"return checkForm(this)\" METHOD=POST>\n");
@@ -5478,7 +5484,7 @@
 		# Delete the old content
 		delete($main::FormData{'Documents'});
 
-
+###FIX
 		if ( defined($main::FormData{'Document'}) ) {
 			print("<TR>\n");
 			&bDisplayDocuments("Document", $main::FormData{'Document'}, "Document", undef, undef, 1);
@@ -5889,7 +5895,7 @@
 
 	
 	# Print out the document folders
-	print("<H3> Folderi: </H3>\n");
+	print("<H3> Korisnički folderi: </H3>\n");
 	
 
 	# Get the document folder hash