From fac72f1162a385aebc34865a9765594eb9912c2a Mon Sep 17 00:00:00 2001 From: Joe Atzberger Date: Wed, 27 Aug 2008 09:44:28 -0500 Subject: [PATCH] Minor SIP cleanup, conditionalize warnings. Signed-off-by: Galen Charlton Signed-off-by: Chris Cormack --- C4/SIP/example_institution_dump.sh | 16 ++-------------- 1 file changed, 2 insertions(+), 14 deletions(-) diff --git a/C4/SIP/example_institution_dump.sh b/C4/SIP/example_institution_dump.sh index 3837e754e7..d873140acc 100755 --- a/C4/SIP/example_institution_dump.sh +++ b/C4/SIP/example_institution_dump.sh @@ -1,16 +1,4 @@ #!/bin/bash -perl -I ./ -e ' -use Data::Dumper; -use ILS; -use Sip::Configuration; -my $code = "MAIN"; -my $conf = Sip::Configuration->new("SIPconfig.xml"); -my $ils = ILS->new($conf->{institutions}->{$code}); -print "XML for $code: ", Dumper($conf->{institutions}->{$code}), "\n"; -print "ILS for $code: ", Dumper($ils), "\n"; -print "\$ils->checkout_ok(): ", ($ils->checkout_ok() ? "Y" : "N"), "\n"; -print "\$ils->checkin_ok() : ", ($ils->checkin_ok() ? "Y" : "N"), "\n"; -print "\$ils->offline_ok() : ", ($ils->offline_ok() ? "Y" : "N"), "\n"; -print "\n"; -' +perl -I ./ -e 'use Data::Dumper; use ILS; use Sip::Configuration; $conf=Sip::Configuration->new("SIPconfig.xml"); print Dumper($conf->{institutions}->{"MAIN"}),"\n";' + -- 2.39.5