List Info

Thread: Error Handling Problem
Error Handling Problem
user name
 2007-01-30 08:41:14 

  


  

    

We have developed a script to do searches on a tab delineated text file to see if our library location owns certain titles.  This is accomplished by reading the entire text file into an array, then doing a title search on each entry.  If the title is found we further check the MARC record to see if the author matches what is in the text file. ; Then we check to see if our location owns a copy of it by examining the 949 field.  For some reason when this script is run, we have been getting many errors.  It also seems to skip many hundreds of records in the array but there doesn't seem to be any pattern to this action.  Any help would be very appreciated.  We are self taught perl programmers.  


 


Thank You.


#!/usr/bin/perl 


 


use ZOOM;
use MARC::Record;


 


print "Enter Start: ";
my $count = <STDIN&gt;;
chomp $count;


 


open (ADV, "ramblewoodES.txt");
while ($term = <ADV>;) {
 push terms, $term;
}
close ADV;


&nbsp;


zoom();


&nbsp;


sub zoom{


&nbsp;


&nbsp;$advtitle = terms[$count]; 
 my $errtitle = $advtitle;
 $advtitle =~ s/t.+tt.+n//;
 $advtitle =~ s/s$//;


 


 $advauth = terms[$count];
 my $errauth = $advauth;
 $advauth =~ s/ttt.+n//;
 $advauth =~ s/^.+t//;
 $advauth =~ s/,//g;
&nbsp;$advauth =~ s/.//g;
&nbsp;$advauth =~ s/s.+//g;


 



 $level = terms[$count];
 my $errlevel = $level;
&nbsp;$level =~ s/n//;
&nbsp;$level =~ s/^.+t.+tt//;


&nbsp;


 ;$count++;


 



 eval {
 &nbsp;my $host = "www.browardlibrary.org";
  my $port = "210";


 


&nbsp; my $conn = new ZOOM::Connection($host, $port, databaseName => "bcl");


 


  ;$conn->option(preferredRecordSyntax => "usmarc");


 


 &nbsp;my $rs = $conn->search_pqf( 'attr">'attr 1=4 "' . $advtitle . '"');


&nbsp;


&nbsp; my $n = $rs->size();


&nbsp;


&nbsp; if ($n == 0){
   ;print "nNo Records Found for $advtitlen";
 &nbsp; open FH, (">>notfound.xls");
   ;print FH "$advtitlet$advauthn";
 &nbsp; close FH;
   ;zoom();
&nbsp; &nbsp;}


&nbsp;


&nbsp; if ($n >= 100) {zoom();}


 



 &nbsp;print "n$count.) Found $n Records for $advtitlen";


 ;


  my $i = 1;


&nbsp;


#main loop to get record info   ; &nbsp; &nbsp; &nbsp; &nbsp;   ; &nbsp; &nbsp; &nbsp; &nbsp;   ; &nbsp; &nbsp; &nbsp; 
 
while ($i <= $n){


&nbsp;


&nbsp;$rec = $rs->record($i);
&nbsp;if ($rec){
&nbsp;$raw = $rec->raw();


&nbsp;


&nbsp; &nbsp; &nbsp;   #read in raw MARC to record
&nbsp;my $mrec = new_from_usmarc MARC::Record($raw);



 



 #retrive the 949 field to determine location and shelf status
&nbsp;my shelf = $mrec->field('949');
 
&nbsp;foreach my $status (shelf) {
 &nbsp; &nbsp;   ; &nbsp; push shelf_status, $status-&gt;as_string();
 &nbsp;}
&nbsp;
 &nbsp;#get the author
&nbsp;my $author = $mrec->subfield('100',"a");
&nbsp;$origauth = $author;
&nbsp;$author =~ s/,//g;
&nbsp;$author =~ s/.//g;
&nbsp;$author =~ s/s.+//g;


 



 print "t-n";


 


&nbsp; foreach my $location (shelf_status){
  if ($location =~ m/sNORs/ && $author eq $advauth){


 


 &nbsp; #get the title
&nbsp; &nbsp;my $title = $mrec->subfield('245',"a");
&nbsp;  my $subtitle = $mrec->subfield('245',"b");
&nbsp;
 ; &nbsp;#concat the title and subtitle
&nbsp;  $title = $title . " " . $subtitle;  ;
 &nbsp; 
&nbsp;  #get the control number
&nbsp; &nbsp;my $control = $mrec->subfield('910',"a");
&nbsp;   ; &nbsp; &nbsp;   $control =~ s/CARL0//;


 


 &nbsp; &nbsp;   ; &nbsp; &nbsp; &nbsp; &nbsp;  #get call number info
 ; &nbsp; &nbsp;  &nbsp; &nbsp; &nbsp; &nbsp;  my dewey = $mrec->field('099');
 &nbsp; &nbsp;   ; &nbsp; &nbsp;  &nbsp;foreach my $ddc (dewey) {
 &nbsp; &nbsp;   ; &nbsp; &nbsp; &nbsp; &nbsp;   ; &nbsp; &nbsp;   push callnum, $ddc->as_string();
 &nbsp; &nbsp; &nbsp; &nbsp;   ; &nbsp; &nbsp;  }
&nbsp; &nbsp;   ;  
 &nbsp; #output to user  
&nbsp; &nbsp;print "t$i.t$titletcallnumn"; 


&nbsp;


&nbsp; &nbsp;#write to file
 ; &nbsp;open FH, (">>RamblewoodES.xls");
&nbsp; &nbsp;print FH "$titlet$origauthtcallnumt$controlt$leveln";
 ; &nbsp;close FH;
  
&nbsp; &nbsp;#empty out arrays
&nbsp; &nbsp;dewey = (); 
  ; callnum = ();
   ;}
 &nbsp; &nbsp;   ; &nbsp; &nbsp;  &nbsp; &nbsp; } 
&nbsp; &nbsp;
 ;shelf = ();
 shelf_status = ();
 $i++;
 ;}
 else {zoom();}
 }
};


 



 if ($) {
 &nbsp;print "nt****Server Failure****an";
 ; open FH, (">>errlog.xls");
 &nbsp;print FH "$errtitlet$errauthtt$errleveln";
 &nbsp;close FH;
  zoom();
 }
}


 ;


Aaron S. Huber
Librarian I - Audiovisual/Popular Library
Northwest Regional Library
3151 University Drive
Coral Springs, FL 33065.
954-341-3965 ext 233
Broward County Library Division
A Service of the Broward County Board of Commissioners
 ahuberbrowardlibrary.org">ahuberbrowardlibrary.org



********************************************************************** 


Please note: Except for state and federal exemptions, Florida has a very broad public records law. Most written communications to or from County employees regarding County business are public records and available to the public and media upon request. Your e-mail communications may be subject to public disclosure.  

 



This email and any files transmitted with it are intended solely for the use of the individual or entity to whom they are addressed. If you have received this email in error please notify the sender. 



 



This footnote also confirms that this email message has been swept for the presence of computer viruses. 



**********************************************************************  

  

  
  
   
     
    

  

     Error Handling Problem
  


  

     user name

     2007-01-31 08:16:05
  


  

    
Hi, Aaron.  I'm afraid this script is too complex and too
tied to your
own system for us to be able to quickly identify any problem
that
might be caused by our software.  Please break this down
into the
simplest possible non-interactive program that clearly
demonstrates
the problem -- then we'll see if we can help.

Aaron Huber writes:
 > We have developed a script to do searches on a tab
delineated text
 > file to see if our library location owns certain
titles.  This is
 > accomplished by reading the entire text file into an
array, then
 > doing a title search on each entry.  If the title is
found we
 > further check the MARC record to see if the author
matches what is
 > in the text file.  Then we check to see if our
location owns a copy
 > of it by examining the 949 field.  For some reason
when this script
 > is run, we have been getting many errors.  It also
seems to skip
 > many hundreds of records in the array but there
doesn't seem to be
 > any pattern to this action.  Any help would be very
appreciated.
 > We are self taught perl programmers.
 >  
 > Thank You.
 > 
 > #!/usr/bin/perl 
 >  
 > use ZOOM;
 > use MARC::Record;
 >  
 > print "Enter Start: ";
 > my $count = <STDIN>;
 > chomp $count;
 >  
 > open (ADV, "ramblewoodES.txt");
 > while ($term = <ADV>) {
 >  push terms, $term;
 > }
 > close ADV;
 >  
 > zoom();
 >  
 > sub zoom{
 >  
 >  $advtitle = terms[$count]; 
 >  my $errtitle = $advtitle;
 >  $advtitle =~ s/t.+tt.+n//;
 >  $advtitle =~ s/s$//;
 >  
 >  $advauth = terms[$count];
 >  my $errauth = $advauth;
 >  $advauth =~ s/ttt.+n//;
 >  $advauth =~ s/^.+t//;
 >  $advauth =~ s/,//g;
 >  $advauth =~ s/.//g;
 >  $advauth =~ s/s.+//g;
 >  
 >  $level = terms[$count];
 >  my $errlevel = $level;
 >  $level =~ s/n//;
 >  $level =~ s/^.+t.+tt//;
 >  
 >  $count++;
 >  
 >  eval {
 >   my $host = "www.browardlibrary.org";
 >   my $port = "210";
 >  
 >   my $conn = new ZOOM::Connection($host, $port,
databaseName => "bcl");
 >  
 >   $conn->option(preferredRecordSyntax =>
"usmarc");
 >  
 >   my $rs = $conn->search_pqf('attr 1=4
"' . $advtitle . '"');
 >  
 >   my $n = $rs->size();
 >  
 >   if ($n == 0){
 >    print "nNo Records Found for
$advtitlen";
 >    open FH, (">>notfound.xls");
 >    print FH "$advtitlet$advauthn";
 >    close FH;
 >    zoom();
 >    }
 >  
 >   if ($n >= 100) {zoom();}
 >  
 >   print "n$count.) Found $n Records for
$advtitlen";
 >  
 >   my $i = 1;
 >  
 > #main loop to get record info                         
      
 >  
 > while ($i <= $n){
 >  
 >  $rec = $rs->record($i);
 >  if ($rec){
 >  $raw = $rec->raw();
 >  
 >         #read in raw MARC to record
 >  my $mrec = new_from_usmarc MARC::Record($raw);
 >  
 > 
 >  #retrive the 949 field to determine location and
shelf status
 >  my shelf = $mrec->field('949');
 >  
 >  foreach my $status (shelf) {
 >           push shelf_status, $status->as_string();
 >   }
 >  
 >   #get the author
 >  my $author =
$mrec->subfield('100',"a");
 >  $origauth = $author;
 >  $author =~ s/,//g;
 >  $author =~ s/.//g;
 >  $author =~ s/s.+//g;
 >  
 >  print "t-n";
 >  
 >   foreach my $location (shelf_status){
 >   if ($location =~ m/sNORs/ && $author eq
$advauth){
 >  
 >    #get the title
 >    my $title =
$mrec->subfield('245',"a");
 >    my $subtitle =
$mrec->subfield('245',"b");
 >  
 >    #concat the title and subtitle
 >    $title = $title . " " . $subtitle;  
 >    
 >    #get the control number
 >    my $control =
$mrec->subfield('910',"a");
 >            $control =~ s/CARL0//;
 >  
 >                  #get call number info
 >                 my dewey =
$mrec->field('099');
 >               foreach my $ddc (dewey) {
 >                          push callnum,
$ddc->as_string();
 >                  }
 >         
 >    #output to user  
 >    print "t$i.t$titletcallnumn"; 
 >  
 >    #write to file
 >    open FH, (">>RamblewoodES.xls");
 >    print FH "$titlet$origauthtcallnumt$controlt$leveln";
 >    close FH;
 >   
 >    #empty out arrays
 >    dewey = (); 
 >    callnum = ();
 >    }
 >                  } 
 >    
 >  shelf = ();
 >  shelf_status = ();
 >  $i++;
 >  }
 >  else {zoom();}
 >  }
 > };
 >  
 >  if ($) {
 >   print "nt****Server Failure****an";
 >   open FH, (">>errlog.xls");
 >   print FH
"$errtitlet$errauthtt$errleveln";
 >   close FH;
 >   zoom();
 >  }
 > }
 > 
 >  
 > Aaron S. Huber
 > Librarian I - Audiovisual/Popular Library
 > Northwest Regional Library
 > 3151 University Drive
 > Coral Springs, FL 33065.
 > 954-341-3965 ext 233
 > Broward County Library Division
 > A Service of the Broward County Board of
Commissioners
 > ahuberbrowardlibrary.org
 > 
 > 
 >
************************************************************
**********
 > Please note: Except for state and federal exemptions,
Florida has a very broad public records law. Most written
communications to or from County employees regarding County
business are public records and available to the public and
media upon request. Your e-mail communications may be
subject to public disclosure. 
 > 
 > This email and any files transmitted with it are
intended solely for the use of the individual or entity to
whom they are addressed. If you have received this email in
error please notify the sender.
 > 
 > This footnote also confirms that this email message
has been swept for the presence of computer viruses.
 >
************************************************************
**********
 > 
 > <HTML><HEAD>
 > <META http-equiv=Content-Type
content="text/html; charset=iso-8859-1">
 > <META content="MSHTML 6.00.2900.3020"
name=GENERATOR></HEAD>
 > <BODY style="MARGIN: 4px 4px 1px; FONT: 10pt
Tahoma">
 > <DIV>We have developed a script to do searches
on a tab delineated text file to see if our library location
owns certain titles.&nbsp; This is accomplished by
reading the entire text file into an array, then doing a
title search on each entry.&nbsp; If the title is found
we further check the MARC record to see if the author
matches what is in the text file.&nbsp; Then we check to
see if our location owns a copy of it by examining the 949
field.&nbsp; For some reason when this script is run, we
have been getting many errors.&nbsp; It also seems to
skip many hundreds of records in the array but there doesn't
seem to be any pattern to this action.&nbsp; Any help
would be very appreciated.&nbsp; We are self taught perl
programmers.&nbsp; </DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>Thank You.<BR></DIV>
 > <DIV>#!/usr/bin/perl </DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>use ZOOM;<BR>use
MARC::Record;</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>print "Enter Start:
";<BR>my $count =
&lt;STDIN&gt;;<BR>chomp $count;</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>open (ADV,
"ramblewoodES.txt");<BR>while ($term =
&lt;ADV&gt;) {<BR>&nbsp;push terms,
$term;<BR>}<BR>close ADV;</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>zoom();</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>sub zoom{</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;$advtitle = terms[$count];&nbsp;<BR>&nbsp;my
$errtitle = $advtitle;<BR>&nbsp;$advtitle =~
s/t.+tt.+n//;<BR>&nbsp;$advtitle =~
s/s$//;</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;$advauth = terms[$count];<BR>&nbsp;my $errauth =
$advauth;<BR>&nbsp;$advauth =~
s/ttt.+n//;<BR>&nbsp;$advauth =~
s/^.+t//;<BR>&nbsp;$advauth =~
s/,//g;<BR>&nbsp;$advauth =~
s/.//g;<BR>&nbsp;$advauth =~
s/s.+//g;</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;$level = terms[$count];<BR>&nbsp;my $errlevel =
$level;<BR>&nbsp;$level =~
s/n//;<BR>&nbsp;$level =~
s/^.+t.+tt//;</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;$count++;</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;eval
{<BR>&nbsp;&nbsp;my $host = "<A
href="ht
tp://www.browardlibrary.org">www.browardlibrary.org&
lt;/A>";<BR>&nbsp;&nbsp;my $port =
"210";</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;&nbsp;my $conn = new
ZOOM::Connection($host, $port, databaseName =&gt;
"bcl");</DIV>
 > <DIV>&nbsp;</DIV>
 >
<DIV>&nbsp;&nbsp;$conn-&gt;option(preferre
dRecordSyntax =&gt; "usmarc");</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;&nbsp;my $rs =
$conn-&gt;search_pqf(<A href="mailto:'attr">'attr</A> 1=4 "' . $advtitle .
'"');</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;&nbsp;my $n =
$rs-&gt;size();</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;&nbsp;if ($n ==
0){<BR>&nbsp;&nbsp;&nbsp;print "nNo
Records Found for
$advtitlen";<BR>&nbsp;&nbsp;&nbsp;op
en FH,
("&gt;&gt;notfound.xls");<BR>&nb
sp;&nbsp;&nbsp;print FH
"$advtitlet$advauthn";<BR>&nbsp;&n
bsp;&nbsp;close
FH;<BR>&nbsp;&nbsp;&nbsp;zoom();<BR>
&nbsp;&nbsp;&nbsp;}</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;&nbsp;if ($n &gt;= 100)
{zoom();}</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;&nbsp;print "n$count.)
Found $n Records for $advtitlen";</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;&nbsp;my $i = 1;</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>#main loop to get record
info&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n
bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n
bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n
bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n
bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n
bsp;&nbsp; <BR>&nbsp;<BR>while ($i
&lt;= $n){</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;$rec =
$rs-&gt;record($i);<BR>&nbsp;if
($rec){<BR>&nbsp;$raw =
$rec-&gt;raw();</DIV>
 > <DIV>&nbsp;</DIV>
 >
<DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp;&nbsp; #read in raw MARC to
record<BR>&nbsp;my $mrec = new_from_usmarc
MARC::Record($raw);</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV><BR>&nbsp;#retrive the 949 field
to determine location and shelf status<BR>&nbsp;my
shelf =
$mrec-&gt;field('949');<BR>&nbsp;<BR>&am
p;nbsp;foreach my $status (shelf)
{<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp;&nbsp;&nbsp;&nbsp; push shelf_status,
$status-&gt;as_string();<BR>&nbsp;&nbsp;}&
lt;BR>&nbsp;<BR>&nbsp;&nbsp;#get the
author<BR>&nbsp;my $author =
$mrec-&gt;subfield('100',"a");<BR>&n
bsp;$origauth = $author;<BR>&nbsp;$author =~
s/,//g;<BR>&nbsp;$author =~
s/.//g;<BR>&nbsp;$author =~
s/s.+//g;</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;print
"t-n";</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;&nbsp;foreach my $location
(shelf_status){<BR>&nbsp;&nbsp;if
($location =~ m/sNORs/ &amp;&amp; $author eq
$advauth){</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;&nbsp;&nbsp;#get the
title<BR>&nbsp;&nbsp;&nbsp;my $title =
$mrec-&gt;subfield('245',"a");<BR>&n
bsp;&nbsp;&nbsp;my $subtitle =
$mrec-&gt;subfield('245',"b");<BR>&n
bsp;<BR>&nbsp;&nbsp;&nbsp;#concat the
title and
subtitle<BR>&nbsp;&nbsp;&nbsp;$title =
$title . " " .
$subtitle;&nbsp;&nbsp;<BR>&nbsp;&nbsp;
&nbsp;<BR>&nbsp;&nbsp;&nbsp;#get the
control number<BR>&nbsp;&nbsp;&nbsp;my
$control =
$mrec-&gt;subfield('910',"a");<BR>&n
bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n
bsp;&nbsp;&nbsp; &nbsp;$control =~
s/CARL0//;</DIV>
 > <DIV>&nbsp;</DIV>
 >
<DIV>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; #get
call number
info<BR>&nbsp;&nbsp;&nbsp;&nbsp;&n
bsp;
&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp; my dewey =
$mrec-&gt;field('099');<BR>&nbsp;&nbsp;&am
p;nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&am
p;nbsp;&nbsp;&nbsp; &nbsp;&nbsp;foreach my
$ddc (dewey)
{<BR>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp
; &nbsp;push callnum,
$ddc-&gt;as_string();<BR>&nbsp;&nbsp;&
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&
nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&
nbsp;
&nbsp;}<BR>&nbsp;&nbsp;&nbsp;&nbsp
;&nbsp;&nbsp;&nbsp;
<BR>&nbsp;&nbsp;&nbsp;#output to
user&nbsp;&nbsp;<BR>&nbsp;&nbsp;&n
bsp;print "t$i.t$titletcallnumn";&nbsp;</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;&nbsp;&nbsp;#write to
file<BR>&nbsp;&nbsp;&nbsp;open FH,
("&gt;&gt;RamblewoodES.xls");<BR>&am
p;nbsp;&nbsp;&nbsp;print FH
"$titlet$origauthtcallnumt$controlt$leveln";<BR>&nbsp
;&nbsp;&nbsp;close
FH;<BR>&nbsp;&nbsp;<BR>&nbsp;&nb
sp;&nbsp;#empty out
arrays<BR>&nbsp;&nbsp;&nbsp;dewey =
();&nbsp;<BR>&nbsp;&nbsp;&nbsp;callnum =
();<BR>&nbsp;&nbsp;&nbsp;}<BR>&n
bsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&n
bsp;&nbsp;&nbsp;&nbsp;&nbsp;
&nbsp;&nbsp;&nbsp;&nbsp;
}&nbsp;<BR>&nbsp;&nbsp;&nbsp;<BR>
;&nbsp;shelf = ();<BR>&nbsp;shelf_status =
();<BR>&nbsp;$i++;<BR>&nbsp;}<BR>&
amp;nbsp;else
{zoom();}<BR>&nbsp;}<BR>};</DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>&nbsp;if ($)
{<BR>&nbsp;&nbsp;print "nt****Server
Failure****an";<BR>&nbsp;&nbsp;open FH,
("&gt;&gt;errlog.xls");<BR>&nbsp
;&nbsp;print FH
"$errtitlet$errauthtt$errleveln";<BR>&am
p;nbsp;&nbsp;close
FH;<BR>&nbsp;&nbsp;zoom();<BR>&nbsp;
}<BR>}<BR></DIV>
 > <DIV>&nbsp;</DIV>
 > <DIV>Aaron S. Huber<BR>Librarian I -
Audiovisual/Popular Library<BR>Northwest Regional
Library<BR>3151 University Drive<BR>Coral
Springs, FL 33065.<BR>954-341-3965 ext
233<BR>Broward County Library Division<BR>A
Service of the Broward County Board of
Commissioners<BR><A href="mailto:ahuberbrowardlibrary.org">ahuberbrowardlibrary.org</A></DIV>
 > <P STYLE="margin-top: 0pt;margin-bottom:
0pt;"><SPAN
STYLE="FONT-FAMILY:'Arial';FONT-SIZE:8pt;">****
************************************************************
****** </SPAN></P>
 > <P STYLE="margin-top: 0pt;margin-bottom:
0pt;"><SPAN
STYLE="FONT-FAMILY:'Arial';FONT-SIZE:8pt;">Plea
se note: Except for state and federal exemptions, Florida
has a very broad public records law. Most written
communications to or from County employees regarding County
business are public records and available to the public and
media upon request. Your e-mail communications may be
subject to public disclosure.  </SPAN><SPAN
STYLE="FONT-SIZE:12pt;"><BR>
 >  </SPAN>
 > </P>
 > <P STYLE="margin-top: 0pt;margin-bottom:
0pt;"><SPAN
STYLE="FONT-FAMILY:'Arial';FONT-SIZE:8pt;">This
email and any files transmitted with it are intended solely
for the use of the individual or entity to whom they are
addressed. If you have received this email in error please
notify the sender. </SPAN>
 > </P>
 > <P STYLE="margin-top: 0pt;margin-bottom:
0pt;"><SPAN
STYLE="FONT-FAMILY:'Arial';FONT-SIZE:8pt;">
</SPAN>
 > </P>
 > <P STYLE="margin-top: 0pt;margin-bottom:
0pt;"><SPAN
STYLE="FONT-FAMILY:'Arial';FONT-SIZE:8pt;">This
footnote also confirms that this email message has been
swept for the presence of computer viruses. </SPAN>
 > </P>
 > <P STYLE="margin-top: 0pt;margin-bottom:
0pt;"><SPAN
STYLE="FONT-FAMILY:'Arial';FONT-SIZE:8pt;">****
************************************************************
****** </SPAN> </P></BODY></HTML>
 > _______________________________________________
 > Net-z3950 mailing list
 > Net-z3950lists.indexdata.dk
 > http://lists.indexdata.dk/cgi-bin/mailman/listinfo/n
et-z3950

_______________________________________________
Net-z3950 mailing list
Net-z3950lists.indexdata.dk
http://lists.indexdata.dk/cgi-bin/mailman/listinfo/n
et-z3950



  


  

    
  

  
  
   
     
    






 [1-2]











   
 





about | contact  Other archives ( Real Estate discussion Medical topics )