ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/Configuration/ConfigArea.pm

Comparing COMP/SCRAM/src/Configuration/ConfigArea.pm (file contents):
Revision 1.9 by williamc, Wed Feb 23 13:24:13 2000 UTC vs.
Revision 1.11 by williamc, Thu Feb 24 14:24:29 2000 UTC

#	Line 62 | Line 62 | sub init {
62		$self->newparse("init");
63		$self->newparse("download");
64		$self->newparse("setup");
65	+	$self->newparse("setup_tools");
66	+	$self->addarchtags("setup_tools");
67	+	$self->addarchtags("setup");
68		$self->addtag("init","project",\&Project_Start,$self,
69		\&Project_text,$self,"", $self );
70		$self->addurltags("download");
#	Line 70 | Line 73 | sub init {
73		$self->addtag("download","use",\&Use_download_Start,$self,
74		"", $self, "",$self);
75		$self->addurltags("setup");
76	<	$self->addtag("setup","use",\&Use_Start,$self, "", $self, "",$self);
76	>	$self->addtag("setup_tools","use",\&Use_Start,$self, "", $self, "",$self);
77		$self->addtag("setup","structure",\&Structure_Start,$self,
78		"", $self, "",$self);
79
#	Line 134 | Line 137 | sub setup {
137
138		# --- and parse the setup file
139		$self->parse("setup");
140	+	$self->parse("setup_tools");
141
142		# --- store bootstrap info
143		$self->store($self->location()."/".$self->{admindir}."/ConfigArea.dat");
#	Line 443 | Line 447 | sub Structure_Start {
447		my $hashref=shift;
448
449		$self->checktag($name,$hashref,'name');
450	<	if ( !( exists $$hashref{'type'}) || ( exists $$hashref{'url'}) ) {
450	>	if ( !(( exists $$hashref{'type'}) || ( exists $$hashref{'url'})) ) {
451		$self->parseerror("No url or type given in <$name> tag");
452		}
453		if ( ! exists $self->{structures}{$$hashref{'name'}} ) {
#	Line 459 | Line 463 | sub Structure_Start {
463		$self->{structures}{$$hashref{'name'}}->name($$hashref{'name'});
464		$self->{structures}{$$hashref{'name'}}->parent($self);
465		$self->{structures}{$$hashref{'name'}}->vars($hashref);
466	+	$self->{structures}{$$hashref{'name'}}->arch($self->arch());
467		}
468		else { # its an activedoc
469		$self->{structures}{$$hashref{'name'}}=

Diff Legend

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