ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/ActiveDoc/DOChandler.pm

Comparing COMP/SCRAM/src/ActiveDoc/DOChandler.pm (file contents):
Revision 1.2 by williamc, Thu Sep 23 10:35:41 1999 UTC vs.
Revision 1.4 by sashby, Wed Aug 17 11:04:33 2005 UTC

#	Line 1 | Line 1
1	+	BEGIN
2	+	{
3	+	print "ActiveDoc::DOChandler: I AM used!","\n";
4	+	};
5	+
6		#
7		# The base ActiveDoc generator and support utility
8		# Create the appropriate object for a document given its url
#	Line 41 | Line 46 | sub new {
46		# set up data
47		$self->{UserQuery}=$UserQuery;
48		$self->{objectstore}=ObjectStore->new();
49	<	$self->{treenode}=ActiveDoc::TreeNode->new("/"); # create a root node
50	<	$self->{treenode}->setassociate($self);
49	>	#$self->{treenode}=ActiveDoc::TreeNode->new("/"); # create a root node
50	>	#$self->{treenode}->setassociate($self);
51
52		# set our cache area - and ask user if not
53		$self->{defaultcache}=$self->inputvalue('cache');
#	Line 77 | Line 82 | sub newdoc {
82		my $filename=shift;
83
84		# Set up the required service objects
85	<	$self->{base}=BaseTags->new($filename);
85	>	$self->{base}=ActiveDoc::BaseTags->new($filename);
86		$self->{base}->{tags}->addtag("DocType", \&DocTypeTag, "", "");
87		$self->{base}->{gc}->include("doctype");
88		$self->{base}->{gc}->uninclude("all");
#	Line 96 | Line 101 | sub newdoc {
101
102		sub addobj {
103		my $self=shift;
104	+	my $obj=shift;
105
106		# --- Add to our local objectstore
107	<	$self->{objectstore}->add(@_);
107	>	#$self->{objectstore}->add(@_);
108
109		# Now indicate weve found one
110	<	$self->{object}=shift;
110	>	$self->{object}=$obj;
111		}
112
113		sub defaultcache {

Diff Legend

–	Removed lines
+	Added lines
<	Changed lines
>	Changed lines