Update of /cvsroot/popfile/engine/UI
In directory sc8-pr-cvs1:/tmp/cvs-serv12042/UI
Modified Files:
HTML.pm
Log Message:
Partial and broken work on POPFile refactoring; READ ONLY at this point; do not bother running unless you are very brave
Index: HTML.pm
===================================================================
RCS file: /cvsroot/popfile/engine/UI/HTML.pm,v
retrieving revision 1.98
retrieving revision 1.99
diff -C2 -d -r1.98 -r1.99
*** HTML.pm 28 Feb 2003 00:21:03 -0000 1.98
--- HTML.pm 3 Mar 2003 15:21:49 -0000 1.99
***************
*** 2,5 ****
--- 2,8 ----
package UI::HTML;
+ use POPFile::Module;
+ @ISA = ("POPFile::Module");
+
#----------------------------------------------------------------------------
#
***************
*** 19,25 ****
[...4568 lines suppressed...]
}
***************
*** 3490,3493 ****
--- 3476,3490 ----
close FROM;
}
+ }
+
+ sub classifier
+ {
+ my ( $self, $value ) = @_;
+
+ if ( defined( $value ) ) {
+ $self->{classifier__} = $value;
+ }
+
+ return $self->{classifier__};
}
|
