%#============================================================================ %# ePortal - WEB Based daily organizer %# Author - S.Rusakov %# %# Copyright (c) 2000-2003 Sergey Rusakov. All rights reserved. %# This program is free software; you can redistribute it %# and/or modify it under the same terms as Perl itself. %# %# %#---------------------------------------------------------------------------- <& navigator.mc &>

%#---------------------------------------------------------------------------- %# Search form %#---------------------------------------------------------------------------- <& /item_caption.mc, title => pick_lang(rus => "Поиск", eng => "Search") &>

<% pick_lang(rus => "Что искать?", eng => "Text to search") %>: <% CGI::textfield({-name => 'text', -size => 15, -class=>"dlgfield", -value=>$ARGS{text}}) %> <% CGI::popup_menu({-name => 'area', -values => ['all','products','mediums','files'], -default => $ARGS{area}, -labels => {all => 'везде', products => 'в продуктах', mediums=>'в носителях', files => 'в файлах'}}) %> %# "Search!") %>">
%#---------------------------------------------------------------------------- %# search results %#---------------------------------------------------------------------------- % if ($ARGS{text}) { % if ($ARGS{area} eq 'all' or $ARGS{area} eq 'products') {

<& show_products.mc, title => pick_lang(rus => "Продукты", eng => "Software"), extra => pick_lang(rus => "Результаты поиска в программных продуктах", eng => "Searching in software"), url => '/app/Diskoteka/product_view.htm?product_id=#id#', text => $ARGS{text} &> % } % if ($ARGS{area} eq 'all' or $ARGS{area} eq 'mediums') {

<& show_mediums.mc, title => pick_lang(rus => "Носители", eng => "Mediums"), extra => pick_lang(rus => "Результаты поиска в носителях информации", eng => "Searching in mediums"), url => '/app/Diskoteka/medium_view.htm?medium_id=#id#', text => $ARGS{text} &> % } % if ($ARGS{area} eq 'all' or $ARGS{area} eq 'files') {

<& show_files.mc, title => pick_lang(rus => "Файлы", eng => "Files"), extra => pick_lang(rus => "Результаты поиска в файлах", eng => "Searching in files"), text => $ARGS{text} &> % } % } %#=== @METAGS attr ========================================================= <%attr> Title => {rus => "Поиск", eng => "Search"}