ViewVC Help

View File | Revision Log | Show Annotations | Root Listing

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

Comparing COMP/SCRAM/src/ActiveDoc/UserQuery.pm (file contents):
Revision 1.4 by williamc, Mon Oct 25 15:09:21 1999 UTC vs.
Revision 1.5 by williamc, Mon Oct 25 15:14:38 1999 UTC

#	Line 42 | Line 42 | sub dump {
42		my $fh=shift;
43		my $string=shift;
44
45	<	foreach $key ( %{$self->{params}} ) {
45	>	foreach $key ( keys %{$self->{params}} ) {
46		if ( $key=~/$string/ ) {
47		print $fh "k:".$key."\n";
48	<	print $fh "v:".$$self->{params}{$key}."\n";
48	>	print $fh "v:".$self->{params}{$key}."\n";
49		}
50		}
51		print $fh "#End\n";
#	Line 57 | Line 57 | sub store {
57
58		my $key;
59		foreach $key ( keys %{$self->{params}} ) {
60	–	print "$fh $key\n";
60		print $fh "k:".$key."\n";
61		print $fh "v:".$self->{params}{$key}."\n";
62		}

Diff Legend

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