use strict;
use Mail::Sendmail;
-use C4::Date;
-use Date::Manip;
-use C4::Suggestions;
+# use C4::Date;
+# use Date::Manip;
+# use C4::Suggestions;
use C4::Members;
use C4::Log;
-require Exporter;
-our ( $VERSION, @ISA, @EXPORT, @EXPORT_OK, %EXPORT_TAGS );
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
-# set the version for version checking
-$VERSION = do { my @v = '$Revision$' =~ /\d+/g;
- shift(@v) . "." . join( "_", map { sprintf "%03d", $_ } @v );
-};
+BEGIN {
+ require Exporter;
+ # set the version for version checking
+ $VERSION = 3.01;
+ @ISA = qw(Exporter);
+ @EXPORT = qw(
+ &GetLetters &getletter &addalert &getalert &delalert &findrelatedto &SendAlerts
+ );
+}
=head1 NAME
=cut
-@ISA = qw(Exporter);
-@EXPORT =
- qw(&GetLetters &getletter &addalert &getalert &delalert &findrelatedto &SendAlerts);
-
=head2 GetLetters
$letters = &getletters($category);
while ( my $line = $sth->fetchrow_hashref ) {
push @result, $line;
}
- return \@result if $#result >= 0; # return only if there is one result.
- return;
+ return \@result;
}
=head2 findrelatedto
);
sendmail(%mail);
-# warn "sending to $mail{To} From $mail{From} subj $mail{Subject} Mess $mail{Message}";
+# warn "sending to $mail{To} From $mail{From} subj $mail{Subject} Mess $mail{Message}";
}
}
}
# prepare the letter...
# search the biblionumber
my $strsth =
-"select serial.*,subscription.*, biblio.title from serial LEFT JOIN subscription on serial.subscriptionid=subscription.subscriptionid LEFT JOIN biblio on serial.biblionumber=biblio.biblionumber where serial.serialid IN ("
+"select serial.*,subscription.*, biblio.* from serial LEFT JOIN subscription on serial.subscriptionid=subscription.subscriptionid LEFT JOIN biblio on serial.biblionumber=biblio.biblionumber where serial.serialid IN ("
. join( ",", @$externalid ) . ")";
my $sthorders = $dbh->prepare($strsth);
$sthorders->execute;
}
}
-END { } # module clean-up code here (global destructor)
+1;
+__END__