Open-ILS/src/support-scripts/test-scripts/print_circ.pl

   1 #!/usr/bin/perl
   2 #----------------------------------------------------------------
   3 # Print CIRC
   4 #----------------------------------------------------------------
   5
   6 require '../oils_header.pl';
   7 use vars qw/$apputils/;
   8 use strict;
   9 use Data::Dumper;
  10 my $config              = shift;
  11 my $username    = shift || 'admin';
  12 my $password    = shift || 'open-ils';
  13 my $circ_id       = shift;
  14 my $hook        = shift || 'circ.format.history.print';
  15 my $granularity        = shift || 'print-on-demand';
  16
  17 osrf_connect($config);
  18 oils_login($username, $password);
  19 my $e = OpenILS::Utils::CStoreEditor->new;
  20
  21 my $circ = $e->retrieve_action_circulation($circ_id) or oils_event_die($e->event);
  22 print "hook = $hook, gran = $granularity, circ = $circ, circ_lib = " . $circ->circ_lib . "\n";
  23
  24 # args = $self, $event_def, $hook, $object, $context_org, $granularity, $user_data
  25 my $result = $apputils->fire_object_event(
  26     undef,
  27     $hook,
  28     [ $circ ],
  29     $circ->circ_lib,
  30     $granularity,
  31     []
  32 );
  33
  34 print Dumper($result) . "\n";
  35