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

Diff for /db/prgsrc/db.cgi between versions 1.145 and 1.148

version 1.145, 2006/09/30 22:16:48 version 1.148, 2008/06/15 07:16:42
Line 287  sub tourhref { Line 287  sub tourhref {
         $res=~s/(\#\d+)(.*)$/$2$1/;          $res=~s/(\#\d+)(.*)$/$2$1/;
         my $t=$res;          my $t=$res;
         $t=~s/\#.*$//;          $t=~s/\#.*$//;
         $res=~s/\.1// unless -e "$realHTMLDIR$t";  #       $res=~s/\.1// unless $gr ||$res=~/\.\d+$/;#-e "$realHTMLDIR$t";
         $t=$res;          $t=$res;
         $t=~s/\#.*$//;          $t=~s/\#.*$//;
 #       $res=~s/\.html/-q\.html/ unless -e "$realHTMLDIR$t";  #       $res=~s/\.html/-q\.html/ unless -e "$realHTMLDIR$t";
Line 1194  sub PrintTournament { Line 1194  sub PrintTournament {
                 p("Дополнительная информация об этом турнире - по адресу " .                  p("Дополнительная информация об этом турнире - по адресу " .
                         a({-'href'=>$URL}, $URL));                          a({-'href'=>$URL}, $URL));
         }          }
   
         if ($Copyright) {          if ($Copyright) {
                 $output .= p("Копирайт: " .   $Copyright);                  $output .= p("Копирайт: " .   $Copyright);
         }          }
Line 1204  sub PrintTournament { Line 1203  sub PrintTournament {
         if ($Info) {          if ($Info) {
                 $output .= p($Info);                  $output .= p($Info);
         }          }
   
           $output.=p("<a href='/dbxml.php?tour=".param('tour')."'>XML</a>");
           
           
         return $output;          return $output;
 }  }
   
Line 1300  sub PrintTour { Line 1303  sub PrintTour {
                 $output .= p($Tournament{'Info'});                  $output .= p($Tournament{'Info'});
         }          }
   
           if ($Tour{'Info'}) {
                   $output .= p($Tour{'Info'});
           }
   
   
           $output.=p("<a href='/dbxml.php?tour=".param('tour')."'>XML</a>");
   
         my $n=$Tour{'Number'};          my $n=$Tour{'Number'};
         if ($answer == 0) {          if ($answer == 0) {
                 my $nn=".$n";                  my $nn=".$n";
Line 1994  MAIN: Line 2004  MAIN:
                     print end_html;                      print end_html;
                         die "Can't connect to DB chgk\n";                          die "Can't connect to DB chgk\n";
                 };                  };
           $dbh->do("set names koi8r");
   
         if (param('qid') && (param('qid')=~/^\d+$/) || $tour && $tour=~/^\d+$/) {          if (param('qid') && (param('qid')=~/^\d+$/) || $tour && $tour=~/^\d+$/) {
 #          my $destination='http://chgk.zaba.ru/search.html';  #          my $destination='http://chgk.zaba.ru/search.html';
Removed from v.1.145  
changed lines
  Added in v.1.148

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