version 1.12, 2002/08/12 21:10:55
|
version 1.13, 2002/11/04 05:02:13
|
Line 86 my $self=url();
|
Line 86 my $self=url();
|
# The navigation panel has three special lines |
# The navigation panel has three special lines |
############################################### |
############################################### |
print <<END; |
print <<END; |
<dl> |
<ul> |
<dt><a href="$self">Home</a></dt> |
<li><a href="$self">Home</a></li> |
<dt><a href="$self?rid=1&level=1000&clubs=0">Все регионы</a></dt> |
<li><a href="$self?rid=1&level=1000&clubs=0">Все регионы</a></li> |
<dt><a href="$self?rid=1&level=1000&clubs=1">Все клубы</a></dt> |
<li><a href="$self?rid=1&level=1000&clubs=1">Все клубы</a></li> |
<dt><a href="$self?addclub=1">Добавить клуб</a></dt> |
<li><a href="$self?addclub=1">Добавить клуб</a></li> |
<dt><a href="$self?whoiswho=1">Кто есть кто</a></dt> |
<li><a href="$self?whoiswho=1">Кто есть кто</a></li> |
END |
END |
|
|
################################################# |
################################################# |
# And the navpanel itself |
# And the navpanel itself |
################################################## |
################################################## |
|
|
print ListRegions(dbh=>$dbh,rid=>1,level=>1,tag=>'dt', |
print ListRegions(dbh=>$dbh,rid=>1,level=>1,tag=>'li', |
self=>$self); |
self=>$self); |
|
|
print <<END; |
print <<END; |
</dl> |
</ul> |
END |
END |
|
|
|
|
Line 271 SELECT Child FROM RegionRegion WHERE Par
|
Line 271 SELECT Child FROM RegionRegion WHERE Par
|
push @kids,"rid=$kid"; |
push @kids,"rid=$kid"; |
} |
} |
my $clause = join(' OR ', @kids); |
my $clause = join(' OR ', @kids); |
$result .= "<dl>\n"; |
$result .= "<ul>\n"; |
$sth=$args{'dbh'}->prepare(" |
$sth=$args{'dbh'}->prepare(" |
SELECT rid FROM Regions WHERE $clause ORDER BY Name"); |
SELECT rid FROM Regions WHERE $clause ORDER BY Name"); |
$sth->execute; |
$sth->execute; |
Line 279 SELECT rid FROM Regions WHERE $clause OR
|
Line 279 SELECT rid FROM Regions WHERE $clause OR
|
$result .= ListRegions( |
$result .= ListRegions( |
%args,'rid'=>$kid, |
%args,'rid'=>$kid, |
'level'=>$args{'level'}-1, |
'level'=>$args{'level'}-1, |
'tag'=>'dt'); |
'tag'=>'li'); |
} |
} |
$result .= "</dl>\n"; |
$result .= "</ul>\n"; |
} |
} |
} |
} |
return $result; |
return $result; |
Line 344 SELECT cid FROM ClubRegion WHERE rid=$ar
|
Line 344 SELECT cid FROM ClubRegion WHERE rid=$ar
|
|
|
$result=<<END; |
$result=<<END; |
<h3>Клубы:</h3> |
<h3>Клубы:</h3> |
<dl>\n |
<ul>\n |
END |
END |
} else { |
} else { |
|
|
$result=<<END; |
$result=<<END; |
<dl><dt>Клубы:</dt> |
<ul>\n |
<dd><dl>\n |
|
END |
END |
} |
} |
my @clubs=(); |
my @clubs=(); |
Line 362 END
|
Line 361 END
|
SELECT cid, Name FROM Clubs WHERE $clause ORDER BY Name"); |
SELECT cid, Name FROM Clubs WHERE $clause ORDER BY Name"); |
$sth->execute; |
$sth->execute; |
while (my ($cid,$Name)=$sth->fetchrow_array) { |
while (my ($cid,$Name)=$sth->fetchrow_array) { |
$result .= dt("<a href=\"$self?cid=$cid\">$Name</a>\n"); |
$result .= li("<a href=\"$self?cid=$cid\">$Name</a>\n"); |
} |
} |
$result .= "</dl></dd></dl>\n"; |
$result .= "</ul>\n"; |
} |
} |
|
|
|
|