--- db/prgsrc/db.cgi	2008/11/29 08:51:29	1.151
+++ db/prgsrc/db.cgi	2009/05/02 21:23:07	1.152
@@ -71,7 +71,7 @@ $outputkvo=100 if $outputkvo>100;
 
 if (param('debug')) {$debug=1; $printqueries=1}
 *STDERR=*STDOUT if $debug;
-if ($url !~ /db\.chgk\.info/ && $url !~ /localhost/ && $url !~ /bilbo/ && $url !~ /zaba/ && $url !~ /question\.chgk\.info/ ) {
+if ($url!~ /\/\/db\// && $url !~ /db\.chgk\.info/ && $url !~ /localhost/ && $url !~ /bilbo/ && $url !~ /zaba/ && $url !~ /question\.chgk\.info/ ) {
    my $u="http://db.chgk.info/cgi-bin/db.cgi?$qs";
    Redirect ($u);
    exit;
@@ -214,7 +214,7 @@ sub fetchquestion {
 	if ($WithTour) {
 		($$q{'QuestionId'}, $$q{'Question'},$$q{'Answer'},$$q{'PassCriteria'},$$q{'Comments'},$$q{'Authors'},$$q{'Sources'},
          	$$q{'Number'}, 
-         	$$q{'Title'}, $$q{'TourTitle'}, $$q{'FileName'},$$q{'PlayedAt'},$$q{'TourNumber'}) = 
+         	$$q{'Title'}, $$q{'TourTitle'}, $$q{'FileName'},$$q{'PlayedAt'},$$q{'TourNumber'},$$q{'PlayedAt2'}) = 
 	        $sth->fetchrow;
 	} else {
 		($$q{'QuestionId'}, $$q{'Question'},$$q{'Answer'},$$q{'PassCriteria'},$$q{'Comments'},$$q{'Authors'},$$q{'Sources'},
@@ -241,7 +241,7 @@ sub SelectQuestions {
 	if ($WithTour) {
  		$query="SELECT QuestionId, Questions.Question, Answer, PassCriteria, Comments, Authors, Sources,
                         Questions.Number
-			, t2.Title, t1.Title, t2.FileName,  t2.PlayedAt,t1.Number
+			, t2.Title, t1.Title, t2.FileName,  t2.PlayedAt,t1.Number,t2.PlayedAt2
 			from Questions,Tournaments as t1, Tournaments as t2 
                         WHERE $where";
 	} else {
@@ -385,7 +385,7 @@ sub printform
 return   
 <<EOT
 <form method="get" enctype="application/x-www-form-urlencoded"
-action="/znatoki/cgi-bin/db.cgi">
+action="/cgi-bin/db.cgi">
 <h2>Поиск в базе вопросов</h2>
 
 <input type="text" name="sstr" value="$sstr" size="30" maxlength="50"> 
@@ -1097,7 +1097,11 @@ sub PrintTournament {
 			/Г/ && do {
 				$output .= h2({align=>"center"},
 					      "Группа: $Tournament{'Title'} ",
-					      $Tournament{'PlayedAt'}||'') . p . "\n";
+					      $Tournament{'PlayedAt'}||'') . 
+					      ($Tournament{'PlayedAt2'}?'&nbsp;&ndash; '.
+					        $Tournament{'PlayedAt2'}:'') . 
+					      
+					      p . "\n";
 				last;
 			};
 			/Ч/ && do {
@@ -1109,6 +1113,10 @@ sub PrintTournament {
 				    $title .= " $Tournament{'PlayedAt'}";
 				}
 
+				if ($Tournament{'PlayedAt2'}) {
+				    $title .= '&nbsp;&ndash; '.$Tournament{'PlayedAt2'};
+				}
+
 				$output .= h2({align=>"center"},
 					"$title") . p . "\n";
 			       $output.=&PrintEditor(\%Tournament);
@@ -1175,7 +1183,9 @@ sub PrintTournament {
 		if ($SingleTour or ($Tournament{'Type'} =~ /Т/)) {
 			$list .= dd(img({src=>$imgsrc, alt=>$alt})
 				. " " . $Tournament{'Title'} . " " .
-				    ($Tournament{'PlayedAt'}||"") . $qnum) .
+				    ($Tournament{'PlayedAt'}||"") . 
+				    ($Tournament{'PlayedAt2'}?'&nbsp;&ndash; '.$Tournament{'PlayedAt2'}:"") .
+				    $qnum) .
 				dl(
 					dd("["
 						. a({href=>tourhref($textid,0)},
@@ -1191,7 +1201,8 @@ sub PrintTournament {
                                 img({src=>$imgsrc, alt=>$alt})
 				. " " . a({href=>tourhref($textid,0,1)},
 				$Tournament{'Title'}. " ".
-					  ($Tournament{'PlayedAt'}||'')) . $qnum); 
+					  ($Tournament{'PlayedAt'}||'')) .
+					  ($Tournament{'PlayedAt2'}?'&nbsp;&ndash '. $Tournament{'PlayedAt2'}:''). $qnum); 
 		}
 	}
 	$output .= dl($list);
@@ -1284,6 +1295,7 @@ sub PrintTour {
 
 	$output .= h2({align=>"center"}, $Tournament{"Title"},
 		      $Tournament{'PlayedAt'}||'',
+		      $Tournament{'PlayedAt2'}?'&nbsp;&ndash; '.$Tournament{'PlayedAt2'}:'',
 		      "<br>\n", $Tour{"Title"} .
 		" ($qnum вопрос$suffix)\n") . p;
 	$output .=&PrintEditor(\%Tour);
@@ -1413,6 +1425,7 @@ sub PrintQuestion {
 			$Question{'FileName'}=$Tournament{'FileName'};
 			$Question{'Title'}=$Tournament{'Title'};
 			$Question{'PlayedAt'}=$Tournament{'PlayedAt'};
+			$Question{'PlayedAt2'}=$Tournament{'PlayedAt2'};			
 			$Question{'TourNumber'}=$Tour{'Number'};
 			$Question{'TourTitle'}=$Tour{'Title'};
 		}
@@ -1428,7 +1441,8 @@ sub PrintQuestion {
 			$titles .=
 				dd(img({src=>"/icons/folder.open.gif"}) . " " .
 					 a({href=>tourhref($fname,0,1)}, 
-                               $Question{'Title'}, $Question{'PlayedAt'}||''));
+                               $Question{'Title'}, $Question{'PlayedAt'}||'',
+                               $Question{'PlayedAt2'}?'&nbsp;&ndash; '.$Question{'PlayedAt2'}:''));
 			$titles .=
 				dl(dd(img({src=>"/icons/folder.open.gif"}) . " " .
 					a({href=>tourhref("$fname.$Question{'TourNumber'}#$qnum",1)}, 
@@ -1681,7 +1695,9 @@ sub PrintAll {
 
 		$output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) .
       " " . a({href=>tourhref($textid,0,!$SingleTour)},
-      $Tournament{'Title'}) ." " . ($Tournament{'PlayedAt'}||'') . " $New");
+      $Tournament{'Title'}) ." " . ($Tournament{'PlayedAt'}||'') . 
+      ($Tournament{'PlayedAt2'}?'&nbsp;&ndash; '.$Tournament{'PlayedAt2'}:'') . 
+      " $New");
 	}
 	if ($Id == 0 or $Tournament{'Type'} =~ /Г/ or $Tournament{'Type'} eq '') {
 		for ($i = 0; $i <= $#Tours; $i++) {
@@ -1726,7 +1742,8 @@ sub PrintDates {
 	         else {$textid=$Tournament{'Id'}};
       $list .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) .
       " " . a({href=>tourhref($textid,0,1)},
-      $Tournament{'Title'}, $Tournament{'PlayedAt'}||''));
+      $Tournament{'Title'}, $Tournament{'PlayedAt'}||'', 
+      $Tournament{'PlayedAt2'}?'&nbsp;&ndash; '.$Tournament{'PlayedAt2'}:''));
 	}
         $sth->finish;
 	$output .= dl($list);
@@ -1843,14 +1860,14 @@ sub WriteFile {
   $fname=~s/.*\/(\w+)/$1/;
 
   my $query= "SELECT Id, Title, Copyright, Info, URL, 
-                      Editors, EnteredBy, PlayedAt, CreatedAt 
+                      Editors, EnteredBy, PlayedAt, CreatedAt, PlayedAt2
                      from Tournaments where FileName=
                      '$fname' OR FileName=".$dbh->quote("$fname.txt");
   my $sth=$dbh->prepare($query);
   my (%Question,%editor,%qnumber,%copyright,%author,%vid,%tourtitle);
   $sth->execute;
   my ($Id, $Title, $Copyright, $Info, $URL, 
-   $Editors, $EnteredBy, $PlayedAt, $CreatedAt)=
+   $Editors, $EnteredBy, $PlayedAt, $CreatedAt, $PlayedAt2)=
       $sth->fetchrow;
   return -1 unless $Id;
   open (OUT, ">$TMPDIR/$fname.txt") || print STDERR "Error in $fname.txt\n";
@@ -1859,6 +1876,10 @@ sub WriteFile {
   my ($year,$month,$day)=split /-/, $date;
 #  $month=0,$date=0 if $year && $month==1 && $day==1;
   my $pdate=sprintf("%02d-%3s-%4d",$day,$months[$month],$year);
+  if ($PlayedAt2) {
+    my ($year,$month,$day)=split /-/, $date;
+    $pdate .= sprintf(" - %02d-%3s-%4d",$day,$months[$month],$year);    
+  }
 
   print OUT "Дата:\n$pdate\n\n" if $date;