← Back to branch summary

~ubuntu-branches/ubuntu/hoary/courier/hoary

« back to all changes in this revision

Viewing changes to webadmin/admin-main.pl

  • Committer: Bazaar Package Importer
  • Author(s): Thom May
  • Date: 2004-11-29 12:09:34 UTC
  • mfrom: (1.1.1 upstream)
  • Revision ID: james.westby@ubuntu.com-20041129120934-kkn0xj11j0n1n6lo
Tags: 0.47-3ubuntu1
* Nathaniel McCallum
 - debian/*.init: pretty initscripts
 - debian/control: version depends on lsb-base

Show diffs side-by-side

added added

removed removed

Lines of Context:
webadmin/admin-main.pl
1
1
#! perl
2
2
#
3
 
# $Id: admin-main.pl,v 1.2 2003/07/06 16:16:37 mrsam Exp $
 
3
# $Id: admin-main.pl,v 1.3 2004/08/26 02:16:33 mrsam Exp $
4
4
#
5
5
# Copyright 2001 Double Precision, Inc.  See COPYING for
6
6
# distribution information.
45
45
 
46
46
foreach (sort keys %mainmenu)
47
47
{
48
 
    $menuhtml .= "<tr><td><a href=\""
49
 
        . $cgi->url(-full=>1) . "/$_\">" . $mainmenu{$_} . "</a></td></tr>\n";
 
48
    my $title=$mainmenu{$_};
 
49
 
 
50
    my $pfix;
 
51
 
 
52
    $title =~ /^(>*)/;
 
53
 
 
54
    $pfix=length($1);
 
55
 
 
56
    $title =~ s/^>*//;
 
57
 
 
58
    $menuhtml .= "<tr><td>" . ("&nbsp;" x $pfix) . "<a href=\""
 
59
        . $cgi->url(-full=>1) . "/$_\">" . $title . "</a></td></tr>\n";
50
60
}
51
61
 
52
62
$menuhtml .= "</table>\n";