<div id="bd">
<div id="yui-main">
+<!-- TMPL_IF name="TOTAL" -->
<div class="yui-b">
-<h1>Upload Patron Images</h1>
-<div class="yui-g">
-<div class="yui-u first">
-<!-- TMPL_IF name="total" -->
+ <h1>Patron Images Successfully Uploaded</h1>
+ <div class="yui-g">
+ <div class="yui-u first">
<ul class="data">
- <li>Unpacking completed</li>
- </ul>
- <!-- TMPL_VAR NAME="total" --> Scanned
- <!-- TMPL_VAR NAME="handled" --> Processed
- <!-- TMPL_LOOP name="counts" -->
- <!-- TMPL_VAR name="count" --> Images moved from <!-- TMPL_VAR name="source" --> to <!-- TMPL_VAR name="dest" -->
- <!-- TMPL_LOOP name="filenames" -->
- <!-- TMPL_VAR name="source" --> To <!-- TMPL_VAR name="dest" -->
- <!-- /TMPL_LOOP -->
+ <li>Unpacking completed</li>
+ <li><!-- TMPL_VAR NAME ="TOTAL" --> directories scanned.</li>
+ <li><!-- TMPL_VAR NAME="HANDLED" --> directories processed.</li>
+ </ul>
+ <!-- TMPL_LOOP name="COUNTS" -->
+ <ul class="data">
+ <li><!-- TMPL_VAR name="TCOUNTS" --> image(s) moved from <!-- TMPL_VAR name="source" --> to <!-- TMPL_VAR name="dest" -->:</li>
+ </ul>
+ <!-- TMPL_LOOP name="filenames" -->
+ <ul class="data">
+ <li><!-- TMPL_VAR name="source" --> To <!-- TMPL_VAR name="dest" --></li>
+ </ul>
+ <!-- /TMPL_LOOP -->
<!-- /TMPL_LOOP -->
+ </div>
+ </div>
+ <div class="yui-u">
+ <a id="uploadmore" class="btn blue" href="/cgi-bin/koha/tools/picture-upload.pl">Upload Images</a>
+ <a id="doneupload" class="btn blue" href="/cgi-bin/koha/tools/tools-home.pl">Return to Tools</a>
+ </div>
<!-- TMPL_ELSE -->
+<div class="yui-b">
+<h1>Upload Patron Images</h1>
+<div class="yui-g">
+<div class="yui-u first">
<!-- TMPL_IF name="ERRORS" -->
<div class="dialog alert"><ul>
<!-- TMPL_LOOP name="ERRORS" -->
</ul>
</div>
</div>
+</div>
+</div>
<!-- /TMPL_IF -->
-
</div>
</div>
+
<div class="yui-b">
<!-- TMPL_INCLUDE NAME="tools-menu.inc" -->
</div>
use C4::Auth;
use C4::Output;
+my $DEBUG = 1;
+
#my $destdir = "/usr/local/koha/intranet/htdocs/intranet-tmpl/images/patronpictures";
#my $uploadfile = shift @ARGV;
my $input = new CGI;
if ( $uploadfile ) {
my $dirname = File::Temp::tempdir( CLEANUP => 1);
+ warn "dirname = $dirname" if $DEBUG;
my ( $tfh, $tempfile ) = File::Temp::tempfile( SUFFIX => '.zip', UNLINK => 1 );
+ warn "tempfile = $tempfile" if $DEBUG;
my ( @directories, %errors );
$errors{'NOTZIP'} = 1 unless ( $uploadfilename =~ /\.zip$/i );
opendir $dir, $recursive_dir;
while ( my $entry = readdir $dir ) {
push @directories, "$recursive_dir/$entry" if ( -d "$recursive_dir/$entry" and $entry !~ /^\./ );
+ warn "$recursive_dir/$entry" if $DEBUG;
}
closedir $dir;
}
}
$total = scalar @directories;
-
+ warn "Total files processed: $total" if $DEBUG;
$template->param(
TOTAL => $total,
HANDLED => $handled,
COUNTS => \@counts,
+ TCOUNTS => scalar(@counts),
);
}
}
my $delim = ($line =~ /\t/) ? "\t" : ",";
($cardnumber, $filename) = split $delim, $line;
$cardnumber =~ s/[\"\r\n]//g; # remove offensive characters
- $filename =~ s/[\"\r\n]//g;
+ $filename =~ s/[\"\r\n\s]//g;
+ warn "Cardnumber: $cardnumber Filename: $filename" if $DEBUG;
if ($cardnumber && $filename) {
+ warn "Source: $dir/$filename Target: $destdir/$cardnumber.jpg" if $DEBUG;
my $result = move ( "$dir/$filename", "$destdir/$cardnumber.jpg" );
if ( $result ) {
$count{count}++;