Changeset 435 for trunk/gsdl/perllib/mgbuildproc.pm

Timestamp:

1999-08-09T11:51:37+12:00 (25 years ago)

Author:

sjboddie

Message:

removed a couple of functions that are no longer required

File:

• trunk/gsdl/perllib/mgbuildproc.pm (modified) (1 diff)

trunk/gsdl/perllib/mgbuildproc.pm

@@ -315 +315 @@
 }
 
-# converts leading number in classification back 
-# to letter it represents
-# i.e 67.2.4 becomes C.2.4
-sub char_classification {
-    my $self = shift (@_);
-    my ($classification) = @_;
-
-    return $classification if $classification eq "";
-    my ($c) = $classification =~ /^\.?(\d+)/;
-    $c = chr($c);
-    $classification =~ s/^\d+/$c/;
-
-    return $classification;
-}
-
-# converts leading letter of a classification into its ascii equivalent
-# i.e C.2.4 becomes 67.2.4
-sub int_classification {
-    my $self = shift (@_);
-    my ($classification) = @_;
-    my $c = ord($classification);
-    $classification =~ s/^./$c/;
-
-    return $classification;
-}
 1;