diff options
| author | fukachan <fukachan> | 2001-01-23 13:14:03 +0000 |
|---|---|---|
| committer | fukachan <fukachan> | 2001-01-23 13:14:03 +0000 |
| commit | 280215a08a6462fc2d3d5797e2429762e6718b77 (patch) | |
| tree | 3b0e745d405322bf083c1c75eeff0b480a2abfaf /fml/lib/FML/Ticket/System.pm | |
| parent | 6d9ba63cb0ccec55c13e3548fdc7f9f188c13066 (diff) | |
| download | fml8-280215a08a6462fc2d3d5797e2429762e6718b77.tar.gz fml8-280215a08a6462fc2d3d5797e2429762e6718b77.tar.bz2 fml8-280215a08a6462fc2d3d5797e2429762e6718b77.zip | |
implement primitive ticket system (toymodel)
Diffstat (limited to 'fml/lib/FML/Ticket/System.pm')
| -rw-r--r-- | fml/lib/FML/Ticket/System.pm | 4 |
1 files changed, 2 insertions, 2 deletions
diff --git a/fml/lib/FML/Ticket/System.pm b/fml/lib/FML/Ticket/System.pm index cee01771..69811e6b 100644 --- a/fml/lib/FML/Ticket/System.pm +++ b/fml/lib/FML/Ticket/System.pm @@ -8,7 +8,7 @@ # $FML$ # -package Ticket::System; +package FML::Ticket::System; use strict; use vars qw(@ISA @EXPORT @EXPORT_OK); use Carp; @@ -28,7 +28,7 @@ sub new sub increment_id { - my ($self, $file) = @_; + my ($self, $seq_file) = @_; use FML::SequenceFile; my $sfh = new FML::SequenceFile { sequence_file => $seq_file }; |