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

Diff for /db/prgsrc/updatedb.pl between versions 1.17 and 1.21

version 1.17, 2000/11/11 00:30:06 version 1.21, 2002/01/07 01:32:26
Line 70  sub getField { Line 70  sub getField {
             chomp $key;              chomp $key;
             if ($key eq 'Дата') {              if ($key eq 'Дата') {
                 $value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/;                  $value =~ s/^(.*)-(.*)-(.*)$/$3-$2-$1/;
                 my($month) = $RevMonths{$2} || '000';                  my($month) = $RevMonths{$2} || '01';
                 $value =~ s/$2/$month/;                  $value =~ s/-(.*)-/-$month-/;
                   $value =~ s/-00*$/-01/;
             }              }
             $value = $dbh->quote($value);              $value = $dbh->quote($value);
             return ($key, $value);              return ($key, $value);
Line 201  sub GetTours { Line 202  sub GetTours {
 sub CreateTour {  sub CreateTour {
     my ($dbh,$title,$ParentId,$TourNum,$rh_defaults)=@_;      my ($dbh,$title,$ParentId,$TourNum,$rh_defaults)=@_;
     my $sth = $dbh->prepare("INSERT INTO Tournaments      my $sth = $dbh->prepare("INSERT INTO Tournaments
                              (Title, Type, ParentId, TourNum)                                (Title, Type, ParentId, Number) 
                              VALUES ($title, 'Т', $ParentId, $TourNum)");                               VALUES ($title, 'Т', $ParentId, $TourNum)");
     $sth->execute;      $sth->execute;
     my $TourId = $sth->{mysql_insertid};      my $TourId = $sth->{mysql_insertid};
Line 228  MAIN: Line 229  MAIN:
     #      #
     my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type',       my %QuestionFields = ('Тип'=> 'Type', 'Вид'=> 'Type', 
                           'Автор' => 'Authors', 'Рейтинг'=>'Rating',                             'Автор' => 'Authors', 'Рейтинг'=>'Rating', 
                           'Источник' => 'Sources');                            'Источник' => 'Sources',
                             'Тема' => 'Topic');
                                                       
                                               
     my($source);      my($source);
Line 292  MAIN: Line 294  MAIN:
             if ($key =~ /Вопрос/) {              if ($key =~ /Вопрос/) {
                 if (!$TourId) {                  if (!$TourId) {
                     $qnum = 0;                      $qnum = 0;
                     $TourId=CreateTour($dbh,'1',$TournamentId,                      $TourNum++;
                       $TourId=CreateTour($dbh,'1',$TournamentId,$TourNum,
                                        \%TourDefaults);                                         \%TourDefaults);
                     %QuestionDefaults=%QuestionGlobalDefaults;                      %QuestionDefaults=%QuestionGlobalDefaults;
                 }                  }
Removed from v.1.17  
changed lines
  Added in v.1.21

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