[an error occurred while processing this directive]

2007 год

Женское движение в России, события-2007

В ближайшие полтора-два месяца появятся первые наработки проекта Концепции развития здравоохранения в РФ - Минздравсоцразвития

14-12-2007  

  Минздравсоцразвития РФ в будущем году разработает Концепцию развития здравоохранения в стране на ближайшие 10 лет. Уже через полтора месяца "появятся первые наброски". Об этом сообщил 13 декабря журналистам замминистра здравоохранения и социального развития РФ Владимир Стародубов на общественных слушаниях Комиссии Общественной палаты, посвященных обсуждению Концепции развития здравоохранения на период до 2018 года. Он заявил, что в ходе обсуждения проекта Концепции необходимо четко решить, "останемся ли мы на этом уровне, либо перейдем полностью на страховую схему". Стародубов обратил особое внимание на то, что вносить свои предложения по проекту Концепции могут как медицинские учреждения, так и общественные институты.
Подробнее...

Саамский женский форум наметил план работы на 2008 год

14-12-2007  

  В Мурманске в деловом центре конгресс-отеля "Меридиан" прошел Саамский женский форум (СЖФ). Представители женского саамского движения Мурманской области, стран Скандинавии и Гренландии собрались, чтобы обсудить перспективы развития, бюджет на 2008 год, новые проекты. Саамские женщины договорились, что на следующей их встрече в рамках женского саамского движения будет рассмотрена тема "Воспитание детей и окружающая среда".
Подробнее...

В Краснодарской Думе дам усаживают в кресла начальников

14-12-2007  

  5 декабря состоялась первая организационная сессия нового состава кубанского парламента. Владимир Бекетов, бессменный его председатель предложил депутатам уделить особое внимание коллегам-женщинам. "У нас женщин немного – всего пять, так давайте их ценить. Советую всем комитетам, в состав которых вошли дамы, выделить им руководящие посты". В ответ спикеру было гробовое молчание. Депутаты были потрясены перспективами гендерного распределения постов руководителей комитетов.
Подробнее...

[an error occurred while processing this directive]
Гражданское общество, события-2007

"Союз социал-демократов" начал работу в Челябинске

12-12-2007 "Содействие", Челябинск

  В Челябинске состоялось расширенное заседание регионального отделения "Союза социал-демократов". В работе приняли участие также руководители и представители региональных отделений Оренбургской, Свердловской и Курганской области. Участники собрания в режиме "круглого стола" обсудили перспективы развития социал-демократического Движения, познакомились с заявлением Учредительного съезда Движения, высказали предложения о направлении работы.
Подробнее...

CAF Россия расценивает публикацию в "Коммерсанте" как удар по своей репутации

23-11-2007  

  CAF Россия распространил открытое письмо главному редактору газеты "КоммерсантЪ" А. Васильеву по поводу опубликованной 9 ноября в "Коммерсанте" статьи Льва Амбиндера "Зачем прозрачность благотворительности?". CAF Россия просит редакцию "Коммерсанта" опубликовать письмо в полном объеме как опровержение недобросовестно изложенных фактов. Текст письма, в котором приводится разбор материала с опровержением высказанных в статье мнений, доступен на сайте CAF Россия: http://www.cafrussia.ru/news/145/
Подробнее...

Анонсы, 2007

Сборник "Современная женщина, семья, демография. Актуальные исследования"

13-12-2007 Под общей редакцией Ольги Здравомысловой

  Издание Фонда имени Генриха Бёлля. В сборнике представлены наиболее интересные материалы новейших российских исследований, которые обсуждались в рамках клуба "Феминистские дебаты", организованного Российским филиалом Фонда имени Генриха Бёлля. В работе клуба принимают участие гендерные и феминистские исследовательницы, активисты общественных организаций, эксперты, журналисты, студенты и аспиранты, заинтересованные в обсуждении новых гендерных ролей в современном российском обществе.
Подробнее...

Женское движение в России, события-2006

На довыборах в гордуму Хабаровска победили только женщины

12-03-2007  

  По предварительным данным, в Железнодорожном районе победу одержала заведующая кафедрой Дальневосточного университета путей сообщения Кларисса Воробьева, в Кировском районе директор школы №38 Ирина Агафонова, в Индустриальном - предприниматель Светлана Кондракова, сообщили в избиркоме.
