[Koha-cvs] koha/serials serials-home.pl

[Robert Lyon]

CVSROOT:        /sources/koha
Module name:    koha
Changes by:     Robert Lyon <bob_lyon>  06/07/20 03:14:49

Modified files:
        serials        : serials-home.pl 

Log message:
        Merging in katipo changes for serials 

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/serials/serials-home.pl?cvsroot=koha&r1=1.3&r2=1.4

Patches:
Index: serials-home.pl
===================================================================
RCS file: /sources/koha/koha/serials/serials-home.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -b -r1.3 -r1.4
--- serials-home.pl     12 Jul 2006 16:44:16 -0000      1.3
+++ serials-home.pl     20 Jul 2006 03:14:49 -0000      1.4
@@ -17,7 +17,7 @@
 # Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,
 # Suite 330, Boston, MA  02111-1307 USA
 
-# $Id: serials-home.pl,v 1.3 2006/07/12 16:44:16 toins Exp $
+# $Id: serials-home.pl,v 1.4 2006/07/20 03:14:49 bob_lyon Exp $
 
 =head1 NAME
 
@@ -54,6 +54,8 @@
 my $query = new CGI;
 my $title = $query->param('title');
 my $ISSN = $query->param('ISSN');
+my $routing = $query->param('routing');
+my $searched = $query->param('searched');
 my $biblionumber = $query->param('biblionumber');
 my @subscriptions = GetSubscriptions($title,$ISSN,$biblionumber);
 my ($template, $loggedinuser, $cookie)
@@ -65,9 +67,20 @@
                                debug => 1,
                                });
 
+# to toggle between create or edit routing list options
+if($routing){ 
+    for(my $i=0;$i<@subscriptions;$i++){
+       my $checkrouting = 
check_routing($subscriptions[$i]->{'subscriptionid'});
+       $subscriptions[$i]->{'routingedit'} = $checkrouting;
+       # warn "check $checkrouting";
+    }
+}
+
 $template->param(
        subscriptions => address@hidden,
        title => $title,
        ISSN => $ISSN,
+        done_searched => $searched,
+        routing => $routing,
        );
 output_html_with_http_headers $query, $cookie, $template->output;