ViewVC Help
View File | Revision Log | Show Annotations | Root Listing
root/cvsroot/COMP/SCRAM/src/ActiveDoc/DOChandler.pm
(Generate patch)

Comparing COMP/SCRAM/src/ActiveDoc/DOChandler.pm (file contents):
Revision 1.1 by williamc, Mon Sep 20 16:28:14 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');
54          while ( ! defined $self->{defaultcache} ) {
55 <          $self->asksingleinputvalue( "cache",
55 >          $self->{UserQuery}->setquery( "basic", "cache");
56 >          $self->{UserQuery}->askuser(
57              "No cache directory Has Been Specified - Please enter a".  
58                  "suitable directory to use as a cache");
59 <          $self->{defaultcache}=$self->inputvalue('cache');
59 >          $self->setcache($self->{UserQuery}->getparam("cache"));
60          }
61  
62          # Determine the UserInterface
# Line 64 | Line 70 | sub new {
70          return $self;
71   }
72  
73 + sub setcache {
74 +        my $self=shift;
75 +        my $cache=shift;
76 +
77 +        $self->{defaultcache}=$cache;
78 + }
79 +
80   sub newdoc {
81          my $self=shift;
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 88 | 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