Подробнее...

Омская обл. На поддержку омских многодетных семей в 2007 г. направят 154 млн. руб.

27-12-2006  

  На заседании омской областной межведомственной комиссии по вопросам демографии, семьи, женщин и детей 26 декабря был принят план работы комиссии на 2007 год. 2007 год объявлен распоряжением губернатора Годом семьи в Омской области. Мероприятия будущего года будут составлять два основных блока. Так, будет осуществляться финансовая поддержка неполных, многодетных семей. Вторым направлением станет пропаганда семейных ценностей.
Подробнее...

Конференция "Женщины бизнеса в экономической жизни общества" (Москва, 25.12.2006)

27-12-2006  

  Вела Конференцию президент Общероссийской общественной организации "Женщины бизнеса", директор Российско-Арабского Делового Совета Т.А.Гвилава. Президент ТПП РФ Е.М.Примаков подчеркнул, что женщины - полноправные участники всех экономических процессов, происходящих в обществе, и их вклад в общее дело обогащает нашу страну. Цель Конференции - положить начало регулярным деловым встречам женщин-предпринимателей для обмена опытом, выработки стратегии и определения форм сотрудничества, в том числе по продвижению взаимных долгосрочных бизнес-проектов.
Подробнее...

[an error occurred while processing this directive]
Гражданское общество, события-2006

НКО ждут комментариев к распоряжению Президента РФ от 15 декабря

27-12-2006  

  Общее собрание членов Краснодарской региональной общественной организации "Южный региональный ресурсный центр" распространило обращения к В. Путину и Общественной палате РФ в связи с распоряжением президента от 15 декабря 2006 года N628-рп, посвященным государственной поддержке деятельности некоммерческих организаций (НКО), участвующих в развитии институтов гражданского общества. Авторы обращения отмечают, что, несмотря на значимость этого шага, "процедура определения НКО для поддержки и сами подходы к выделению бюджетных средств создали ряд острых проблем в отношениях федеральной власти и структур гражданского общества".
Подробнее...

Анонсы, 2006

Материнский (семейный) капитал и повышение пенсионных прав граждан – Анонс новых материалов экспертов проекта ЮНИФЕМ "Гендерные бюджеты в России" от 26.12.2006

27-12-2006  

  В статье рассматривается несколько аспектов ответа на следующий вопрос: "Что в действительности будет означать возможность использования материнского капитала для повышения пенсионных прав (расчетного пенсионного капитала) женщин в связи с рождением (усыновлением) второго ребенка на 250 тыс. рублей?"
Подробнее...

Новости женского движения в России, 2005

Круглый стол "Межведомственное сопровождение проблем поддержки семьи, профилактики семейного неблагополучия. На пути к повышению качества жизни: преодоление последствий и профилактика насилия" (Челябинск, 30.06.2006)

04-07-2006  

  В ходе встречи рассматривались опыт работы по проблеме домашнего насилия, комплексная социальная, психологическая, юридическая и медицинская помощь семье, оказавшейся в ситуации домашнего насилия, и т.д. Ее участники предложили сформировать рабочую группу для создания муниципального кризисного центра, а общественной организации "Содействие" - организовать организационно-методическое и информационное обеспечение опорных пунктов милиции и центров социальной помощи по проблеме домашнего насилия.
Подробнее...

[an error occurred while processing this directive]
События гражданского общества, 2005

Общественная палата РФ против создания бюрократической машины контроля над гражданским обществом

27-12-2005  

  23 декабря, когда в состав ОП вошли последние 42 члена, на заседании палаты было принято очередное заявление, касающееся изменения законодательства в области регулирования деятельности общественных и некоммерческих орагнизаций в России. Полный текст этого заявления.
Подробнее...

Структуры власти, события-2005

2006 год в Липецкой области - год отца

26-02-2006  

  Годом отца объявлен 2006 год в Липецкой области, сообщили в комитете по делам женщин, семьи и демографии региональной администрации. Цель новой акции - повышение социального статуса и ответственности семейных мужчин, укрепление семьи.
Подробнее...

Анонсы, 2005

Конференция "КАПИТАЛИЗМ И/ЛИ ПАТРИАРХАТ?"(г. Вильнюс, 22-24.06.2006)

