[BACK]Return to db.cgi CVS log [TXT] [DIR] Up to [Local Repository] / db / prgsrc

Diff for /db/prgsrc/db.cgi between versions 1.41 and 1.45

version 1.41, 2001/12/04 01:17:12 version 1.45, 2001/12/06 23:39:11
Line 152  sub printform Line 152  sub printform
   my $inputstring=textfield(-name=>'sstr',    my $inputstring=textfield(-name=>'sstr',
                          -default=>param('sstr')||'',                           -default=>param('sstr')||'',
                          -size=>50);                           -size=>50);
   my $fields=checkbox_group('searchin',['Question','Answer','Comments','Authors','Sources'], [grep $searchin{$_}, keys %searchin],    my @df=keys %searchin;
     @df=('Question', 'Answer') unless @df;
     my $fields=checkbox_group('searchin',['Question','Answer','Comments','Authors','Sources'], [@df],
              'false',\%rusfieldname);               'false',\%rusfieldname);
   
   my $metod=radio_group(-name=>'metod',-values=>['old','rus'],    my $metod=radio_group(-name=>'metod',-values=>['old','rus'],
                        -default=>param('metod')||'rus',                         -default=>(param('metod')||'rus'),
                        -labels=>\%rusfieldname);                         -labels=>\%rusfieldname);
   my $all=radio_group(-name=>'all',-values=>['yes','no'],    my $all=radio_group(-name=>'all',-values=>['yes','no'],
                        -default=>param('all')||'no',                         -default=>(param('all')||'no'),
                        -labels=>{'yes'=>'÷ÓÅ','no'=>'ìÀÂÏÅ'});                         -labels=>{'yes'=>'÷ÓÅ','no'=>'ìÀÂÏÅ'});
   
 #################################################  #################################################
Line 193  sub proxy Line 195  sub proxy
       $text=~s/p(${RLrl})/Ò$1/gom;        $text=~s/p(${RLrl})/Ò$1/gom;
       $text=~s/(${RLrl})p/$1Ò/gom;        $text=~s/(${RLrl})p/$1Ò/gom;
       $text=~s/\s+/ /gmo;        $text=~s/\s+/ /gmo;
       $text=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀêãõëåîçûýúèÿæù÷áðòïìäöüñþóíéôøâàQWERTYUIOPASDFGHJKLZXCVBNM]/ /g;        $text=~s/[^ÊÃÕËÅÎÇÛÝÚÈßÆÙ×ÁÐÒÏÌÄÖÜÑÞÓÍÉÔØÂÀêãõëåîçûýúèÿæù÷áðòïìäöüñþóíéôøâàQWERTYUIOPASDFGHJKLZXCVBNM0-9]/ /g;
       $text=uc $text;        $text=uc $text;
       my @list= $text=~m/(?:(?:${RLrl})+)|(?:[A-Za-z0-9]+)/gom;        my @list= $text=~m/(?:(?:${RLrl})+)|(?:[A-Za-z0-9]+)/gom;
       my (%c, %good,$sstr);        my (%c, %good,$sstr);
Line 210  sub proxy Line 212  sub proxy
          $good{$_}=1 if $c{$_}<200;           $good{$_}=1 if $c{$_}<200;
       }        }
   
       $good{$words[$_]}=0 foreach 11..$#words;        $good{$words[$_]}=0 foreach 16..$#words;
   
 #      foreach (@list)  #      foreach (@list)
 #      {  #      {
Line 995  sub PrintQuestion { Line 997  sub PrintQuestion {
                         $output .= &PrintField("ëÏÍÍÅÎÔÁÒÉÉ", $Question{'Comments'}, $text);                          $output .= &PrintField("ëÏÍÍÅÎÔÁÒÉÉ", $Question{'Comments'}, $text);
                 }                  }
         }          }
         $output.=br.a({href=> url."?metod=proxy&qid=$Id"}, 'âÌÉÚËÉÅ ×ÏÐÒÏÓÙ').p  #       $output.=br.a({href=> url."?metod=proxy&qid=$Id"}, 'âÌÉÚËÉÅ ×ÏÐÒÏÓÙ').p
              if $answer;  #             if $answer;
         return $output;          return $output;
 }  }
   
Removed from v.1.41  
changed lines
  Added in v.1.45

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>