From: erickson <erickson@dcc99617-32d9-48b4-a31d-7c20da2025e4>
Date: Thu, 10 Aug 2006 21:28:49 +0000 (+0000)
Subject: removed some unused code
X-Git-Url: https://old-git.evergreen-ils.org/?a=commitdiff_plain;h=3205541a206731fca43df0948ff73e51ab3cd19a;p=Evergreen.git

removed some unused code


git-svn-id: svn://svn.open-ils.org/ILS/trunk@5446 dcc99617-32d9-48b4-a31d-7c20da2025e4
---

diff --git a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
index 106ad5217a..cc4777275b 100644
--- a/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
+++ b/Open-ILS/src/perlmods/OpenILS/Application/Circ/Holds.pm
@@ -1069,118 +1069,4 @@ sub find_nearest_permitted_hold {
 }
 
 
-
-# Generates a hold email notification 
-sub hold_email_notifify {
-	my( $class, $editor, $hold, $title, $volume, $copy ) = @_;
-
-	my $sclient = OpenSRF::Utils::SettingsClient->new;
-	my $template = $sclient->config_value('hold_email_template');
-	return undef unless $template;
-
-	$logger->info("hold_notify: using template $template");
-
-	my $patron = $editor->retrieve_actor_user($hold->usr)
-		or return $editor->event;
-
-	return undef unless 
-		$patron->email and $patron->email =~ /.+\@.+/; # see if it's remotely email-esque
-
-	$logger->info("hold_notify: using email ".$patron->email);
-
-	my( $str, $evt );
-
-	$str = load_template($template);
-	return undef unless $str;
-	($str, $evt) = flesh_template( $editor, $hold, $title, $volume, $copy, $patron, $str );
-	return $evt if $evt;
-	return undef unless $str;
-
-	$logger->info("hold_notify: $str");
-	return undef;
-}
-
-
-sub load_template {
-	my $template = shift;
-
-	unless( open(F, $template) ) {
-		$logger->error("Unable to open hold notification template file: $template");
-		return undef;
-	}
-
-	# load the template, strip comments
-	my @lines = <F>;
-	close(F);
-
-	my $str = '';
-	for(@lines) {
-   	chomp $_;
-   	next if $_ =~ /^\s*\#/o;
-   	$_ =~ s/\#.*//og;
-   	$str .= "$_\n";
-	}
-
-	return $str;
-}
-
-
-sub flesh_template {
-	my( $editor, $hold, $title, $volume, $copy, $patron, $str ) = @_;
-
-
-	my $p_addr;
-	unless( $p_addr = 
-			$editor->retrieve_actor_user_address($patron->billing_address)) {
-		unless( $p_addr = 
-				$editor->retrieve_actor_user_address($patron->mailing_address)) {
-			$logger->warn("No address for user ".$patron->id);
-			return undef;
-		}
-	}
-	
-	my $org = $editor->retrieve_actor_org_unit($hold->pickup_lib)
-		or return (undef, $editor->event);
-
-	my $o_name = $org->name;
-	my $o_addr = $org->holds_address;
-	my $p_name = $patron->first_given_name .' '.$patron->family_name;
-
-	my $p_addrs = $p_addr->street1."\n".$p_addr->street2."\n".
-		$p_addr->city."\n".$p_addr->state."\n".$p_addr->post_code."\n";
-
-	my @time 	= localtime();
-	my $day 		= $time[3];
-	my $month 	= $time[4] + 1;
-	my $year 	= $time[5] + 1900;
-
-	my $mods		= $U->record_to_mvr($title);
-	my $ttle		= $mods->title;
-	my $author	= $mods->author;
-	my $cn		= $volume->label;
-	my $barcode = $copy->barcode;
-	my $copy_number = $copy->copy_number;
-
-   $str =~ s/\${DATE}/$year-$month-$day/;
-   $str =~ s/\${LIBRARY}/$o_name/;
-   $str =~ s/\${LIBRARY_ADDRESS}/$o_addr/;
-   $str =~ s/\${PATRON_NAME}/$p_name/;
-   $str =~ s/\${PATRON_ADDRESS}/$p_addrs/;
-
-   $str =~ s/\${TITLE}/$ttle/;
-   $str =~ s/\${AUTHOR}/$author/;
-   $str =~ s/\${CALL_NUMBER}/$cn/;
-   $str =~ s/\${COPY_BARCODE}/$barcode/;
-   $str =~ s/\${COPY_NUMBER}/$copy_number/;
-
-	$logger->info("hold_notify: fleshed template: $str");
-
-	return $str;
-}
-
-
-
-
-
-
 1;