Removing unused script
authorChris Nighswonger <cnighswonger@foundations.edu>
Fri, 15 Feb 2008 20:18:59 +0000 (09:18 +1300)
committerJoshua Ferraro <jmf@liblime.com>
Sat, 16 Feb 2008 17:29:11 +0000 (11:29 -0600)
Signed-off-by: Chris Cormack <chris@bigballofwax.co.nz>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
labels/label-save-profile.pl [deleted file]

diff --git a/labels/label-save-profile.pl b/labels/label-save-profile.pl
deleted file mode 100755 (executable)
index dab3ca5..0000000
+++ /dev/null
@@ -1,33 +0,0 @@
-#!/usr/bin/perl
-
-use strict;
-use CGI;
-use C4::Auth;
-use C4::Context;
-use C4::Output;
-use C4::Labels;
-use HTML::Template::Pro;
-use POSIX;
-
-#use Data::Dumper;
-#use Smart::Comments;
-
-
-my $dbh   = C4::Context->dbh;
-my $query = new CGI;
-
-my $prof_id     = $query->param('prof_id');
-my $offset_horz = $query->param('offset_horz');
-my $offset_vert = $query->param('offset_vert');
-my $creep_horz  = $query->param('creep_horz');
-my $creep_vert  = $query->param('creep_vert');
-my $units       = $query->param('unit');
-
-SaveProfile(
-    $prof_id,   $offset_horz,   $offset_vert,   $creep_horz,    $creep_vert,    $units
-);
-
-
- print $query->redirect("./label-profiles.pl");
-
-