View | Details | Raw Unified | Return to bug 2553
Collapse All | Expand All

(-)a/koha-tmpl/intranet-tmpl/prog/en/modules/reports/serials_stats.tt (-4 / +8 lines)
Lines 73-92 Link Here
73
					[% END %]
73
					[% END %]
74
			    </select>
74
			    </select>
75
			</li><li>
75
			</li><li>
76
		    	<label for="branch">
76
                <label for="branchcode">
77
					Library:
77
					Library:
78
		    	</label>
78
		    	</label>
79
		    	<select name="branchcode"  id="branchcode">
79
		    	<select name="branchcode"  id="branchcode">
80
				<option value="">Any library</option>
80
				<option value="">Any library</option>
81
    				[% FOREACH branche IN branches %]
81
                    [% FOREACH branche IN branches %]
82
						<option value="[% branche.branchcode %]">[% branche.branchname %]</option>
82
                        [% IF ( branche.selected ) %]
83
                            <option value="[% branche.value %]" selected="selected">[% branche.branchname %]</option>
84
                        [% ELSE %]
85
                            <option value="[% branche.value %]">[% branche.branchname %]</option>
86
                        [% END %]
83
					[% END %]
87
					[% END %]
84
		    	</select>
88
		    	</select>
85
89
86
		    </li>
90
		    </li>
87
		    <li>
91
		    <li>
88
		    	<label for="expired">Include expired subscriptions: </label>
92
		    	<label for="expired">Include expired subscriptions: </label>
89
		    	<input type="checkbox" name="expired" />
93
                <input type="checkbox" name="expired" id="expired" />
90
		    </li>
94
		    </li>
91
		</ol>
95
		</ol>
92
	</fieldset>
96
	</fieldset>
(-)a/reports/serials_stats.pl (-15 / +2 lines)
Lines 140-158 if($do_it){ Link Here
140
    while(my $row = $sth->fetchrow_hashref){
140
    while(my $row = $sth->fetchrow_hashref){
141
        push(@booksellers,$row)
141
        push(@booksellers,$row)
142
    }
142
    }
143
   
143
144
    ## We generate branchlist
145
    my $branches=GetBranches();
146
	my @branchloop;
147
	foreach (sort {$branches->{$a}->{'branchname'} cmp $branches->{$b}->{'branchname'}} keys %$branches) {
148
		my $thisbranch = ''; # FIXME: populate $thisbranch to preselect one
149
		my %row = (branchcode => $_,
150
			selected => ($thisbranch eq $_ ? 1 : 0),
151
			branchname => $branches->{$_}->{'branchname'},
152
		);
153
		push @branchloop, \%row;
154
	} 
155
    
156
	my $CGIextChoice=CGI::scrolling_list(
144
	my $CGIextChoice=CGI::scrolling_list(
157
				-name => 'MIME',
145
				-name => 'MIME',
158
				-id => 'MIME',
146
				-id => 'MIME',
Lines 164-170 if($do_it){ Link Here
164
		CGIextChoice => $CGIextChoice,
152
		CGIextChoice => $CGIextChoice,
165
		CGIsepChoice => $CGIsepChoice,
153
		CGIsepChoice => $CGIsepChoice,
166
        booksellers  => \@booksellers,
154
        booksellers  => \@booksellers,
167
        branches     => \@branchloop);
155
        branches     => GetBranchesLoop(C4::Context->userenv->{'branch'}));
168
}
156
}
169
157
170
output_html_with_http_headers $input, $cookie, $template->output;
158
output_html_with_http_headers $input, $cookie, $template->output;
171
- 

Return to bug 2553