#!/usr/bin/perl #print "yo";exit; require "/home/httpd/grainnet4/ssjs/info/functions.pl"; sub get_header { $type = shift; if ($type eq "nspart2") { print "Northern Star II - Fiction Series"; } elsif ($type eq "ot") { print "Old Time Elevator"; } } if ($request::type) {$TYPE = $request::type;} elsif ($request::keyword) {$TYPE = $request::keyword;} else {$TYPE = "bn";} if ($request::view) {$view = $request::view;} $viewcount=substr($view, 3, length($view)); if($viewcount) { $nextset = $viewcount+1; } else { $nextset=1; } print< // Opens the article lib. function openAL(AID) { Articles = window.open("http://www.grainnet.com/intranet/Articles/index.php?ID="+AID, "Articles","menubar=0,toolbar=0,location=0,directories=0,status=0,scrollbars=0,resizable=1,width=770,height=710"); Articles.focus(); }

THEEND get_header($TYPE); print <

THEEND if ($TYPE ne "fp" && $TYPE ne "nspart2" && $TYPE ne "ns") { print getIncludeFile('monday_friday'); } print<
THEEND print getArticles($TYPE, $view, $request::dayoffset, $request::offset, $request::articleoffset, $request::keyword); #print "type: ".$request::type." TYPE: $TYPE view: $view"; print<
THEEND if ($request::dayoffset != null) { print getIncludeFile('monday_friday'); } elsif ($request::articleoffset) { print 'View more articles…'; } else { if (!($TYPE eq "ns" || $TYPE eq "mm" || $TYPE eq "library") && $view ne "all" && $nextset < 100 && $viewmore==1) { print 'View more articles…'; } } print<
THEEND