W O R K O R D E R
		Tel: Fax:

To	Ship To
Attn: Tel: Fax:	Tel: Fax:

Order Number	Order Date	Required by	Salesperson	Shipping Point	Ship Via

No.	Number	Description	Qt'y		Serial No.
.

lass="hl opt">;

use Encode;

my %backlinks;

my $backlinks_calculated=0;

sub calculate_backlinks () { #{{{

    return if $backlinks_calculated;

%backlinks=();

    foreach my $page (keys %links) {

        foreach my $link (@{$links{$page}}) {

            my $bestlink=bestlink($page, $link);

            if (length $bestlink && $bestlink ne $page) {

                $backlinks{$bestlink}{$page}=1;

}

    $backlinks_calculated=1;

} #}}}

sub backlinks ($) { #{{{

    my $page=shift;

calculate_backlinks();

    my @links;

    foreach my $p (keys %{$backlinks{$page}}) {

        my $href=urlto($p, $page);

# Trim common dir prefixes from both pages.

        my $p_trimmed=$p;

        my $page_trimmed=$page;

        my $dir;

        1 while (($dir)=$page_trimmed=~m!^([^/]+/)!) &&

                defined $dir &&

                $p_trimmed=~s/^\Q$dir\E// &&

                $page_trimmed=~s/^\Q$dir\E//;

        push @links, { url => $href, page => pagetitle($p_trimmed) };

}

    return @links;

} #}}}

sub genpage ($$) { #{{{

    my $page=shift;

    my $content=shift;

    my $templatefile;

    run_hooks(templatefile => sub {

        return if defined $templatefile;

        my $file=shift->(page => $page);

        if (defined $file && defined template_file($file)) {

            $templatefile=$file;

}

});

    my $template=template(defined $templatefile ? $templatefile : 'page.tmpl', blind_cache => 1);

    my $actions=0;

    if (length $config{cgiurl}) {

        $template->param(editurl => cgiurl(do => "edit", page => $page))

            if IkiWiki->can("cgi_editpage");

        $template->param(prefsurl => cgiurl(do => "prefs"));

$actions++;

}

    if (defined $config{historyurl} && length $config{historyurl}) {

        my $u=$config{historyurl};

        $u=~s/\[\[file\]\]/$pagesources{$page}/g;

        $template->param(historyurl => $u);

$actions++;

}

    if ($config{discussion}) {

        my $discussionlink=gettext("discussion");

        if ($page !~ /.*\/\Q$discussionlink\E$/ &&

           (length $config{cgiurl} ||

            exists $links{$page."/".$discussionlink})) {

            $template->param(discussionlink => htmllink($page, $page, gettext("Discussion"), noimageinline => 1, forcesubpage => 1));

$actions++;

}

    if ($actions) {

        $template->param(have_actions => 1);

}

    my @backlinks=sort { $a->{page} cmp $b->{page} } backlinks($page);

    my ($backlinks, $more_backlinks);

    if (@backlinks <= $config{numbacklinks} || ! $config{numbacklinks}) {

        $backlinks=\@backlinks;

$more_backlinks=[];

}

else {

        $backlinks=[@backlinks[0..$config{numbacklinks}-1]];

        $more_backlinks=[@backlinks[$config{numbacklinks}..$#backlinks]];

}

    $template->param(

        title => $page eq 'index' 

            ? $config{wikiname} 

            : pagetitle(basename($page)),

        wikiname => $config{wikiname},

        content => $content,

        backlinks => $backlinks,

        more_backlinks => $more_backlinks,

        mtime => displaytime($pagemtime{$page}),

        mtime_raw => scalar localtime($pagemtime{$page}),

        ctime => displaytime($pagectime{$page}),

        ctime_raw => scalar localtime($pagectime{$page}),

        baseurl => baseurl($page),

);

    run_hooks(pagetemplate => sub {

        shift->(page => $page, destpage => $page, template => $template);