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

Diff for /db/prgsrc/db.cgi between versions 1.5 and 1.6

version 1.5, 2000/10/19 23:04:46 version 1.6, 2000/10/20 04:06:54
Line 108  sub Search { Line 108  sub Search {
         my (@arr, @Questions, @fields);          my (@arr, @Questions, @fields);
         my (@sar, $i, $sth);          my (@sar, $i, $sth);
   
         push @fields, 'Question';  #       push @fields, 'Question';
         foreach (qw/Answer Sources Authors Comments/) {          foreach (qw/Question Answer Sources Authors Comments/) {
                 if (param($_)) {                  if (param($_)) {
                         push @fields, "IFNULL($_, '')";                          push @fields, "IFNULL($_, '')";
                 }                  }
Line 224  sub PrintTournament { Line 224  sub PrintTournament {
                 for ($Tournament{'Type'}) {                  for ($Tournament{'Type'}) {
                         /ç/ && do {                          /ç/ && do {
                                 $output .= h2({align=>"center"},                                   $output .= h2({align=>"center"}, 
                                         "çÒÕÐÐÁ: $Tournament{'Title'}") . p . "\n";                                                "çÒÕÐÐÁ: $Tournament{'Title'} ",
                                                 "$Tournament{'PlayedAt'}") . p . "\n";
                                 last;                                  last;
                         };                          };
                         /þ/ && do {                          /þ/ && do {
                                 return &PrintTour($dbh, $Tours[0], $answer)                                  return &PrintTour($dbh, $Tours[0], $answer)
                                         if ($#Tours == 0);                                          if ($#Tours == 0);
                                   
                                   my $title="ðÁËÅÔ: $Tournament{'Title'}";
                                   if ($Tournament{'PlayedAt'}) {
                                       $title .= " $Tournament{'PlayedAt'}";
                                   }
   
                                 $output .= h2({align=>"center"},                                   $output .= h2({align=>"center"}, 
                                         "þÅÍÐÉÏÎÁÔ: $Tournament{'Title'}") . p . "\n";                                          "$title") . p . "\n";
                                 last;                                  last;
                         };                          };
                         /ô/ && do {                          /ô/ && do {
Line 269  sub PrintTournament { Line 275  sub PrintTournament {
   
                 if ($SingleTour or $Tournament{'Type'} =~ /ô/) {                  if ($SingleTour or $Tournament{'Type'} =~ /ô/) {
                         $list .= dd(img({src=>$imgsrc, alt=>$alt})                          $list .= dd(img({src=>$imgsrc, alt=>$alt})
                                 . " " . $Tournament{'Title'} . $qnum) .                                   . " " . $Tournament{'Title'} . " " .
                                       $Tournament{'PlayedAt'} . $qnum) . 
                                 dl(                                  dl(
                                         dd("["                                          dd("["
                                                 . a({href=>url .  "?tour=$Tournament{'Id'}&answer=0"},                                                  . a({href=>url .  "?tour=$Tournament{'Id'}&answer=0"},
Line 282  sub PrintTournament { Line 289  sub PrintTournament {
                                 img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1}))                                  img({src=>'/icons/compressed.gif', alt=>'[ZIP]', border=>1}))
                                 . " " . img({src=>$imgsrc, alt=>$alt})                                   . " " . img({src=>$imgsrc, alt=>$alt}) 
                                 . " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"},                                   . " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"}, 
                                 $Tournament{'Title'}) . $qnum);                                  $Tournament{'Title'}. " ". 
                                             $Tournament{'PlayedAt'}) . $qnum);
                 }                  }
         }          }
         $output .= dl($list);          $output .= dl($list);
Line 337  sub PrintTour { Line 345  sub PrintTour {
         my ($suffix) = &Suffix($qnum);           my ($suffix) = &Suffix($qnum); 
                   
         $output .= h2({align=>"center"}, $Tournament{"Title"},           $output .= h2({align=>"center"}, $Tournament{"Title"}, 
                         $Tournament{'PlayedAt'},
                       "<br>", $Tour{"Title"} .                         "<br>", $Tour{"Title"} . 
                 " ($qnum ×ÏÐÒÏÓ$suffix)\n") . p;                  " ($qnum ×ÏÐÒÏÓ$suffix)\n") . p;
   
Line 415  sub PrintQuestion { Line 424  sub PrintQuestion {
                         my (%Tournament) = GetTournament($dbh, $Tour{'ParentId'});                          my (%Tournament) = GetTournament($dbh, $Tour{'ParentId'});
                         $titles .=                          $titles .=
                                 dd(img({src=>"/icons/folder.open.gif"}) . " " .                                  dd(img({src=>"/icons/folder.open.gif"}) . " " .
                                          a({href=>url . "?tour=$Tournament{'Id'}"}, $Tournament{'Title'}));                                           a({href=>url . "?tour=$Tournament{'Id'}"}, $Tournament{'Title'}, $Tournament{'PlayedAt'}));
                         $titles .=                          $titles .=
                                 dl(dd(img({src=>"/icons/folder.open.gif"}) . " " .                                  dl(dd(img({src=>"/icons/folder.open.gif"}) . " " .
                                         a({href=>url . "?tour=$Tour{'Id'}"}, $Tour{'Title'})));                                          a({href=>url . "?tour=$Tour{'Id'}"}, $Tour{'Title'})));
Line 527  sub PrintAll { Line 536  sub PrintAll {
         } else {          } else {
                 $output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) .                  $output .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) .
       " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"},        " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"},
       $Tournament{'Title'}) . " $New");        $Tournament{'Title'}) ." " . $Tournament{'PlayedAt'} . " $New");
         }          }
         if ($Id == 0 or $Tournament{'Type'} =~ /ç/) {          if ($Id == 0 or $Tournament{'Type'} =~ /ç/) {
                 for ($i = 0; $i <= $#Tours; $i++) {                  for ($i = 0; $i <= $#Tours; $i++) {
Line 561  sub PrintDates { Line 570  sub PrintDates {
                 %Tournament = &GetTournament($dbh, $array[0]);                  %Tournament = &GetTournament($dbh, $array[0]);
       $list .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) .        $list .= dd(img({src=>"/icons/folder.gif", alt=>"[*]"}) .
       " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"},        " " . a({href=>url . "?tour=$Tournament{'Id'}&answer=0"},
       $Tournament{'Title'}));        $Tournament{'Title'}, $Tournament{'PlayedAt'}));
         }          }
         $output .= dl($list);          $output .= dl($list);
         return $output;          return $output;
Removed from v.1.5  
changed lines
  Added in v.1.6

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