ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

root/cvsroot/COMP/SCRAM/src/BuildSystem/TreeItem.pm

Comparing COMP/SCRAM/src/BuildSystem/TreeItem.pm (file contents):
Revision 1.6 by muzaffar, Fri Dec 14 09:03:48 2007 UTC vs.
Revision 1.7 by muzaffar, Fri Jan 14 17:36:42 2011 UTC

#	Line 66 | Line 66 | sub class()
66		# exactly as it appears in the ClassPath:
67		if ($class)
68		{
69	–	# Store template name. We add the standard suffix:
70	–	$self->template($class."_template.tmpl");
69		$self->{CLASS} = uc($class);
70	+	$self->template($class);
71		}
72		else
73		{
#	Line 79 | Line 78 | sub class()
78		sub template()
79		{
80		my $self=shift;
81	<	@_ ? $self->{TEMPLATE} = shift
82	<	: $self->{TEMPLATE};
81	>	my ($template)=@_;
82	>	if ($template)
83	>	{
84	>	$self->{TEMPLATE} = $template;
85	>	}
86	>	else
87	>	{
88	>	return $self->{TEMPLATE};
89	>	}
90		}
91
92		sub classdir()
#	Line 373 | Line 379 | sub updateparentstatus()
379		$self->safesubdirs(@$safedir);
380		}
381
376	–	sub template()
377	–	{
378	–	my $self=shift;
379	–	@_ ? $self->{TEMPLATE} = shift
380	–	: $self->{TEMPLATE};
381	–	}
382	–
382		sub safesubdirs()
383		{
384		my $self=shift;

Diff Legend

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