--- search/Search.cgi	2002/06/24 16:49:54	1.8
+++ search/Search.cgi	2002/06/24 17:52:31	1.9
@@ -1,19 +1,21 @@
 #!/usr/bin/perl -w
 
 #*****************************************************************************
-#       Copyright (C) 1993-2000, FS Consulting Inc. All rights reserved		 *
-#																			 *
-#																			 *
-#  This notice is intended as a precaution against inadvertent publication	 *
-#  and does not constitute an admission or acknowledgement that publication	 *
-#  has occurred or constitute a waiver of confidentiality.					 *
-#																			 *
-#  This software is the proprietary and confidential property				 *
-#  of FS Consulting, Inc.													 *
+#       Copyright (C) 1993-2000, FS Consulting Inc. All rights reserved      *
+#									     *
+#									     *
+#  This notice is intended as a precaution against inadvertent publication   *
+#  and does not constitute an admission or acknowledgement that publication  *
+#  has occurred or constitute a waiver of confidentiality.		     *
+#									     *
+#  This software is the proprietary and confidential property		     *
+#  of FS Consulting, Inc.						     *
 #*****************************************************************************
 
 #print "Content-type: text/plain\n\n";
 
+use Data::Dumper;
+
 #--------------------------------------------------------------------------
 #
 # Author: Francois Schiettecatte (FS Consulting, Inc.)
@@ -2110,18 +2112,15 @@
 	my (@Words, $Word, @OffsetPairs, $OffsetPair, %Offsets, $Offset, $Start, $End, $OldStart, $OldEnd, $CurrentSummaryLength);
 	my ($DatabaseSummaryFilterKey, $DatabaseSummaryFilterFunction);
 	my ($Value, %Value, @Values, $ValueEntry);
-	
-	
+
+
 	# Check input parameters
 	if ( !defined($SearchResults) || !%Content ) {
 		return (0);
 	}
 	
-
-	
 	# Split the search results text into a search results list
 	@SearchResults = split(/\n/, $SearchResults);			
-		
 	
 	
 	# First we count up the number of results and scoop up
@@ -2431,7 +2430,7 @@
 	}
 
 
-	
+### FIX:: ADD SORT HERE	
 	if ( $ResultCount > 0 ) {
 
 		# Loop over each entry in the hits list
@@ -3215,6 +3214,9 @@
 	print("<OPTION VALUE=\"SORT:DATE:DESC\" $Value> Datum - najprije novije\n");
 	$Value = (defined($main::FormData{'Order'}) && ($main::FormData{'Order'} eq "DATEASCSORT")) ? "SELECTED" : "";
 	print("<OPTION VALUE=\"SORT:DATE:ASC\" $Value> Datum - najprije starije\n");
+### FIX:: SORT
+#	print("<OPTION VALUE=\"SORT:700+:DESC\"> autor\n");
+#	print("<OPTION VALUE=\"SORT:200+:DESC\"> naslov\n");
 	print("</SELECT> </TD></TR>\n");