#!/usr/bin/perl #***************************************************************# # Nathan Johnson (johnsonn@farside.cc.misu.nodak.edu) # # (c) 1998 # # Modified by Ryan Gerry (ryan502@avenew.com) 2001 # #***************************************************************# use CGI ":standard"; use CGI::Carp "fatalsToBrowser"; require 'getdata.h'; require 'subs.h'; #contains &Categories function require 'misc.h'; ################################################################################### print CGI::header('text/html'); # print $cgi->start_html(-title=>"$MISC{'title'} - Browse", BGCOLOR=>"$MISC{'bgcolor'}" BACKGROUND=>"$MISC{'background'}" TEXT=>"$MISC{'text'}); print <<"HEADER"; $MISC{'title'} - Browse \n"; print "\n\n"; print "
HEADER require 'menubar.h'; print "
\n"; print "Magazines Grouped by Year
\n"; &Categories("Years",8); print "

"; print "TV GUIDES For Sale


\n"; &Categories("TVG_For_Sale",100); print "

"; print "Prenationals For Sale


\n"; print "
"; &Categories("Pre-Nationals",100); print "

"; print "Canadian TV GUIDES For Sale "; print "(different covers and articles than U.S. Edition)


\n"; &Categories("Canadian",100); print "

"; print "Misc. For Sale


\n"; &Categories("Misc_For_Sale",100); print "

"; print qq!OLD CATALOGS


\n!; &Categories("Old_Catalogs",8); print "

"; print "Newspaper "TV Guides" (sorted by state)


\n"; &Categories("sup_titles",200); print "
"; require 'search.h'; print "
"; print "
\n"; print "$MISC{'copyright'}"; print "\n"; print "
\n\n"; print "\n\n";