diff options
author | Yorhel <git@yorhel.nl> | 2020-03-30 11:25:06 +0200 |
---|---|---|
committer | Yorhel <git@yorhel.nl> | 2020-03-30 11:25:08 +0200 |
commit | ab2fadc4a7e18eb904948b51f47e5d738c35c53e (patch) | |
tree | cbd41c3d15968af8096c00ba997079bf2f50f1ce /lib/VNDB/Handler | |
parent | 97fa5d2a78f715297879381d32fd594d20761fe8 (diff) |
Producers::Graph: Experiment with dynamically generating relation graphs
The producers.rgraph column still exists and the old graphs are still
being generated - that will be removed if this new approach works out.
Diffstat (limited to 'lib/VNDB/Handler')
-rw-r--r-- | lib/VNDB/Handler/Producers.pm | 22 |
1 files changed, 0 insertions, 22 deletions
diff --git a/lib/VNDB/Handler/Producers.pm b/lib/VNDB/Handler/Producers.pm index b75081f0..9be2a75c 100644 --- a/lib/VNDB/Handler/Producers.pm +++ b/lib/VNDB/Handler/Producers.pm @@ -10,7 +10,6 @@ use VNDB::ExtLinks; TUWF::register( - qr{p([1-9]\d*)/rg} => \&rg, qr{p([1-9]\d*)(?:\.([1-9]\d*))?} => \&page, qr{p/add} => \&addform, qr{p(?:([1-9]\d*)(?:\.([1-9]\d*))?/edit|/new)} @@ -20,27 +19,6 @@ TUWF::register( ); -sub rg { - my($self, $pid) = @_; - - my $p = $self->dbProducerGet(id => $pid, what => 'relgraph')->[0]; - return $self->resNotFound if !$p->{id} || !$p->{rgraph}; - - my $title = "Relation graph for $p->{name}"; - return if $self->htmlRGHeader($title, 'p', $p); - - $p->{svg} =~ s/id="node_p$pid"/id="graph_current"/; - - div class => 'mainbox'; - h1 $title; - p class => 'center'; - lit $p->{svg}; - end; - end; - $self->htmlFooter; -} - - sub page { my($self, $pid, $rev) = @_; |