ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

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

Comparing COMP/SCRAM/src/ActiveDoc/SimpleXMLURLDoc.pm (file contents):
Revision 1.6 by sashby, Mon Feb 13 17:29:25 2006 UTC vs.
Revision 1.10 by muzaffar, Fri Dec 14 09:03:44 2007 UTC

#	Line 30 | Line 30 | URL handling.
30		=cut
31
32		package ActiveDoc::SimpleXMLURLDoc;
33	+
34	+	BEGIN
35	+	{
36	+	die "\n\n".__PACKAGE__.": this package can be dropped from releases.\n\n";
37	+	}
38	+
39		use ActiveDoc::SimpleXMLDoc;
40		use URL::URLhandler;
41		require 5.004;
#	Line 119 | Line 125 | sub urlget
125		return ($fullurl,$filename);
126		}
127
128	+	sub setbaseurl()
129	+	{
130	+	my $self=shift;
131	+	my ($partialurl)=@_;
132	+	return $self->urlhandler_()->setbase($partialurl);
133	+	}
134	+
135	+	sub unsetbaseurl()
136	+	{
137	+	my $self=shift;
138	+	my ($type)=@_;
139	+	$self->urlhandler_()->unsetbase($type);
140	+	}
141	+
142		sub urlhandler_()
143		{
144		my $self=shift;

Diff Legend

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