[popfile-commit] engine/UI HTML.pm,1.98,1.99

[<jgr...@us...>]

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__};
  }