[Bio] / WebApplication / WebMenu.pm Repository:
ViewVC logotype

Diff of /WebApplication/WebMenu.pm

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.6, Mon Jul 30 20:47:31 2007 UTC revision 1.7, Thu Nov 15 21:53:40 2007 UTC
# Line 218  Line 218 
218  sub add_entry {  sub add_entry {
219      my ($self, $category, $entry, $url, $target) = @_;      my ($self, $category, $entry, $url, $target) = @_;
220    
221      unless ($category and $entry and $url) {      unless ($category and $entry){# and $url) {
222          die "Missing parameter ('$category', '$entry', '$url').";          die "Missing parameter ('$category', '$entry', '$url').";
223      }      }
224    
# Line 277  Line 277 
277        foreach (@{$self->{entries}->{$cat}}) {        foreach (@{$self->{entries}->{$cat}}) {
278    
279          my ($entry, $e_url, $e_target) = @$_;          my ($entry, $e_url, $e_target) = @$_;
280            if ($e_url) {
281          my $target = ($e_target) ? qq~target="$e_target"~ : '';          my $target = ($e_target) ? qq~target="$e_target"~ : '';
282          $html .= qq~\t\t\t<li><a href="$e_url" $target>$entry</a></li>\n~;          $html .= qq~\t\t\t<li><a href="$e_url" $target>$entry</a></li>\n~;
283            } else {
284              $html .= qq~\t\t\t<li>$entry</li>\n~;
285            }
286        }        }
287    
288        $html .= "\t\t</ul>\n";        $html .= "\t\t</ul>\n";

Legend:
Removed from v.1.6  
changed lines
  Added in v.1.7

MCS Webmaster
ViewVC Help
Powered by ViewVC 1.0.3