27-12-2005  

  Конференцию проводит Центр гендерных исследований Европейского гуманитарного университета. Заявки на отдельные доклады или панели (три-четыре участника, объединенных общей темой) принимаются до 1 марта 2006 по адресу: gender@ehu-international.org
Подробнее...

[an error occurred while processing this directive] [an error occurred while processing this directive]
Новости женского движения в России,
2000-2004

Форум "Женщины - лидеры новой России" (Ярославль, 26.05.2006)

01-06-2006  

  Наш город первый, в котором представительницы прекрасного пола собрались обсудить важные общенациональные задачи после Всероссийского форума в Москве - 21 апреля на форуме в столице приняли участие более трехсот женщин из 52 регионов. Тогда было предложено проводить такой праздник ежегодно по всей России. Он пройдет в Самаре, нижнем Новгороде, Смоленске, Тюмени и Пензе. Женская позиция по вопросу демографии - жесткая: необходимо решить проблему бедности. "Задумайтесь, может ли страна с убывающим интеллектуальным потенциалом рассчитывать на конкурентноспособность, на лидерство и на решение своих демографических проблем?" - сказала президент Международной общественной организации "Будущее женщины" Александра Очирова.
Подробнее...

[an error occurred while processing this directive]
События гражданского общества, 2000-2004

Трагедия в Беслане объединила многих людей

02-09-2005  

  В результате теракта в Северной Осетии только по данным Генпрокуратуры РФ погибли 330 человек, из них 186 детей. Именно трагедия в Беслане впервые объединила многих людей. Среди них Ассоциация кризисных центров для женщин "Остановим насилие", которая в рамках проекта "Путь к исцелению" организовала реабилитацию детей, пострадавших во время теракта, и их родителей.
Подробнее...

Анонсы, 2000-2004

Семинар "Предотвращение трэффика – торговли людьми" (Карелия)

27-12-2004 КЦГИ

  Карельский центр гендерных исследований совместно со Шведским институтом и Администрацией местного самоуправления г. Петрозаводска проводит 18 января 2005 года семинар по теме: "Предотвращение трэффика – торговли людьми"
Подробнее...

