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.4 by sashby, Thu Jan 19 17:26:29 2006 UTC vs.
Revision 1.7 by sashby, Wed Feb 15 17:14:17 2006 UTC

#	Line 80 | Line 80 | sub cache
80		$self->{cache}=shift;
81		$self->urlhandler_(URL::URLhandler->new($self->{cache}));
82		}
83	<
83	>
84		return $self->{cache};
85		}
86
87		sub expandurl
88		{
89		my $self=shift;
90	<	my $urlstring=shift;
90	>	my $urlstring=shift;
91		return $self->urlhandler_()->expandurl($urlstring);
92		}
93
#	Line 95 | Line 95 | sub urldownload
95		{
96		my $self=shift;
97		my $urlstring=shift;
98	–
98		my ($fullurl,$filename)=$self->urlhandler_()->download($urlstring, @_);
99
100		if ( ( ! defined $filename ) || ( $filename eq "" ) )
#	Line 110 | Line 109 | sub urlget
109		{
110		my $self=shift;
111		my $urlstring=shift;
113	–
112		my ($fullurl,$filename)=$self->urlhandler_()->get($urlstring, @_);
113
114		if ( ( ! defined $filename ) || ( $filename eq "" ) )
#	Line 121 | Line 119 | sub urlget
119		return ($fullurl,$filename);
120		}
121
122	+	sub setbaseurl()
123	+	{
124	+	my $self=shift;
125	+	my ($partialurl)=@_;
126	+	return $self->urlhandler_()->setbase($partialurl);
127	+	}
128	+
129	+	sub unsetbaseurl()
130	+	{
131	+	my $self=shift;
132	+	my ($type)=@_;
133	+	$self->urlhandler_()->unsetbase($type);
134	+	}
135	+
136		sub urlhandler_()
137		{
138		my $self=shift;
#	Line 128 | Line 140 | sub urlhandler_()
140		: $self->{urlhandler};
141		}
142
143	+	sub parseerror()
144	+	{
145	+	my $self=shift;
146	+	my ($string)=@_;
147	+	die "Error in download: ",$string,"\n";
148	+	}
149	+
150		1;
151
152		=back

Diff Legend

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