513 |
print"<INPUT NAME=\"ListSearchHistory\" TYPE=SUBMIT VALUE=\"Prijašnja pretraživanja\" $DISABLED class=\"navigacija${DISABLED}\">"; |
print"<INPUT NAME=\"ListSearchHistory\" TYPE=SUBMIT VALUE=\"Prijašnja pretraživanja\" $DISABLED class=\"navigacija${DISABLED}\">"; |
514 |
|
|
515 |
$DISABLED = ( %MenuBar && defined($MenuBar{'ListSavedSearch'}) ) ? "DISABLED" : ""; |
$DISABLED = ( %MenuBar && defined($MenuBar{'ListSavedSearch'}) ) ? "DISABLED" : ""; |
516 |
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}\">"; |
517 |
|
|
518 |
$DISABLED = ( %MenuBar && defined($MenuBar{'ListFolder'}) ) ? "DISABLED" : ""; |
$DISABLED = ( %MenuBar && defined($MenuBar{'ListFolder'}) ) ? "DISABLED" : ""; |
519 |
print"<INPUT NAME=\"ListFolder\" TYPE=SUBMIT VALUE=\"Korisnički folderi\" $DISABLED class=\"navigacija${DISABLED}\">"; |
print"<INPUT NAME=\"ListFolder\" TYPE=SUBMIT VALUE=\"Korisnički folderi\" $DISABLED class=\"navigacija${DISABLED}\">"; |
1958 |
# Print the title |
# Print the title |
1959 |
if ( $HTML ) { |
if ( $HTML ) { |
1960 |
printf("<TD ALIGN=LEFT VALIGN=TOP>%s%s:</TD><TD ALIGN=LEFT VALIGN=TOP>\n", |
printf("<TD ALIGN=LEFT VALIGN=TOP>%s%s:</TD><TD ALIGN=LEFT VALIGN=TOP>\n", |
1961 |
defined($Title) ? $Title : "Document", (scalar(@Documents) > 1) ? "s" : ""); |
# defined($Title) ? $Title : "Document", (scalar(@Documents) > 1) ? "s" : ""); |
1962 |
|
$Title); |
1963 |
} |
} |
1964 |
else { |
else { |
1965 |
printf("%s%s:\n", defined($Title) ? $Title : "Document", (scalar(@Documents) > 1) ? "s" : ""); |
# printf("%s%s:\n", defined($Title) ? $Title : "Document", (scalar(@Documents) > 1) ? "s" : ""); |
1966 |
|
print $Title; |
1967 |
} |
} |
1968 |
|
|
1969 |
|
|
2194 |
print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>\n"); |
print("<TABLE BORDER=0 CELLPADDING=0 CELLSPACING=0 WIDTH=100%>\n"); |
2195 |
|
|
2196 |
# Print the selector |
# Print the selector |
2197 |
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"); |
2198 |
|
|
2199 |
if ( $ResultCount > 0 ) { |
if ( $ResultCount > 0 ) { |
2200 |
|
|
2209 |
if ( $main::ConfigurationData{'allow-relevance-feedback-searches'} eq "yes" ) { |
if ( $main::ConfigurationData{'allow-relevance-feedback-searches'} eq "yes" ) { |
2210 |
print("<OPTION VALUE=\"GetSearchResults\">Run search with selected documents as relevance feedback\n"); |
print("<OPTION VALUE=\"GetSearchResults\">Run search with selected documents as relevance feedback\n"); |
2211 |
} |
} |
2212 |
print("<OPTION VALUE=\"GetSaveSearch\">Sačuvaj rezultate pretraživanja\n"); |
print("<OPTION VALUE=\"GetSaveSearch\">Sačuvaj upit\n"); |
2213 |
print("<OPTION VALUE=\"GetSaveFolder\">Sačuvaj odabrane rezultate u novi folder\n"); |
print("<OPTION VALUE=\"GetSaveFolder\">Sačuvaj odabrane rezultate u novi folder\n"); |
2214 |
|
|
2215 |
# Get the document folder hash |
# Get the document folder hash |
4640 |
|
|
4641 |
|
|
4642 |
# Give the user a form to fill out |
# Give the user a form to fill out |
4643 |
print("<H3> Saving a search: </H3>\n"); |
print("<H3> Čuvanje upita: </H3>\n"); |
4644 |
|
|
4645 |
|
|
4646 |
|
|
4693 |
print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=2><HR WIDTH=50%></TD></TR>\n"); |
print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=2><HR WIDTH=50%></TD></TR>\n"); |
4694 |
|
|
4695 |
# Send the search name and search description fields |
# Send the search name and search description fields |
4696 |
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"); |
4697 |
|
|
4698 |
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"); |
4699 |
|
|
4700 |
if ( defined($main::FormData{'RfDocument'}) ) { |
if ( defined($main::FormData{'RfDocument'}) ) { |
4701 |
print("<TR>\n"); |
print("<TR>\n"); |
4706 |
|
|
4707 |
print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=2><HR WIDTH=50%></TD></TR>\n"); |
print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=2><HR WIDTH=50%></TD></TR>\n"); |
4708 |
|
|
4709 |
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"); |
4710 |
|
|
4711 |
|
|
4712 |
|
|
4715 |
|
|
4716 |
print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=2><HR WIDTH=50%></TD></TR>\n"); |
print("<TR><TD ALIGN=CENTER VALIGN=TOP COLSPAN=2><HR WIDTH=50%></TD></TR>\n"); |
4717 |
|
|
4718 |
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"); |
4719 |
|
|
4720 |
# Send a pull-down which allows the user to select the automatic search frequency |
# Send a pull-down which allows the user to select the automatic search frequency |
4721 |
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"); |
4722 |
foreach $ValueEntry ( @main::SearchFrequencies ) { |
foreach $ValueEntry ( @main::SearchFrequencies ) { |
4723 |
$Value = (defined($SearchFrequency) && ($SearchFrequency eq $ValueEntry)) ? "SELECTED" : ""; |
$Value = (defined($SearchFrequency) && ($SearchFrequency eq $ValueEntry)) ? "SELECTED" : ""; |
4724 |
print("<OPTION VALUE=\"$ValueEntry\" $Value> $ValueEntry \n"); |
print("<OPTION VALUE=\"$ValueEntry\" $Value> $ValueEntry \n"); |
4726 |
print("</SELECT> </TD></TR>\n"); |
print("</SELECT> </TD></TR>\n"); |
4727 |
|
|
4728 |
# Send a pull-down which allows the user to select the automatic search delivery format |
# Send a pull-down which allows the user to select the automatic search delivery format |
4729 |
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"); |
4730 |
foreach $ValueEntry ( sort(keys(%main::DeliveryFormats)) ) { |
foreach $ValueEntry ( sort(keys(%main::DeliveryFormats)) ) { |
4731 |
$Value = (defined($DeliveryFormat) && ($DeliveryFormat eq $ValueEntry)) ? "SELECTED" : ""; |
$Value = (defined($DeliveryFormat) && ($DeliveryFormat eq $ValueEntry)) ? "SELECTED" : ""; |
4732 |
print("<OPTION VALUE=\"$ValueEntry\" $Value> $main::DeliveryFormats{$ValueEntry}\n"); |
print("<OPTION VALUE=\"$ValueEntry\" $Value> $main::DeliveryFormats{$ValueEntry}\n"); |
4734 |
print("</SELECT> </TD></TR>\n"); |
print("</SELECT> </TD></TR>\n"); |
4735 |
|
|
4736 |
# Send a pull-down which allows the user to select the automatic search delivery method |
# Send a pull-down which allows the user to select the automatic search delivery method |
4737 |
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"); |
4738 |
foreach $ValueEntry ( sort(keys(%main::DeliveryMethods)) ) { |
foreach $ValueEntry ( sort(keys(%main::DeliveryMethods)) ) { |
4739 |
$Value = (defined($DeliveryMethod) && ($DeliveryMethod eq $ValueEntry)) ? "SELECTED" : ""; |
$Value = (defined($DeliveryMethod) && ($DeliveryMethod eq $ValueEntry)) ? "SELECTED" : ""; |
4740 |
print("<OPTION VALUE=\"$ValueEntry\" $Value> $main::DeliveryMethods{$ValueEntry}\n"); |
print("<OPTION VALUE=\"$ValueEntry\" $Value> $main::DeliveryMethods{$ValueEntry}\n"); |
4855 |
&& !(defined($main::FormData{'OverWrite'}) && ($main::FormData{'OverWrite'} eq "yes")) ) { |
&& !(defined($main::FormData{'OverWrite'}) && ($main::FormData{'OverWrite'} eq "yes")) ) { |
4856 |
|
|
4857 |
# There is already a saved search with this name, so we suggest corrective action to the user. |
# There is already a saved search with this name, so we suggest corrective action to the user. |
4858 |
print("<H3> Saving a Search: </H3>\n"); |
print("<H3> Čuvanje upita: </H3>\n"); |
4859 |
print("<H3><CENTER> Sorry, there is already a saved search with this name. </CENTER></H3>\n"); |
print("<H3><CENTER> Već postoji upit pod ovim imenom. </CENTER></H3>\n"); |
4860 |
print("<P>\n"); |
print("<P>\n"); |
4861 |
print("Click <B>'back'</B> on your browser, change the <B>'search name'</B> and try again, \n"); |
print("Kliknite <B>'back'</B> u browseru, promijenite <B>'Naziv'</B> i pokušajte ponovo, \n"); |
4862 |
print("alternatively you can check the box which allows you to automatically over-write a saved search with the same name.\n"); |
print("ili kliknuti na kvadratić koji vam omogućava da automatski presnimite sačuvani upit s istim imenom.\n"); |
4863 |
print("<P>\n"); |
print("<P>\n"); |
4864 |
|
|
4865 |
goto bailFromSetSaveSearch; |
goto bailFromSetSaveSearch; |
4873 |
if ( !defined($Value) && (defined($main::FormData{'Regular'}) && ($main::FormData{'Regular'} eq "yes")) ) { |
if ( !defined($Value) && (defined($main::FormData{'Regular'}) && ($main::FormData{'Regular'} eq "yes")) ) { |
4874 |
|
|
4875 |
# Regular delivery was requested, but the email address was not specified in the settings |
# Regular delivery was requested, but the email address was not specified in the settings |
4876 |
print("<H3> Saving a Search: </H3>\n"); |
print("<H3> Čuvanje upita: </H3>\n"); |
4877 |
print("<H3><CENTER> Sorry, your email address is not specified in your settings. </CENTER></H3>\n"); |
print("<H3><CENTER> E-mail adresa nije specificirana u vašim postavkama. </CENTER></H3>\n"); |
4878 |
print("<P>\n"); |
print("<P>\n"); |
4879 |
print("You need to specify your email address in your settings if you want this search to run on a regular basis, \n"); |
print("Potrebno je specificirati e-mail adresu ukoliko želite da se pretraživanje po ovom upitu odvije periodično. \n"); |
4880 |
print("without your email address, we are not able to send you the search result. <P>\n"); |
print("bez e-mail adrese, nismo vam u mogućnosti isporučiti rezultate. <P>\n"); |
4881 |
print("Click the <B>'Settings'</B> option from the menu sidebar, fill in your email address and save the settings, \n"); |
print("Kliknite na <B>'Korisničke postavke'</B>, upišite e-mail adresu i sačuvajte postavke, \n"); |
4882 |
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("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"); |
4883 |
print("<P>\n"); |
print("<P>\n"); |
4884 |
|
|
4885 |
goto bailFromSetSaveSearch; |
goto bailFromSetSaveSearch; |
5006 |
|
|
5007 |
|
|
5008 |
# Print out the saved searches |
# Print out the saved searches |
5009 |
print("<H3> Sačuvana pretraživanja: </H3>\n"); |
print("<H3> Sačuvani upiti: </H3>\n"); |
5010 |
|
|
5011 |
|
|
5012 |
|
|
5022 |
|
|
5023 |
print("<TR><TD ALIGN=RIGHT VALIGN=TOP COLSPAN=3> \n"); |
print("<TR><TD ALIGN=RIGHT VALIGN=TOP COLSPAN=3> \n"); |
5024 |
print("<SELECT NAME=\"Action\">\n"); |
print("<SELECT NAME=\"Action\">\n"); |
5025 |
print("<OPTION VALUE=\"ActivateSavedSearch\">Uključi periodično automatsko pretraživanje označenih pretraživanja\n"); |
print("<OPTION VALUE=\"ActivateSavedSearch\">Uključi periodično automatsko pretraživanje po odabranim upitima\n"); |
5026 |
print("<OPTION VALUE=\"SuspendSavedSearch\">Isključi periodično automatsko pretraživanje označenih pretraživanja\n"); |
print("<OPTION VALUE=\"SuspendSavedSearch\">Isključi periodično automatsko pretraživanje po odabranim upitima\n"); |
5027 |
print("<OPTION VALUE=\"DeleteSavedSearch\">Obriši označena pretraživanja\n"); |
print("<OPTION VALUE=\"DeleteSavedSearch\">Obriši označene sačuvane upite\n"); |
5028 |
print("</SELECT>\n"); |
print("</SELECT>\n"); |
5029 |
print("<INPUT TYPE=SUBMIT VALUE=\"Do It!\">\n"); |
print("<INPUT TYPE=SUBMIT VALUE=\"Do It!\">\n"); |
5030 |
print("</TD></TR>\n"); |
print("</TD></TR>\n"); |
5122 |
|
|
5123 |
} |
} |
5124 |
|
|
5125 |
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"); |
5126 |
} |
} |
5127 |
|
|
5128 |
print("</FORM></TABLE>\n"); |
print("</FORM></TABLE>\n"); |
5280 |
# Check to see if the saved search object is defined |
# Check to see if the saved search object is defined |
5281 |
if ( ! defined($main::FormData{'SavedSearchObject'}) ) { |
if ( ! defined($main::FormData{'SavedSearchObject'}) ) { |
5282 |
# Could not find the saved search object |
# Could not find the saved search object |
5283 |
print("<H3><CENTER>Niste odabrali niti jedno pretraživanje. </CENTER></H3>\n"); |
print("<H3><CENTER>Niste odabrali niti jedan upit. </CENTER></H3>\n"); |
5284 |
print("<P>\n"); |
print("<P>\n"); |
5285 |
print("Potrebno je odabrati barem jedno pretraživanje nad kojim će se izvršiti akcija.\n"); |
print("Potrebno je odabrati barem jedan sačuvani upit nad kojim će se izvršiti akcija.\n"); |
5286 |
print("<P>\n"); |
print("<P>\n"); |
5287 |
goto bailFromProcessSavedSearch; |
goto bailFromProcessSavedSearch; |
5288 |
} |
} |
5435 |
|
|
5436 |
|
|
5437 |
# Print up the title |
# Print up the title |
5438 |
print("<H3> Snimanje foldera s dokumentima: </H3>\n"); |
print("<H3> Kreiranje korisničkog foldera: </H3>\n"); |
5439 |
|
|
5440 |
# Print up the form |
# Print up the form |
5441 |
printf("<FORM ACTION=\"$ENV{'SCRIPT_NAME'}/SetSaveFolder\" onSubmit=\"return checkForm(this)\" METHOD=POST>\n"); |
printf("<FORM ACTION=\"$ENV{'SCRIPT_NAME'}/SetSaveFolder\" onSubmit=\"return checkForm(this)\" METHOD=POST>\n"); |
5484 |
# Delete the old content |
# Delete the old content |
5485 |
delete($main::FormData{'Documents'}); |
delete($main::FormData{'Documents'}); |
5486 |
|
|
5487 |
|
###FIX |
5488 |
if ( defined($main::FormData{'Document'}) ) { |
if ( defined($main::FormData{'Document'}) ) { |
5489 |
print("<TR>\n"); |
print("<TR>\n"); |
5490 |
&bDisplayDocuments("Document", $main::FormData{'Document'}, "Document", undef, undef, 1); |
&bDisplayDocuments("Document", $main::FormData{'Document'}, "Document", undef, undef, 1); |
5895 |
|
|
5896 |
|
|
5897 |
# Print out the document folders |
# Print out the document folders |
5898 |
print("<H3> Folderi: </H3>\n"); |
print("<H3> Korisnički folderi: </H3>\n"); |
5899 |
|
|
5900 |
|
|
5901 |
# Get the document folder hash |
# Get the document folder hash |