Ваше мнение:
[an error occurred while processing this directive] #!/usr/bin/perl -w use CGI; use Poll::Config; use strict; my $buffer; my $input = new CGI (); my %infa; my %allll; $infa{script} = $ENV{SCRIPT_NAME}; #переменная $input->param("show_result") - разрешить просмотр без голосования #переменная $input->param("theme_name") - id темы #переменная $input->param("quest_id") - id вопроса #переменная $input->param("show_res") - выводить результат или опрос print "Content-type: text/html\n"; if ($input->param("quest_id") ne "all") { if ($input->param("theme_name") && $input->param("quest_id") && !$input->param("show_res") && !$input->param("action")) { &show_simple_quest(0)} if ($input->param("theme_name") && $input->param("quest_id") && $input->param("show_res") && !$input->param("action")) { &show_simple_quest(1)} if ($input->param("theme_name") && !$input->param("quest_id") && $input->param("show_res") && !$input->param("action")) { &show_simple_quest(2)} if ($input->param("theme_name") && !$input->param("quest_id") && !$input->param("show_res") && !$input->param("action")) { &show_simple_quest(3)} if (!$input->param("theme_name") && $input->param("quest_id") && !$input->param("show_res") && !$input->param("action")) { &show_simple_quest(4)} if (!$input->param("theme_name") && $input->param("quest_id") && $input->param("show_res") && !$input->param("action")) { &show_simple_quest(5)} if (!$input->param("theme_name") && !$input->param("quest_id") && !$input->param("show_res") && !$input->param("action")) { &show_simple_quest(6)} if (!$input->param("theme_name") && !$input->param("quest_id") && $input->param("show_res") && !$input->param("action")) { &show_simple_quest(7)} } if (!$input->param("theme_name") &&($input->param("quest_id") eq "all") && !$input->param("action")) { &show_all} if ($input->param("theme_name") && ($input->param("quest_id") eq "all") && !$input->param("action")) { &show_theme_all} if ($input->param("action") eq "surv_all") { &surv_all} #Проголосовал if ($input->param("action") eq "volt") {&volt} if ($input->param("action") eq "show_res") { &show_res} sub show_simple_quest { my $mode = shift; my $id; my $theme_name; my %themes_hash; if ($mode == 0)#110 { $id = $input->param("quest_id"); $theme_name = get_theme_name ($input->param("theme_name")); }elsif ($mode == 4)#010 { dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; $id = $input->param("quest_id"); $theme_name = $themes_hash{$id}; dbmclose (%themes_hash); } elsif ($mode == 5)#011 { dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; $id = $input->param("quest_id"); $theme_name = $themes_hash{$id}; dbmclose (%themes_hash); &create_quest ($id,$theme_name); #Создаем html опроса } if ($mode == 0 or $mode == 4) { if (&inspect_user($id)) { &show_result ($id,$theme_name); #Показываем результат }else { &create_quest ($id,$theme_name); #Создаем html опроса } } if ($mode == 6)#000 { dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; my $k=0; my $show_id; my $show_theme; my %tmpHash; my @data_array; while ((my $key,my $value) = each %themes_hash) { unless ($key eq $value) { push (@data_array,$key); } } my $len = $#data_array+1; my $id; my @use_array; my $end=0; while (1) { my $rnd = rand ($len); $rnd = int ($rnd); $id = $data_array[$rnd]; unless (&inspect_user($id)) { $end=0; last; }else { push (@use_array,$id); @use_array = clear_array(\@use_array); if (compare_arrays (\@use_array,\@data_array)) { $end=1; last; } } } if ($end) { my @id_array; while ((my $key, my $value) = each %themes_hash) { unless ($key eq $value) { push (@id_array,$key); } } my $len = $#id_array+1; my $rnd = rand ($len); $rnd = int ($rnd); $id = $id_array[$rnd]; $theme_name = $themes_hash{$id}; dbmclose (%themes_hash); &show_result ($id,$theme_name); #Показываем результат }else { $theme_name = $themes_hash{$id}; &create_quest ($id,$theme_name); #Создаем html опроса dbmclose (%themes_hash); } }elsif ($mode == 3)#100 { $theme_name = get_theme_name ($input->param("theme_name")); dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; my @data_array; while ((my $key, my $value) = each %themes_hash) { unless ($key eq $value) { if ($value eq $theme_name) { push (@data_array,$key); } } } my $len = $#data_array+1; my $id; my @use_array; my $end=0; while (1) { my $rnd = rand ($len); $rnd = int ($rnd); $id = $data_array[$rnd]; unless (&inspect_user($id)) { $end=0; last; }else { push (@use_array,$id); @use_array = clear_array(\@use_array); if (compare_arrays (\@use_array,\@data_array)) { $end=1; last; } } } if ($end) { my @id_array; while ((my $key, my $value) = each %themes_hash) { unless ($key eq $value) { if ($value eq $theme_name) { push (@id_array,$key); } } } my $len = $#id_array+1; my $rnd = rand ($len); $rnd = int ($rnd); $id = $id_array[$rnd]; dbmclose (%themes_hash); &show_result ($id,$theme_name); #Показываем результат }else { $theme_name = $themes_hash{$id}; &create_quest ($id,$theme_name); #Создаем html опроса dbmclose (%themes_hash); } }elsif ($mode == 7)#001 { dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; my @id_array; while ((my $key, my $value) = each %themes_hash) { unless ($key eq $value) { push (@id_array,$key); } } my $len = $#id_array+1; my $rnd = rand ($len); $rnd = int ($rnd); $id = $id_array[$rnd]; $theme_name = $themes_hash{$id}; dbmclose (%themes_hash); &show_result ($id,$theme_name); #Показываем результат }elsif ($mode == 2)#101 { dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; $theme_name = get_theme_name ($input->param("theme_name")); my @id_array; while ((my $key, my $value) = each %themes_hash) { if ($value eq $theme_name) { unless ($key eq $value) { push (@id_array,$key); } } } my $len = $#id_array+1; my $rnd = rand ($len); $rnd = int ($rnd); $id = $id_array[$rnd]; dbmclose (%themes_hash); &show_result ($id,$theme_name); #Показываем результат }elsif ($mode == 1)#111 { $id = $input->param("quest_id"); $theme_name = get_theme_name ($input->param("theme_name")); &show_result ($id,$theme_name); #Показываем результат } } #Создает html для sub create_quest { my $id = shift; my $theme_name = $_[0]; my $fmt = [['name','mode','checked','value']]; $infa{'id'} = $id; $infa{'theme_id'} = $theme_name; $infa{'tname'} = $theme_name; open (DATA, "$data_location/$id.txt") or warn("Unable to create the data file"); if ($flock eq "y") { flock DATA, 2; } my $quest = ; chomp ($quest); my @quest_array = split (/\|/,$quest); $quest = $quest_array [0]; my $multi = $quest_array [1]; $infa {'quest'} = $quest; $infa {'multi_param'} = $multi; my $i=0; if ($multi) { $infa{'multi'} = "checkbox"; }else { $infa{'multi'} = "radio"; } while (my $line = ) { chomp ($line); my @ar = split (/\|/,$line); $line = $ar[0]; my $num = $id."_".$i; unless ($multi) { push (@$fmt,[$num,"mode",$i==0?'CHECKED':'',$line]); }else { push (@$fmt,[$num,"mode_$i",'',$line]); } $i++; } $infa{'count'} = $i; close (DATA); my %nav; if ($input->param("show_result")) { $nav{"show_simple"} = 1; }else { $nav{"show_simple"} = 0; } my $obj = View_HTML->new($quest_dir.$quest_templ); $obj->load(); $obj->{if_no_field} = ''; $allll{'conf'} = $fmt; $infa{cook_action} = "set_answer"; $infa{ccexp} = 48*3600000; $infa{ccpath}='/'; $obj->subst_comments(\%infa); $obj->subst_blocks( \%nav); $obj->subst_formats(%allll); print "Content-type: text/html\n\n"; $obj->print; exit; } #Функция проверяет отвечал ли пользователь на вопрос по его ip-адресу #Возвращает 1 если отвечал, else - 0. sub inspect_user { my $id = shift; return 0; if ($ip_logging == 1) { my $visitor = &get_user_param; open (IP, "$data_location/ip.txt") or warn("Unable to open the data file- ip.txt"); if ($flock eq "y") { flock IP, 2; } my @ip=; close(IP); foreach my $ip(@ip) { chomp($ip); my @dip=split(/\|/, $ip); if (($dip[0] eq $visitor)&&($dip[1] == $id)) { return 1; } } return 0; } } #Типа проголосовал sub volt { my $id = $input->param("id"); my $theme_name = $input->param("theme_id"); my $count = $input->param("count"); my @sel_array; my $multi = $input->param("multi"); my $sel_num; if ($multi) #multiselect defined { for (my $i=0;$i<$count;$i++) { if (defined ($input->param("mode_$i"))) { push (@sel_array,$i); } } }else { my $select = $input->param("mode"); @sel_array = split (/_/,$select); $sel_num = $sel_array[1]; } unless (&inspect_user($id)) { #&save_ip ($id); open (DATA, "$data_location/$id.txt") or warn "Unable to create the data file"; if ($flock eq "y") { flock DATA, 2; } my $quest = ; chomp ($quest); my @data_array; unless ($multi) #SINGLE SELECT { my $i=0; while (my $line = ) { chomp ($line); if ($i==$sel_num) { my @ar = split (/\|/,$line); my $otv = $ar[0]; my $count = $ar[1]; $count++; $line = $otv."\|".$count; } push (@data_array,$line); $i++; } }else #MULTISELECT { my $i=0; while (my $line = ) { chomp ($line); if (array_search (\@sel_array,$i)) { my @ar = split (/\|/,$line); my $otv = $ar[0]; my $count = $ar[1]; $count++; $line = $otv."\|".$count; } push (@data_array,$line); $i++; } } close (DATA); chmod (0664,"$data_location/$id.txt"); open (DATA, ">$data_location/$id.txt") or warn "Unable to create the data file"; if ($flock eq "y") { flock DATA, 2; } print DATA $quest."\n"; foreach my $line (@data_array) { print DATA $line."\n"; } close (DATA); } #Здесь был вывод результата голосования, но так как сказал Леонид, используем куки # &show_result ($id,$theme_name,-1); my $docReferer = $ENV{'HTTP_REFERER'}; my %themes_hash; $docReferer =~ s/\?.*$//; $theme_name = get_theme_id ($theme_name); $docReferer.="?quest_id=$id&show_res=1&theme_name=$theme_name"; print "Location: $docReferer\n\n"; #$input->param("quest_id") && !$input->param("show_res") } #Функция возвращает хэш полей и данных формы sub get_param_hash () { my %hash; foreach my $item ($input->param) { foreach my $item1 ($input->param($item)) { $hash{$item}=$item1; } } return %hash; } #Функция сохраняет в файл ip адрес пользователя и id вопроса, на который он ответил. sub save_ip { my $id = shift; if ($ip_logging == 1) { my $visitor = &get_user_param; chmod (0664,"$data_location/ip.txt"); open (IP, ">>$data_location/ip.txt") or warn "Unable to open the data file- ip.txt"; if ($flock eq "y") { flock IP, 2; } print IP $visitor."\|".$id."\n"; close(IP); } } #Функция показывает результаты голосования sub show_result { my $id = shift; my $theme_name = $_[0]; open (DATA, "$data_location/$id.txt") or warn("Unable to open the survey data file."); if ($flock eq "y") { flock DATA, 2; } my $count=0; #Общее количество ответов my $line = ; while ($line = ) { chomp ($line); my @data_array = split (/\|/,$line); if (defined ($data_array[1])) { $count+=$data_array[1]; } } close(DATA); open (DATA, "$data_location/$id.txt") or warn("Unable to open the survey data file."); if ($flock eq "y") { flock DATA, 2; } my $quest = ; chomp ($quest); my @quest_array = split (/\|/,$quest); $quest = $quest_array [0]; $infa{'quest'} = $quest; $infa{'id'} = $id; $infa{'tname'} = $theme_name; $infa{'all'} = $count; my $fmt = [['name','image','percent','value']]; while (my $line = ) { chomp ($line); my @data_array = split (/\|/,$line); my $cal; unless ($count == 0) { $cal = $data_array[1]/$count; }else { $cal=0; } my $percent = int (100*$cal); #my $percent = sprintf ("%.2f",100*$cal); push (@$fmt,[$data_array[0],$bar,$percent,$data_array[1]]); } close(DATA); my $obj = View_HTML->new($quest_dir.$result_templ); $obj->load(); $obj->{if_no_field} = ''; $allll{'conf'} = $fmt; $infa{cook_action} = "quest"; $infa{ccexp} = 48*360000; $infa{ccpath}='/'; $infa{id} = $id; $obj->subst_comments(\%infa); $obj->subst_formats(%allll); # print "Location: /about/index.shtml\n\n"; # print "Content-type: text/html\n\n"; print "\n"; $obj->print; exit; } sub show_all { my %themes_hash; my $fmt = [['theme_name','quest','script','quest_id','theme_name1']]; dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; my %tmpHash; while ((my $key, my $value) = each %themes_hash) { push (@{$tmpHash{$value}},$key); } while ((my $key, my $value) = each %tmpHash) { my @array = @$value; my $namet = get_theme_id ($key); push (@$fmt,['head',$key,'','','','']); foreach my $item (@array) { unless ($item eq $key) { open (DATA, "$data_location/$item.txt") or warn("Unable to open the survey data file."); if ($flock eq "y") { flock DATA, 2; } my $quest = ; chomp ($quest); my @quest_array = split (/\|/,$quest); $quest = $quest_array[0]; #$key = get_theme_id ($key); push (@$fmt,['head1',$key,$quest,$ENV{SCRIPT_NAME},$item,$namet]); close (DATA); } } } my $obj = View_HTML->new($quest_dir.$all_templ); $obj->load(); $obj->{if_no_field} = ''; $infa{ccexp} = 48*3600000; $infa{ccpath}='/'; $obj->subst_comments(\%infa); $obj->subst_formats( 'good' => $fmt ); print "\n"; $obj->print; dbmclose (%themes_hash); } #Голосование из таблицы вопросов sub surv_all { my $docReferer = $ENV{'HTTP_REFERER'}; my %themes_hash; my $id = $input->param("quest_id"); my $theme_name = $input->param("theme"); my $show_res; unless (&inspect_user($id)) { $show_res=0; }else {$show_res=1} $docReferer =~ s/\?.*$//; $docReferer.="?quest_id=$id&show_res=$show_res&theme_name=$theme_name"; print "Location: $docReferer\n\n"; } #Показывает все вопросы заданной темы sub show_theme_all { my %themes_hash; my $theme_name = $input->param("theme_name"); my $fmt = [['theme_name','quest','script','quest_id']]; dbmopen (%themes_hash, "$themes_dbm",0666) || die "cannot open dbmfile $themes_dbm: $!"; my %tmpHash; while ((my $key, my $value) = each %themes_hash) { if ($value eq $theme_name) { push (@{$tmpHash{$value}},$key); } } my @array = @{$tmpHash{$theme_name}}; push (@$fmt,['head',$theme_name,'','','']); foreach my $item (@array) { unless ($item eq $theme_name) { open (DATA, "$data_location/$item.txt") or warn("Unable to open the survey data file."); if ($flock eq "y") { flock DATA, 2; } my $quest = ; chomp ($quest); my @quest_array = split (/\|/,$quest); $quest = $quest_array [0]; push (@$fmt,['head1',$theme_name,$quest,$ENV{SCRIPT_NAME},$item]); close (DATA); } } dbmclose (%themes_hash); my $obj = View_HTML->new($quest_dir.$all_templ); $obj->load(); $obj->{if_no_field} = ''; $infa{ccexp} = 48*3600000; $infa{ccpath}='/'; $obj->subst_comments(\%infa); $obj->subst_formats( 'good' => $fmt ); print "Content-type: text/html\n\n"; $obj->print; } #Показ результатов опроса без голосования sub show_res { show_result ($input->param("quest_id"),$input->param("themes_id")); } sub compare_arrays { my $point1 = shift; my $point2 = $_[0]; my @array1 = @$point1; my @array2 = @$point2; my $flag=0; my $len1 = $#array1+1; my $len2 = $#array2+1; if ($len1 ne $len2) { return 0; } foreach my $item (@array1) { $flag=0; foreach my $item1(@array2) { if ($item eq $item1) { $flag++; } } unless ($flag) { return 0; } } return 1; } #Удаляет повторяющиеся элементы списка sub clear_array { my $pArray = shift; my @list = @$pArray; my %seen = (); my @uniq; foreach my $item (@list) { unless (exists( $seen{$item})) { $seen{$item} = 1; push (@uniq, $item); } } return @uniq; } #Проверяет значение куков #Первый параметр - id вопроса #Второй параметр - действие #set - установить куку action в 1 #reset - установить куку action в 0 sub get_user_param { my $ip; my $user_id; my $browser; my $proxy = $ENV{'HTTP_VIA'}; if($proxy) #у человека стоит прокси сервер { my $ip_from_proxy = $ENV{'HTTP_X_FORWARDED_FOR'}; if($ip_from_proxy) # неанонимный прокси сервер { $ip = $ip_from_proxy; } else # анонимный прокси сервер, делать нечего, воспользуемся тем, что есть { $ip = $ENV{'REMOTE_ADDR'}; } } else { $ip = $ENV{'REMOTE_ADDR'}; } $browser = $ENV{'HTTP_USER_AGENT'}; $user_id = $ip.$browser; return $user_id; } #Подпрограмма возвращает название темы по id sub get_theme_name { my $them_id = shift; my %themeid_hash; dbmopen (%themeid_hash, "$themeid_dbm",0666) || die "cannot open dbmfile $themeid_dbm: $!"; while ((my $key, my $value) = each %themeid_hash) { if ($value eq $them_id) { return $key; } } dbmclose (%themeid_hash); return 0; } #Подпрограмма возвращает название темы по id sub get_theme_id { my $them_id = shift; my %themeid_hash; dbmopen (%themeid_hash, "$themeid_dbm",0666) || die "cannot open dbmfile $themeid_dbm: $!"; my $id = $themeid_hash{$them_id}; dbmclose (%themeid_hash); return $id; } sub array_search { my $ref = shift; my @array = @$ref; my $param = $_[0]; foreach my $data (@array) { if ($data eq $param) { return 1; } } return 0; }
Портал создан при содействии Фонда им. Генриха Белля (Германия) и поддержан Посольством США в Москве и женским фондом Mama Cash
Редакция портала "Женщина и общество" благодарит Глобальный Фонд для Женщин (США) за поддержку в 2005 году
[an error occurred while processing this directive]
РОО "Восток-Запад: Женские Инновационные Проекты"
Электронная почта: zhip@owl.ru, zhip@mail.ru
Телефон/факс: +7(499) 940-8294
[an error occurred while processing this directive]